EXPORTAR/IMPORTAR en archivo de TEXTO TXT

[guillotmarc]

Hola.

¿ Con la utilidad que te sugerí anteriormente ?, ¿ la has mirado ?.

Saludos.

[Casimiro Noteví]

Estoy a favor de usar una utilidad o componente como el sugerido por guillotmarc, te lo dan hecho, te facilita el trabajo y te evita errores y dolores de cabeza, por ejemplo, en el código que has puesto, si la dirección tiene una coma... pierdes datos!!!

WriteLn(F, Qprov.FieldByName('ID_PROVEEDOR').AsString + ',' +
Qprov.FieldByName('RUC').AsString + ',' +
Qprov.FieldByName('RAZON').AsString + ','+
Qprov.FieldByName('DIRECCION').AsString);

Imagina que tienes un registro:

ID_PROVEEDOR: 55
RUC: 12345678S
RAZON: HOLAQUETAL
DIRECCION: C/ LAS AMAPOLAS VERDES, 25 - PORTAL 2, IZQUIERDA

Te quedarías con "C/ LAS AMAPOLAS VERDES" y el resto ¿?
Tal vez sea mejor separar por tabuladores, también puedes meter todos los datos entre comillas: "C/ LAS AMAPOLAS VERDES, 25 - PORTAL 2, IZQUIERDA", y buscar comillas en lugar de comas, aunque fallaría si alguien pone: "LLAVE INGLESA DE 2" PULGADAS" ¡¡¡otro error!!!, te quedarías sin " PULGADAS"

[lbuelvas]

Utiliza esta rutina que elabore hace años para exportar un dataset a un archivo texto.

Código Delphi [-]
//Dado un Dataset exporta el resultado de la consulta a un archivo plano,
//normalmente separado por comas.  El formato de las fechas depende de la
//definicion del parametro global ShortDateFormat que se encuentra en el
//evento DataModuleCreate de FrmDataModulo
function _exportar_datos (var Consulta: TIBDataSet; const nombre_archivo: string; const separador: string; encabezado:boolean) : boolean;
var
  DelimOutput : TIBOutputDelimitedFile;
  F:  TextFile;  //para manejar el archivo y convertir mayusculas a minusculas
  Archivo: File;
  cadena: string;
  Buffer: array[0..1023] of Char;
  funciono: boolean;
begin
  funciono := true;

  if (Consulta.IsEmpty) or (nombre_archivo = '') then
    funciono := false
  else begin
    try
      DelimOutput := TIBOutputDelimitedFile.Create;
      DelimOutput.OutputTitles := encabezado; //true si necesita el archivo plano encabezado
      // Estos son delimitadores de Columna y de fila
      DelimOutput.ColDelimiter := separador;
      // DelimOutput.RowDelimiter := chr(13) + chr(10);
      DelimOutput.Filename := nombre_archivo;
      Screen.Cursor := crHourglass;
      Consulta.DisableControls;
      try
        Consulta.BatchOutput(DelimOutput);
      except
        funciono := false;
      end;
      Consulta.EnableControls;
      Screen.Cursor := crDefault;
    finally
      DelimOutput.Free;
    end;  //try

    //Excel genera un error 'File SYLK error' cuando un archivo empieza por 'ID' mayusculas
    //para solucionarlo, reescribir la linea de encabezado en minusculas
    //ejecutar esta opcion solamente si se indica que se genere encabezado para el archivo
    if encabezado then
      try
        AssignFile(F, nombre_archivo);
        Reset(F);
        Readln(F,cadena);
        CloseFile(F);
        cadena := LowerCase(cadena);
        StrPcopy(buffer,cadena); //permite copiar de un string a un arreglo char (buffer)
        //
        AssignFile(Archivo, nombre_archivo);
        Reset(Archivo,1);
        Seek(Archivo,0);
        BlockWrite(Archivo, buffer,  length(cadena));
        CloseFile(Archivo);
        //Fin arreglo para excel
      except
        funciono := false;
      end;
  end; //del else
  //si no hubo error logro generarse exitosamente la creacion del archivo
  _exportar_datos := funciono;
end;

Forma de uso:

Código Delphi [-]
procedure TFrmExplorador_Tablas.ExportarDatos1Click(Sender: TObject);
begin
 SaveDialog1.Filename :=  'Resultado.txt';
 if SaveDialog1.Execute then begin
      Refresh;
      try
        _exportar_datos(DSConsulta,SaveDialog1.FileName,';',true);
      except
        MessageDlg('No fue posible Exportar los datos', mtWarning, [mbOK], 0);
      end;
   end;
end;

Espero que sea de utilidad.

[dalsim]

trato de hacer funcionar tu rutina pero me marca error no

DelimOutput : TIBOutputDelimitedFile
podrias decirme si hay que poner mas componentes en el form o en las uses del progecto y si hay manera de pasarlo directamente a excell con las rutinas que dice el compañero mas arriba las que son comandos FBExport como lo utilizo podrias poner un ejemplo estoy tratando de utilizar un cxgrid de las devExpress gracias

[lbuelvas]

Debes en la clausula uses adicionar IBSQL, en esta biblioteca esta definida la clase TIBOutputDelimitedFile.

Prueba y si tienes dificultad nos comentas.

[dalsim]

indeclarado identificador
SaveDialog1.Filename := 'Resultado.txt';

[lbuelvas]

La linea SaveDialog1.Filename := 'Resultado.txt'; asigna por defecto el nombre Resultado.txt a la salida despues de escoger un archivo por medio del objeto SaveDialog1.

Debes colocar en tu formulario un objeto de clase TSaveDialog con nombre TSaveDialog1

Si lo que quieres es exportar a diferentes formatos puedes usar los maxconponents u otra familia de componentes. Lamentablemente la pagina de los maxcomponents el autor la retiró y no tiene soporte para las versiones Delpi 2010 y posteriores.

Puedes revisar los componentes DevExpress, tal vez ellos tenga componentes para lo que necesites, echate una pasada por www.board4all.com, te registras, y revisa el foro Delphi , puedes ver componentes gratis y otros con crack para que hagas tus pruebas.

Cordialmente,

Luis Fernando Buelvas Tovar