Foros Club Delphi - de paradox a archivos planos

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)

- - de paradox a archivos planos (https://www.clubdelphi.com/foros/showthread.php?t=9172)

de paradox a archivos planos

hola como estan todos..

me consulta lo dice casi todo el titulo, tengo los datos en una tabla paradox quiero que la aplicacion me cree un archivo plano con el campo y los datos de las tablas... claro que quede arganizado....

si pueden tambien me gustaria que me digeran tambien por medio de una aplicacion en delphi como creo un archivo de excel (*.xls) tambien con el nombre del campo y los datos.....

gracias.... de ante mano por todo...

atentamente cristian
cahosoft@hotmail.com

Cita:

Empezado por cahosoft

me consulta lo dice casi todo el titulo, tengo los datos en una tabla paradox quiero que la aplicacion me cree un archivo plano con el campo y los datos de las tablas... claro que quede arganizado....

Todo depende de qué tipo de archivo quieras generar hay componentes que lo hacen (creo recordar que en la web de Obiwan hay alguno www.clubdelphi.com/users/llsoft )

Cita:

Empezado por cahosoft

si pueden tambien me gustaria que me digeran tambien por medio de una aplicacion en delphi como creo un archivo de excel (*.xls) tambien con el nombre del campo y los datos.....

En mi web hay una demo del TRxDbGrid donde muestro cómo pasar el dataset asociado a él a Excel mediante los componentes de la paleta Servers (lamentablemente, de momento la tengo fuera de servicio ya que se está haciendo mantenimiento, pero si te interesa, te lo puedo mandar por correo)

Como te indica el amigo cadetill, mucho depende del formato en que quieras exportar la tabla. Puedes ir desde lo más sencillo, leyendo en un ciclo todos los registros y escribiendo los valores de sus campos en una línea de un TStringList, separándolos por comas:

Código:

while not Table.Eof do

begin

  Linea := '';

  for I := 0 to Table.FieldCount - 1 do

    if Linea = ''

      then Linea := Table[i]

      else Linea := Linea + ',' + Table[i];



  StringList.Add(Linea);

  Table.Next;

end;



StringList.SaveToFile('archivo.csv');

Esto te generará un archivo csv (Comma Separated Values) que puedes leer directamente en Excel.

Puedes, como dice cadetill uasr las componentes de la paleta Servers para escribir los datos en una hoja de excel (directamente un .xls y no un .csv) aunque si las tablas son muy grandes te recomendaría más usar ADO para la transferencia (busca en los foros acerca de Excel y con mi nombre y encontrarás un mensaje donde explico cómo conectarse a una hoja de Excel via ADO).

También puedes usar componentes ya hechas. No recuerdo la que menciona cadetill pero en la página del amigo delphi.com.ar (dirección obvia) él tiene unas componentes de su cosecha, me parece que ExportSuit, que exportan a varios formatos, entre ellos Excel pero creo que también texto plano. Lo magnífico de dichas componentes es que no requieren la presencia de Excel en el sistema y la exportación es sumamente rápida.

// Saludos