Levantar un archivo txt y salvarlo en una tabla IB

[tulio]

Hola Foro

Tengo un archivo txt con un diseño de registro, y quisiera saber la forma de pasarlo con un select o la forma que sea a una tabla de Interbases.

Saludos y gracias por su atencion

[lgarcia]

Hola

En este caso el fichero txt debe tener algun formato para poder leerlo y luego irlo insertando en la BD. A continuacion te muestro un codigo que te puede servir aunque te recomiendo mejor si puedes llevar los datos a Excel porque es mas eficiente. Te lo digo por experiencia propia.

Codigo

procedure TFormMenu.Clientes1Click(Sender: TObject);
var
s, v, nombre, codigo: string;
x, l: Integer;
begin
if OpenDialog.Execute then
begin
s:= ExtractFileName(OpenDialog.FileName);
AssignFile(F, s);
Reset(F);
while not Eof(F) do
begin
Readln(f, v);
l:= length(v);
x:= pos(';', v);
nombre:= copy(v, 1, x-1);
v:= copy(v, x+1, l);
x:= pos(';', v);
l:= length(v);
codigo:= copy(v, 1, x-1);
with InsertarClientes do
begin
Close;
Parameters.ParamByName(@nombre').Value:= nombre;
Parameters.ParamByName(@codigo).Value:= codigo;
Prepared:= True;
ExecProc;
end;
end;
CloseFile(F);
ShowMessage(' El lote de clientes ha sido importado exitosamente');
end;
end;

Donde
F:Text;
InsertarClientes es un procedimiento almacenado
Los delimitadores del fichero texto en este caso es ;

Espero te sirva

Saludos
Luis Garcia

[AGAG4]

Podrías señalar como es la estructura del archivo de texto, ó bien pon un pedazo del mismo para verlo.....

Para un archivo de texto es más sencillo pasarlo a interbase por medio de un table, dataset, query, etc. teniedo una estructura delimitada por comas ó por cualquier caracter.

Saludos.

[tulio]

Gracias

LGarcia y Alfredo por su colaboracion, voy a probar sus consejos,

saludos

tulio

[tulio]

Alfredo

la estructura del archivo es asi

15487 1033 JUAN E1
15490 1050 PEDRO S1
15500 1070 ANTONIO E1

SALUDOS

tulio

[TJose]

otra forma es crear una tabla externa apuntando a tu archivo txt. Desde firebir la veras como una tabla mas..