Parsear texto con TString

[avechuche]

Hola gente que tal, soy nuevo por aca y estoy necesitando un poco de ayuda. Resulta que abro un archivo de texto y lo leo linea por linea con un While. Esas lineas tienen dos partes divididas por la barra "|", osea Texto1|Texto2, yo tengo que parsear ese texo para que me quede
Texto1
Texto2
El problema es el siguiente, el parseo lo hago asi

Código Delphi [-]
arrayColumnas := TStringList.Create;
arrayColumnas.Text := S;
arrayColumnas.StrictDelimiter := True;
arrayColumnas.Delimiter := '|';
arrayColumnas.DelimitedText := arrayColumnas.Text;

Donde "S" es cada linea del '.txt'.

El problema viene que me toma el salto de linea del final de la linea.
arrayColumnas[0] = Texto1 + ¿Un salto de linea? no se que onda
arrayColumnas[1] = Texto2 + ¿Un salto de linea? no se que onda

Use un ShowMessage con comillas para ver que cosa rara habia y me sale lo siguiente. Si el texto es asi 5|Gonzalo me muestra
"5
"
"Gonzalo
"
Las comillas tendrian que ir al final y no en la linea siguiente
Hay alguna forma de que no me tome ese salto de linea?
Gracias!

[Casimiro Notevi]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración

Recuerda poner los tags al código fuente, ejemplo:



Gracias

[avechuche]

Si disculpa, me olvide, pero no lo puedo editar ahora

[Casimiro Notevi]

Empezado por avechuche

Si disculpa, me olvide, pero no lo puedo editar ahora

No te preocupes, es sólo para que lo tengas en cuenta para futuros mensajes

[ecfisa]

Hola avechuche.

Creo que en este caso es mas simple usar la función ExtractStrings.

Como ejemplo:

Código Delphi [-]
...
var
  i  : Integer;
begin
  with TStringList.Create do
  try
    LoadFromFile('ARCHIVO.TXT');
    for i:= 0 to Count-1 do
    begin
      ExtractStrings(['|'], [], PChar(Strings[i]), ListBox1.Items);
      ListBox1.Items.Add('---------------'); // a fin de resaltar el resultado
    end;
  finally
    Free;
  end;
end;

Pero, por si te interesa, aquí hay otras alternativas: funcion split de una cadena

Saludos

[avechuche]

Gracias ecfisa, funciona perfectamente. Ahora viene otra duda (Soy muy nuevo en esto)
Yo no lo quiero poner en un ListBox, quiero poner esos dos valores en cada columna de mi listbox
Hice lo siguiente

Creo el TStringList antes de entrar al "While" que recorre el ".txt"

Código Delphi [-]
arrayColumnas := TStringList.Create

Llamo a la funcion

Código Delphi [-]
ExtractStrings(['|'], [], PChar(S), arrayColumnas)
// Donde "S" es cada linea del ".txt" y arrayColumnas es del tipo TStringList.

Después recorro "arrayColumnas" y agrego los valores correspondientes a las columnas de mi ListView.
El problema esta que siempre me agrega la primer linea del ".txt" al ListView. Si tengo un ".txt" asi

1|Gonzalo
2|Pedro
3|Sofia

El ListView me devuelve

1|Gonzalo
1|Gonzalo
1|Gonzalo

Tengo que hacer esto

Código Delphi [-]
arrayColumnas := TStringList.Create

dentro del While asi resetea arrayColumnas ?

Osea lo hice y anda perfecto, pero está bien aplicado? porque me da que esta mal crear el TStringList cada vez que cambio la linea.

[ecfisa]

Empezado por avechuche

Tengo que hacer esto

Código Delphi [-]
arrayColumnas := TStringList.Create

dentro del While asi resetea arrayColumnas ?

Osea lo hice y anda perfecto, pero está bien aplicado? porque me da que esta mal crear el TStringList cada vez que cambio la linea.

Hola avechuche.

Si creas y liberas el stream cada vez, no tendría que haber problemas. Mejor tal vez sea crearlo antes del ciclo while, vaciarlo con el método Clear y liberarlo despues.

Algo como:

Código Delphi [-]
  stream := TStringList.Create; // crear
  try
    while (...) do
    begin
      //... 
      stream.Clear   //<== vaciar
    end
  finally
    stream.Free  // liberar
  end;

También te podrías ahorrar todo el tema de leer el archivo recorriéndolo con while si usas el método LoadFromFile de TStrings. De ese modo podes acceder a cada línea del archivo mediante el índice.

Pero siendote sincero, no alcanzo a entender claramente como deseas que queden las líneas leidas desde el archivo en el stream.

Saludos.