Buenas a todos!
Estoy intentando leer un txt para pasarlo a db. Utilizo TStringlist para cargar el archivo que está delimitado por punto y coma. Especifico el Delimiter como ';' pero no me está trayendo la información de manera correcta. Cuando encuentra un espacio tambien lo toma como separador. Probé cambiar el formato del txt estableciendo el delimitador como tabulación y sucede lo mismo.
Doy un ejemplo de 1 línea del archivo txt:
TRANSMISION - DIRECCION - CAJA;ANILLOS DE SINCRONIZADO;ROT;030001;CHEVROLET;CAJA FAE 1RA.;8,92;5.752.540;;;;;;;;;;;;;;;;30001,00
y lo leo en un procedimiento de esta manera:
Código:
var
TXTFile, fields: TStringList;
i: Integer;
begin
TXTFile := TStringList.Create;
fields := TStringList.Create;
try
TXTFile.LoadFromFile('autoparts.txt');
for i := 0 to TXTFile.Count - 1 do
begin
fields.Clear;
fields.Delimiter := ';';
fields.QuoteChar := '';
fields.DelimitedText := CSVFile[i];
//...demás código para realizar la inserción
Hasta aquí si veo el contenido de fields, sería:
fields[0] : TRANSMISION
fields[1] : -
fields[2] : DIRECCION
fields[3] : -
fields[4] : CAJA
...
y debería ser:
fields[0] : TRANSMISION - DIRECCION - CAJA
fields[1] : ANILLOS DE SINCRONIZADO
fields[2] : ROT
fields[3] : 030001
fields[4] : CHEVROLET
...
Qué estoy haciendo mal?
Desde ya agradezco a quien pueda darme una mano.
Saludos!!