Importar txt.

Delphi

14/11/2003

Pessoal como faço para puxar dados de um arquivo txt com dbx
por favor me ajudem
é urgente


Ricardosoares2rj

Ricardosoares2rj

Curtidas 0

Respostas

Rfpsatin

Rfpsatin

14/11/2003

Salve, tem algumas formas.

a +simples é via loop.

faça um loop do inicio ao fim do arquivo pegando os dados do jogando no dbf.

Da uma olhada nas msgs do forum q tem mensagens com exemplo.
       pseudo codigo

           retornacampo(x:string; campo:integer)
              retornaaCopiadalinha daposição inicial até o fim do campo             

            while (nao fim de arquivo) do
              begin
                 x:=uma linha do arquivo;
                 campo1:=retornacampo(x,1);
                 ...
                 inserecamposnatabela(campo1,campo2...)  ;
              end;



GOSTEI 0
Fabio.hc

Fabio.hc

14/11/2003

Eu tenho este exemplo de importação de arquivo txt para interbase.

CREATE TABLE TMP EXTERNAL FILE ´C:\Dados\banco.txt´
(
  CAMPO1 char(2), CAMPO2 char(50), CAMPO3 char(1), CAMPO4 char(1), CAMPO5 char(1), CAMPO6 char(1), CAMPO7 char(30), CAMPO8 char(1), FIM char(2)
);

INSERT INTO PROGRAMA
(
  PRG_COD, PRG_DESC, PRG_SISTEMA, PRG_STATUS, PRG_MENU, PRG_SUBMENU, PRG_TITULO
)
SELECT CAST(CAMPO1 as integer), CAMPO2, CAST(CAMPO3 as integer), CAST(CAMPO4 as integer), CAST(CAMPO5 as integer), CAST(CAMPO6 as integer), CAMPO7
 
FROM TMP;

COMMIT;

DROP TABLE TMP;



GOSTEI 0
POSTAR