separar una cadena 5263-526-30 que me quede 30

[ingabraham]

no, pueden haber mas numero despues del separador
y tambien hay muchos separadores.

[rgstuamigo]

Bueno en ese caso puedes hacerlo tal como te ha indicado Maeyanes o bien así:

Código Delphi [-]
    p:=LastDelimiter('-',Cadena);//Obtengo la ultima posicion del caracter '-' en la cadena
   Cadena_Separada:=RightStr(Cadena,length(Cadena)-p);//Extraigo la parte derecha de la cadena a partir de la pocision p+1

O tambien

Código Delphi [-]
    p:=LastDelimiter('-',Cadena);//Obtengo la ultima posicion del caracter '-' en la cadena
   Cadena_Separada:=Copy(Cadena,p+1,length(cadena)-p);//copio a partir de la pocision p+1 hacia adelante

Saludos...

[ContraVeneno]

Separar cadenas en un arreglo.

[ecfisa]

Empezado por ContraVeneno

Separar cadenas en un arreglo.

Muy interesante el artículo ContraVeneno.

Cuando ví el post se me ocurrió una solución parecida a la de maeyanes pero usando while, y conocía también el uso de LastDelimiter propuesto rgstuamigo, por eso no agregué código similar.

Pero esta solución usando TStrings, por lo menos para mí, es novedosa.

Gracias por el aporte.


Saludos.

[ingabraham]

20130-8563-675

Código Delphi [-]
for I := Length(Cadena) Downto 1 do
begin  
  if Cadena[i] = '-' then  
    break;  

  Insert(Cadena[i], Result, 1)
end

1. obtengo 675 , correcto.

2. pero quiero tambien la cadena 20130-8563
?? como lo hago.

[ecfisa]

Hola.

Con la solución de ContraVeneno, es sencillísimo.

Código Delphi [-]
procedure Split (const Delimiter: Char; Input: string; const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

...

var
  ts: TStrings;
begin
  ts:= TStringList.Create;
  Split('-', '20130-8563-675', ts);
end;

Entonces tenés: '20130' en ts[0], '8563'en ts[1] y '675' en ts[2].

Saludos.

[ecfisa]

Hola de nuevo.

Como para abrir el abanico, esta es otra solución

Código Delphi [-]
var
  Cad, Res: string;
begin
  Cad:= '20130-8563-675';
  Res:=  Copy(Cad,1,Pos('675',Cad)-2); 
end;

Pero es mucho mejor la solución de ContraVeneno, por que del otro modo ya tenés que usar dos funciones: una para obtener el primero y otra para obtener el último...
Y si mañana se te presenta tener que obtener el tercer grupo de : '13412-707-1307-00893-32', vas a tener que usar una tercera... o cuarta.

Usando la solución con TStringList, podés obtener cualquier grupo de dígitos con sólo especificar el string y el delimitador y luego concatenás lo que quieras.
Para este caso:

Código Delphi [-]
   Re:= ts[0] + '-' + ts[1];

Saludos.

[ecfisa]

Me alegro que lo hayas resuelto.

Saludos.