Leer un TXT e insertar en tabla de firebird

[[maeyanes]]

Pues según leo, me parece que si es necesario que sea un .txt, ya que parece ser que es un usuario el que va a manipular dicho archivo...

Ahora, para hacer el parseo que quieres, puedes usar la clase TStringList para lo que quieres, solo cargas cada línea en un TStringList y usas las propiedades que tiene para estos casos:

Código Delphi [-]
var
  Tokenizer: TStringList;
  I: Integer;

begin
  Tokenizer := TStringList.Create;
  try
    Tokenizer.Delimiter := '|';
    Tokenizer.StrictDelimiter := True;
    Tokenizer.DelimitedText := LineaDelArchivoDelimitado; // SRS1012101001120100707121115|SRS1|1|21|1|1|000-0000000-0|
      //RUTH ESTHER RODRIGUEZ...
    // Asignas cada Tokenizer[n] a un campo de la tabla:
    Tabla.Campo1.Value := Tokenizer[0];
    Tabla.Campo2.Value := Tokenizer[1];
    ...
    Tabla.Campon.Value := Tokenizer[n];
  finally
    Tokenizer.Free
  end
end;

Este es solo un ejemplo de como lo deberías hacer, para más información busca en la ayuda de Delphi sobre la clase TStringList.


Saludos...

[[RONPABLO]]

Esto te puede servir??

1 Crear un archivo llamado script.sql (o como quiera llamarlo) con el contenido a insertar en la tabla, por ejemplo:

Código SQL [-]
INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES ('AAAA1', 1);
INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES ('AAAA2', 2);
INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES ('AAAA3', 3);
INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES ('AAAA4', 4);
INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES ('AAAA5', 5);
INSERT INTO TABLA (CAMPO1, CAMPO2) VALUES ('AAAA6', 6);
commit;
exit;

2 Ejecutar en un archivo bat o en linea de comandos algo como lo siguiente:

isql localhost:c:\ruta\Bd.fdb -u sysdba -p masterkey -i d:\script.sql

Espero sea eso lo que busca....

[[RONPABLO]]

mmm creo que mi comentario anterior fue una respuesta al titulo del hilo sin leer el contenido...

[rastafarey]

con una simple consulta.

conectate con un ib_query u el compnenente queuses.

preparas la consulta lees el archivo con tmemorystream.

y luego cargar el parametro al ib_query.

y listo.