Exemplo
PROCEDURE PROC_TXT_TESTE IS
v_nome_arq varchar2(255);
linebuf varchar2(80);
in_file text_io.file_type;
v_data_ini date;
BEGIN
--A VARIÁVEL V_NOME_ARQ ARMAZENA O NOME DO DOCUMENTO QUE DEVE SER ABERTO
v_nome_arq := 'C:\TEXTO.TXT';
v_data_ini := SYSDATE;
in_file := text_io.fopen(V_NOME_ARQ,'R') ;
GO_BLOCK('CARTAO_FIDELIDADE_POLCOM');
LOOP
BEGIN
text_io.get_line(IN_FILE,LINEBUF);
//Se linha do Arquivo .TXT for igual a null então ele passa para a próxima
if linebuf is not null then
-- valida
LAST_RECORD;
CREATE_RECORD;
:CARTAO_FIDELIDADE_POLCOM.FK_CFID_AD_CARTAO := linebuf;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND THEN EXIT;
END;
END LOOP;
first_record;
TEXT_IO.FCLOSE(IN_FILE);
END;
O que acontece é o seguinte.... se no Arquivo TXT existir dois numeros iguais tipo
___________________________________________________________
ARQUIVO .TXT
linha 1 1234
linha 2 2344
linha 3 1234
linha 4 2344
____________________________________________________________
quando ocorrer isto ele deve somente inserir 1 codigo
será que tem como fazer uma comparação destas linhas??
Obrigado pessoal