Una Manito para crear archivo de texto desde interbase

[Manuel]

hola amigos necesito traspasar algunos campos de algunas tablas a un archivo plano (texto), teniendo como separador un TAB, trabajo con delphi 5.0, iterbase 5.5, y accedo a la tablas con TTable, si me podrian echar una manito se los agradecería mucho.

[jachguate]

Si lo vas a hacer desde Delphi, es sencillo, pues debes hacer algo asi como:



Procedure TForm1.CreaTexto;

Var
t : TextFile;


Begin
assignFile(t, 'c:\texto.txt');
Reset(t);
try
while not tabla.eof do
Begin
t.writeln(
TablaCampo1.AsText + #9 +
TablaCampo2.AsText + #9 +
TablaCampo3.AsText + #9 +
TablaCampo4.AsText);
//el #9 es el tabulador
tabla.next;
End;
finally
close(t);
end;
End;


;) hasta luego.

[kinobi]

Hola,

otra opción es crear una tabla externa temporal en la base de datos, CREATE TABLE <TablaTemporal> EXTERNAL FILE <ArchivoExterno> ..., (ver documentación) y con una combinación de INSERT/SELECT hacer el traspaso. Una vez hecho, se elimina la tabla de la base de datos y listo.

Saludos.

[Manuel]

Gracias Juan Antonio, lo provaré y luego te cuento