Pasar una cadena (string) a una lista (tstringlisg) según delimitador

[[escafandra]]

Teniendo en cuenta que la cadena mostrada por pabloe9k contiene como delimitador $D#$A y sabiendo que jústamente representan retorno de carro + avance de línea (CRLF), un TStringList parte directamente el texto en las líneas correspondientes sin más código que una simple asignación.

Saludos.

[Casimiro Noteví]

Empezado por escafandra

Teniendo en cuenta que la cadena mostrada por pabloe9k contiene como delimitador $D#$A y sabiendo que jústamente representan retorno de carro + avance de línea (CRLF), un TStringList parte directamente el texto en las líneas correspondientes sin más código que una simple asignación. Saludos.

Exactamente, no hay que hacer nada.

[[nlsgarcia]]

escafandra,

Empezado por escafandra

...un TStringList parte directamente el texto en las líneas correspondientes sin más código que una simple asignación...

Es correcto

Empezado por pabloe9k

...Esto es muuuuuy fácil de hacer en PHP con la función "Explode", pero no tengo idea de como se hace con Delphi 7...

La idea era mostrar que existe la función ExtractStrings de Delphi equivalente a la función Explode de PHP con la cual se puede hacer Split de texto en función de diversos delimitadores, ciertamente hubiera sido suficiente hacer:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
const
   InputString = '+ EBML head' + #$D#$A +
                 'EBML version: 1' + #$D#$A +
                 'EBML read version: 1' + #$D#$A +
                 '|+ EBML maximum ID length: 4' + #$D#$A;

var
   SL : TStringList;
   i : Integer;

begin
   SL := TStringList.Create;
   SL.Text := InputString;
   for i := 0 to SL.Count - 1 do
      ShowMessage(SL[i]);
   SL.Free;
end;

Espero sea útil

Nelson.

[ecfisa]

Hola.

Según entiendo, ya me dirán si me equivoco los que saben PHP, la función explode, es mas poderosa que ExtractStrings para este caso, ya que la primera admite como delimitador una cadena y la segunda sólo caracteres.

Como ya lo han expuesto claramente, la diferencia no es relevante en una variable que ha sido compuesta por caracteres y delimitadores:

Código Delphi [-]
   str:= '+ EBML head' + #$D#$A + '|+ EBML version: 1' + #$D#$A + 
           '|+ EBML read version: 1' + #$D#$A + '|+ EBML maximum ID length: 4' + #$D#$A;

Pero el caso es muy distinto si, la cadena es extraída literalmente de un archivo y lo que eran caracteres de control pasan a ser texto plano. Por ejemplo el archivo cadena.txt con el contenido:

+ EBML head'#$D#$A'|+ EBML version: 1'#$D#$A'|+ EBML read version: 1'#$D#$A'|+ EBML maximum ID length: 4'#$D#$A'

A diferencia de explode, que por lo que leí no tendría inconveniente en manejar la situación, no hay manera de usar un delimitador como '#$D#$A' con ExtractStrings .

En este último caso habría que crear un procedimiento a tal fin:

Código Delphi [-]
...
uses StrUtils;

procedure Explode(Str, SubStr: string; TS: TStrings);
var
  p: Integer;
begin
  SubStr:= QuotedStr(SubStr);
  repeat
    p:= PosEx(SubStr, Str, 1);
    TS.Add(Copy(Str, 1, p-1));
    Delete(Str, 1, (p-1)+Length(SubStr));
  until Length(Str)=0;
end;

Llamada:

Código Delphi [-]
procedure TForm1.btnExplodeClick(Sender: TObject);
begin
  with TStringList.Create do
  try
    LoadFromFile('cadena.txt');
    Explode(Text, '#$D#$A', Memo1.Lines);
  finally
    Free;
  end;
end;

Quedo a la espera de que pabloe9k, me disipe la duda del orígen de los datos...

Saludos

[alquimista]

La vi por internet y la uso mucho. No se si servirá.

[alquimista]

Código Delphi [-]
function GetToken(Cadena,Separador:string;Token:integer):string;
 {
 Cadena     es la string en la que buscar el token
 Separador  es la string que separa cada token
 Token      es el número de token que buscamos   (desde 1 a n)
 'hola#pepe# luis'->separador(#), token1='hola' 

 }
 begin
   while Token > 1 do
   begin
     Delete(Cadena,1,Pos(Separador,Cadena));
     Dec(Token);
   end;
   if Pos(Separador,Cadena)>0 then // modificado para que salga la última palabra
     Result:=Copy(Cadena,1,Pos(Separador,Cadena)-Length(Separador))
   else
    Result:=Cadena;
 end;

Código Delphi [-]
var st1, st:string;
  begin
   st1:= 'hola#pepe# luis';
   st:=GetToken(st1,'#',2);
//st:=pepe