sexta-feira, 3 de dezembro de 2010

Ler arquivos texto

Certifique-se de que possui direitos para utilização do UTL_FILE, caso não possua execute o comando abaixo

 

grant execute on utl_file to <user>

Segue o código

 

-- Create directory
create or replace directory UTL_FILE_TMP as 'C:\Okpt
-
DECLARE
    arquivo_ler                    UTL_File.File_Type;
    Linha                               Varchar2(1022);
BEGIN
    arquivo_ler := UTL_File.Fopen('UTL_FILE_TMP','INSTALL.INI', 'R');
    Loop
        UTL_File.Get_Line(arquivo_ler, Linha);
        insert into SPED_OAS_RES_2(ID,REG) VALUES (SEQ_SPED_RES.NEXTVAL, LINHA);
    End Loop;
    UTL_File.Fclose(arquivo_ler);
    Dbms_Output.Put_Line("Arquivo processado com sucesso.");
EXCEPTION
    WHEN No_data_found THEN
               UTL_File.Fclose(arquivo_ler);
               Commit;
    WHEN UTL_FILE.INVALID_PATH THEN
               Dbms_Output.Put_Line("Diretório inválido.");
               UTL_File.Fclose(arquivo_ler);
    WHEN Others THEN
               Dbms_Output.Put_Line ("Problemas na leitura do arquivo.");
               UTL_File.Fclose(arquivo_ler);
END;

Nenhum comentário :

Postar um comentário

Related Posts Plugin for WordPress, Blogger...