3 respuestas en este tema

[Amadis]

Estimados colegas les dejo aquí una forma de como importar un CSV.

 

En este ejemplo se utiliza el componente TFDBATCHMOVE, incorporado creo que en la versión XE7.

 

Y se supone que con apenas 5 lineas de codigo pueda importar un CSV, asignando el reader y writer correspondiente.

 

En versiones anteriores que incluyan Firedac, se puede hacer con el componente TFDDataMove (discontinuado en XE7 e incluido hasta XE8 por compatibildad).

 

 

En el proyecto demo que voy a describir utilicé un Formulario (Form1 – principal.pas), algunos Tlabel sin importancia, 2 Tedit, (uno para ruta del csv y otro para el separador), un TOpendialog, u Tbutton para ejecutar el Opendialog de búsqueda de archivo., Un Tbitbutton (Kind:= BkClose).

Un datasource y Dbgrid para visualizar el contenido, y lo indispensable de FireDAC que son TFDGUIxWaitCursor, TFDMemTable y TFDBatchMove

 

En mis intentos trate de colocar en tiempo de diseño componentes TextReader y DataSetWriter pero no tuve suerte. Luego encontré el ejemplo que venia en la carpeta SAMPLES y en base a eso di forma a este codigo. Donde estos Reader y Writer se crean en tiempo de ejecución desde el mismo Batchmove y luego se le da unos prámetros para formato de la tabla.

 

El trabajo se realiza con los dos últimos, primero creamos el FDMemTable1 y luego el  FDBatchmove, y asigmanamos los Reader y Writer

 

Y luego debemos especificar la estructura de los archivos que vamos a abrir, esto podemos hacerlo en tiempo de diseño, y dejar establecidos los parámetros pero funcionará correctamente sólo con archivos de la misma estructura.

 

Como necesito abrir archivos donde se desconoce de antemano (al momento de programar) cuál será la estructura, lo hacemos en Tiempo de Ejecución, lo cual implica sólo unas pocas líneas de código extra, donde definimos el Separador, que a veces suele variar, los campos de la tabla a importar e indicamos si la primera linea tiene los nombres de campo.

 

Aquí debajo está el código del botón que ejecuta el Opendialog y luego se encarga del proceso de carga.

 

delphi

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
 
opendialog1.InitialDir := GetCurrentDir;
  if opendialog1.Execute
    then
      begin
 
          fdmemtable1.free;    //  destruimos componentes para eliminar datos default y cargados anteriormente
          FDBatchMove1.Free;    //   idem anterior
          fdmemtable1 := TFDMemTable.create(Form1); // creamos
          FDBatchMove1:= TFDBatchMove.Create(Form1);
          dataSource1.DataSet := fdmemtable1;   // vinculamos la tabla al datasource
      //Create text reader and set FDBatchMode as owner. Then
  // FDBatchMove will automatically manage the reader instance.
  with TFDBatchMoveTextReader.Create(FDBatchMove1)
  do begin
    // Set text data file name
    FileName := opendialog1.FileName;
    // Setup file format
    DataDef.Separator := edsepara.Text[1]; // ** indicamos separador de campos en este caso ';'
    DataDef.Delimiter := #0;  //** opcional, para campos sin QUOTED VALUES "valor" que es la opción default del componente
    Datadef.RecordFormat := rfCustom; //**
     for i := 0 to Datadef.Fields.Count-1         //  ** para evitar problemas con campos FLOAT paso todos los campos a String.
            do  Datadef.Fields[i].DataType := atString;    // ** De no hacerlo he tenido errores [FireDAC][Comp][DM]-607. Bad text value [17,5] format for mapping item [->B]. '10,24' is not a valid integer value.
 
    for i := 0 to Datadef.Fields.Count-1         //  debemos antes agregar los campos el FDMentable sino obtenemos un error de que no puede crear el dataset.
            do  fdmemtable1.FieldDefs.Add(Datadef.Fields[i].FieldName,ftString, 20, False);
    DataDef.WithFieldNames := True; // setear si tiene los nombres de campo en primera linea
  end;
 
  // Create dataset writer and set FDBatchMode as owner. Then
  // FDBatchMove will automatically manage the writer instance.
  with TFDBatchMoveDataSetWriter.Create(FDBatchMove1) do begin
    // Set destination dataset
    DataSet := FDMemtable1;
    // Do not set Optimise to True, if dataset is attached to UI
    Optimise := False;
  end;
  // Analyze source text file structure
  FDBatchMove1.GuessFormat;
  FDBatchMove1.Analyze := ([ taDelimSep,taHeader,taFields]); // este comando crea la estructura de datos según adivina leyendo los primeros registros
  FDBatchMove1.AnalyzeSample := 50;  // El default es 10, con esto profundizamos el analisis para adivinar estructura de tabla y campos
 
          FDBatchMove1.Execute;   // y Eureka!   Tenemos los datos en la tabla y visibles en el Dbgrid
    end;
 
end;

Espero les sirva de ayuda o guia para algun proyecto

 

[egostar]

Gracias por compartir. Interesante el tema.

 

Saludos

[EvilNox]

Saludos. Estoy buscando la manera de importar un archivo de puntos que esta en formato csv. Es posible? o necesariamente tendria que utilizar Civil 3D.

[Amadis]

Saludos. Estoy buscando la manera de importar un archivo de puntos que esta en formato csv. Es posible? o necesariamente tendria que utilizar Civil 3D.

 

Con el procedimiento descrito arriba, puedes de Delphi importar un CSV, a un dataset en memoria y poder editarlo y manipularlo  a la necesidad.

 

Desconozco Civil 3D, pero por lo que vi parece un programa de diseño de AutoDesk.

 

Si no interpreto mal, creo que la info de este hilo no aplica a lo que necesitas.