Hola compañeros
Estoy haciendo un programita que me tiene que traspasar un fichero csv (separado por
;) a una base de datos. Había pensado en aprobechar la potencia que tienen los TStrings en Delphi gracias a sus propiedades DelimitedText y Delimiter.
En principio, si se lee el fichero con readln, tengo todo un registro que hay que añadir/modificar en la tabla, separando por ; los distintos campos.
Bien, gracias a las mencionadas propiedades del TStrings, si hago lo siguiente
Código:
L := TStringList.Create;
L.Delimiter := ';';
Readln(F, str);
L.DelimitedText := str;
FreeAndNil(L);
funciona todo correctamente (por supuesto, la lectura del fichero dentro de un bucle y con los respectivos try..finally..end).
El problema está en si un campo lleva una ",". Es decir, un ejemplo:
14345;
PEPITO PALOTES, Conxi;C/;Isaac Peral;.......
Si vemos, en elsegundo campo (el nombre), hay una "," que separa apellidos y nombre. Pues bien, si el valor de este campo está tal cual (es decir, tal como biene el fichero csv), el TStrings me lo coge como si de 2 campos se trataran (aún habiendo puesto Delimiter a ";".
Haciendo pruebas, he visto que si pongo el texto entre comillas, sí me lo coge como un sólo campo (que es el valor definido por defecto en la propiedad QuoteChar del TStrings)
14345;
"PEPITO PALOTES, Conxi";C/;Isaac Peral;.......
Pero claro, si el fichero fuera algo pequeño, no hay problema, lo cambio a mano y listo, pero es que no es nada pequeño
Alguna idea?
Gracias