Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Leer archivos CSV desde Delphi. (https://www.clubdelphi.com/foros/showthread.php?t=90133)

jeremiselxi 13-04-2016 16:01:29

Leer archivos CSV desde Delphi.
 
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.

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:

Código Delphi [-]
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:

Casimiro Notevi 13-04-2016 16:04:19

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

ArtPortEsp 09-06-2018 00:21:55

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.


La franja horaria es GMT +2. Ahora son las 01:47:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi