Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Exportar IbTable a CSV separado por Tabs (https://www.clubdelphi.com/foros/showthread.php?t=56719)

sonjeux 26-05-2008 02:30:20

Exportar IbTable a CSV separado por Tabs
 
Saludos, lo que quiero hacer es exportar un ibtable o una consulta ibquery a un archivo cvs pero separado por Tabs, tengo el componente ExcelExport3.5 pero solo me exporta a cvs separado por comas :(, la verdad que ni me se como poner un tab :P, alguien sabe como lo puedo hacer, gracias por su ayuda de antemano.

mlara 26-05-2008 02:57:42

Je je... CSV con tabs no existe, ya que CSV quiere decir 'Comma Separated Values', valores separados con comas.

Por otra parte, en vez de usar la extensión csv podrías usar la extensión xls. Excel abrirá tu texto separado por tabulaciones como si se tratase de un libro en Excel.

Y antes, para crear tu archivo podrías hacer algo como esto:

Código Delphi [-]
AssignFile(F, 'TuArchivo.xls');
Rewrite(F);
with Query1 do begin
  Open;
  while not Eof do begin
    LineaEnArchivo := FieldByName('Campo1').AsString+#9;
    LineaEnArchivo := LineaEnArchivo+FieldByName('Campo2').AsString+#9;
    LineaEnArchivo := LineaEnArchivo+FieldByName('Campo3').AsString+#9;
    ...
    LineaEnArchivo := LineaEnArchivo+FieldByName('CampoN').AsString;
    Writeln(F, LineaEnArchivo);
    Next
  end;
  Close
end;

Y listo.

sonjeux 26-05-2008 05:27:00

Gracias, te agradesco :D, lo que pasa que un loser me pidio que le pase un archivo csv separado por tabs, yo le dije lo que significa csv :P, pero bueno, muchas gracias, lo que no sabia era el valor #9 para tab :D

mlara 26-05-2008 05:39:53

un "loser"? perdedor?


La franja horaria es GMT +2. Ahora son las 05:06:29.

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