Leer archivos CSV desde Delphi.

[jeremiselxi]

Buen día.

Esperando se encuentren bien, he estado buscando hace varios días información relacionado a como leer archivos CSV, pero por más que busqué, no encontré una información concreta hasta que llegué a esta solución y quiero compartirla con ustedes, ya que de esta manera, aporto mi granito de arena.

Componentes a utilizar:

1) TJvCsvDataSet, (Para este deben tener instalado Jedi(JCL y JVCL)). En el siguiente link explica la forma de instalarlo. Link (http://www.clubdelphi.com/foros/showthread.php?t=87779).

2) OpenDialog

3) DBgrid

4) DataSource

5) Button

Configuración Básicas.

En la propiedad dataset del Datasource elegir el JvCsvDataSet.
En la propiedad datasource del Dbgrid elegir el Datasourse y con pocas lineas pueden buscar el archivo CSV y cargarlo al DBGrid.

Dentro del botón poner lo siguiente:


procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.FileName:= '*.CSV';
if OpenDialog1.Execute then
begin
JvCsvDataSet1.FileName:= OpenDialog1.FileName;
JvCsvDataSet1.Open;
end;
end;



Y eso es todo.

Espero les funcione.

He subido al FTP en la ruta: "http://terawiki.clubdelphi.com/Delphi/Proyectos/" un archivo llamado "Abrir Archivos CSV en Delphi7.rar"

Ruta directo del archivo para descargarlo: (http://terawiki.clubdelphi.com/Delphi/Proyectos/?download=Abrir+Archivos+CSV+en+Delphi7.rar)

[Casimiro Notevi]

^\||/^\||/^\||/

[ArtPortEsp]

Yo tengo problemas con ese componente, abre el archivo, pero cuando encuentra importes con , separa los datos y ya no corresponden las columnas.

Aun con el parametro AlwaysEnquoteFloats activo puedo corregir esto.