Fórum Importar txt. #195016

       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;
    

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;