Ver Mensaje Individual
  #1  
Antiguo 13-04-2016
Avatar de jeremiselxi
jeremiselxi jeremiselxi is offline
Miembro
 
Registrado: ago 2008
Posts: 199
Reputación: 16
jeremiselxi Va por buen camino
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:
__________________
Cristo te ama, ven a d él, ya k te espera con los brazos abiertos. Dios te bendiga mucho
Responder Con Cita