preciso apresentar numeros lidos de um arquivo TXT como faço

[franklin_kunioshi]

preciso apresentar numeros lidos de um arquivo TXT nos campos do meu FORMS como faço.

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.


Obrigado

[franklin_kunioshi]

FECHADO!

se o moderador poder excluir agradeço.