TStringList y Separador

[mjjj]

Estimados, estoy teniendo un problema para leer un archivo csv y separar por ; (punto y coma) en distintos TListbox.
El problema es que existen espacios en blanco y los considera como separador.
Adjunto código.
Favor su ayuda.


var
csv : TStringList;
i : Integer;
begin
csv := TStringList.Create;

// cargar a partir del fichero csv
if opendialog1.Execute then
csv.LoadFromFile(opendialog1.FileName);

// recorrer las filas
for i := 0 to csv.Count -1 do
begin
ProgressBar1.Position := i;
listbox1.Items.Add(csv.Strings[i]);

with TStringList.Create do
begin
QuoteChar := ' ';
Delimiter := ';';
DelimitedText:= csv.Strings[i];
StrictDelimiter := true;

// Ahora tienes separado el texto en lineas
listbox2.Items.Add(Strings[0]);
listbox3.Items.Add(Strings[1]);
listbox4.Items.Add(Strings[2]);
end;
end;
end;

[Casimiro Notevi]

No dices qué versión de delphi usas, y también sería conveniente ver una muestra del fichero csv.
De todas formas, echa un vistazo a este hilo (http://www.clubdelphi.com/foros/showthread.php?t=65172&highlight=DelimitedText).

[mjjj]

Estimados, utilizo Delphi XE5, y a modo de ejemplo adjunto parte del archivo que tengo que utilizar.


Nro;Tipo Doc;Tipo Compra;RUT Proveedor;Razon Social;Folio;Fecha Docto
1;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290322;31/07/2018;31/07/2018 16:04:39;01/08/2018 14:59:03
2;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290324;31/07/2018;31/07/2018 16:07:42;01/08/2018 15:00:31
3;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290335;31/07/2018;31/07/2018 16:23:38;01/08/2018 15:00:31
4;33;Del Giro;79898540-K;TURISMO LATRACH LIMITADA;40749;30/07/2018;31/07/2018 16:23:32;01/08/2018 15:00:31
5;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290339;31/07/2018;31/07/2018 16:29:44;01/08/2018 14:59:04
...

El problema se presenta ya que considera los espacios como separadores y necesito que sean solo los punto y como (;).
Además como puedo manejar los campos fecha y hora ??
Lo que necesito hacer es insertar en una base de dato este archivo.
Espero me puedan ayudar.

[ecfisa]

Hola.

¿ Probaste la sugerencia que hace gerardus (mensaje #4) en el enlace que te indicó Casimiro ? te tiene que funcionar perfectamente.

Un ejemplo con los datos de tu mensaje:

...
var
s : string;
begin
s := 'Nro;Tipo Doc;Tipo Compra;RUT Proveedor;Razon Social;Folio;Fecha Docto'+
'1;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290322;31/07/2018;31/07/2018 16:04:39;01/08/2018 14:59:03'+
'2;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290324;31/07/2018;31/07/2018 16:07:42;01/08/2018 15:00:31'+
'3;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290335;31/07/2018;31/07/2018 16:23:38;01/08/2018 15:00:31'+
'4;33;Del Giro;79898540-K;TURISMO LATRACH LIMITADA;40749;30/07/2018;31/07/2018 16:23:32;01/08/2018 15:00:31'+
'5;33;Del Giro;76488020-K;SOLDADURAS SOLTEC SpA;290339;31/07/2018;31/07/2018 16:29:44;01/08/2018 14:59:04';
ExtractStrings([';'], [], PChar(s), ListBox1.Items);
end;


Saludos :)

[mjjj]

Me funcionó la solución presentada, pero con un problema, cuando el archivo tiene un campo "vacio" no lo considera, es decir 2 ; seguidos.
Por ejemplo...

756;61;Del Giro;76417179-9;PROVEEDOR DE COMPRA;12;24/08/2018;24/08/2018 11:11:17;;1000000;0;0;;;1000000;;;;;0;;;;0;;;;

Alguna idea ???

[ecfisa]

Hola de nuevo.

Bueno, todo depende de lo que desees que aparezca cuando se encuentre un campo vacio ...

Por ejemplo si quiero que cuando encuentre un campo vacío aparezca el símbolo "~" haría:

...
var
s : string;
begin
s := '756;61;Del Giro;76417179-9;PROVEEDOR DE COMPRA;12;24/08/2018;'+
'24/08/2018 11:11:17;;1000000;0;0;;;1000000;;;;;0;;;;0;;;;';

s := StringReplace(s,';;',';~;', [rfReplaceAll]);

ExtractStrings([';'], [], PChar(s), Memo1.Lines);
end;

Lo que me daría el siguiente resultado:

756
61
Del Giro
76417179-9
PROVEEDOR DE COMPRA
12
24/08/2018
24/08/2018 11:11:17
~
1000000
0
0
~
1000000
~
~
0
~
~
0
~
~


Saludos :)