Importar de TXT a FireBird

[jachguate]

Suponiendo que tenes un texto de columnas de ancho fijo, y algunas otras cosas que se entenderán con el codigo, te dejo un pequeño ejemplo:

Código Delphi [-]
  if OpenDialog1.Execute then
  begin
    qInsert.SQL.Text := 'insert into tabla values (:campo1, :campo2);';
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
      qInsert.ParamByName('campo1').AsString := copy(Memo1.Lines[i], 1, 10);
      qInsert.ParamByName('campo2').AsString := copy(Memo1.Lines[i], 11, 4);
      qInsert.ExecQuery;
    end;
  end;

Hasta luego.