Criando e lendo arquivo TXT

Criação de um arquivo TXT e lendo um arquivo TXT
No lugar de GERA_LOTES_DDA voce tem que alterar para seu caminho

--|LER

declare

      v_linha varchar2(2000) := '';

      v_arquivo utl_file.file_type;

    begin

      v_arquivo := utl_file.fopen('GERA_LOTES_DDA', 'jefferson_quintiliano.txt', 'R');

      loop begin

              utl_file.get_line(v_arquivo, v_linha);

              dbms_output.put_line('linha lida=' || v_linha);

              exception

               when no_data_found then

              utl_file.fclose(v_arquivo);

         exit;

       end;

     end loop;

    

     EXCEPTION

    WHEN No_data_found THEN

               Dbms_Output.Put_Line('NO_DATA_FOUND.');

               --UTL_File.Get_Line(arquivo_ler, Linha);

               UTL_File.Fclose(v_arquivo);

    WHEN UTL_FILE.INVALID_PATH THEN

               Dbms_Output.Put_Line('Diretório inválido.');

               UTL_File.Fclose(v_arquivo);

    WHEN Others THEN

               Dbms_Output.Put_Line ('Problemas na leitura do arquivo.');

               UTL_File.Fclose(v_arquivo);

   end;

--| CRIAR

DECLARE

   file_cliente  utl_file.file_type;

BEGIN

   file_cliente   := utl_file.fopen('GERA_LOTES_DDA', 'jefferson_quintiliano.txt','W');

   utl_file.put_line(file_cliente, 'TESTE EBS');

   utl_file.FCLOSE (file_cliente);

END;

--SELECT * FROM dba_directories