Ler linhas de arq .TXT e apresentar nos campos do FORMS duvida ?

[diegodanielsilva]

Preciso apresentar as linhas lidas de um arquivo TXT nos campos do meu FORMS como faço.

CÓDIGO: SELECIONAR TODOS

Selecionar tudo

PROCEDURE PROC_TXT_FIDELIDADE IS
 
   V_NOME_ARQ   VARCHAR2(255);
   IN_FILE  Text_IO.File_Type;
   LINEBUF  VARCHAR2(80);

BEGIN
   V_NOME_ARQ := 'C:\TEXTO.TXT';
   IN_FILE := TEXT_IO.FOPEN(V_NOME_ARQ,'R') ;
    LOOP
       BEGIN
          TEXT_IO.GET_LINE(IN_FILE,LINEBUF);
          GO_BLOCK('CARTAO_FIDELIDADE_POLCOM');
         LAST_RECORD;
         CREATE_RECORD;
         :CARTAO_FIDELIDADE_POLCOM.FK_CFID_AD_CARTAO := LINEBUF;
          EXCEPTION
          WHEN OTHERS THEN
         EXIT;
         END;
    END LOOP;
    First_Record;
  TEXT_IO.FCLOSE(IN_FILE);
END;

tenho 7 campos ... preciso que se leia as linhas dos campos e enviem para cada forms..


No momento como o código está ele lê todos mais insere somente a ultima linha lida. [/code]

[dr_gori]

Como é o arquivo que você está lendo?
Ele tem algum tipo de separador ?

[diegodanielsilva]

Boa noite

Tem sim ";"

[dr_gori]

Nesse caso, você precisa separar cada valor da sua string com separador ;.

Veja esse topico: viewtopic.php?t=1653
Tem uma função chamada ELEMENTO.
Vai ser util.

Aqui tem uma outra, mas acho que não é o caso. viewtopic.php?t=753

[diegodanielsilva]

Show de Bola Dr_GORI.

Deu certo sim !!! Valeu usando a função ELEMENTO.

Obrigado !

At.