Ler aquivo .txt e gravar no banco de dados.

[cleberzumba]

Pessoal alguém tem um script ou uma procedure que lê arquivo .txt no diretório de grava no banco de dados?

[diegolenhardt]

Retirei de um post aqui do forum,

Para funcionar você tem que ter o parametro UTL_FILE_DIR setado,
veja como esta com

Selecionar tudo

select value from v$parameter where name like '%utl%';

precisa criar um directory no banco e dar permissoes de leitura para o usuiario que vai rodar o script,

Selecionar tudo

declare
  vLinha    Varchar2(2000);
  uArquivo  Utl_File.File_Type;
Begin
  --------------------------
  -- Define no do Arquivo --
  --------------------------
  Begin
    -----------------------
    --- Abre arquivo txt --
    -----------------------
    uArquivo := Utl_File.FOpen(P_Nome_Local , P_Nome_Arq  , 'r');
    ---------------------------------
    -- Loop para Ler o Arquivo Txt --
    ---------------------------------
    Loop
      Begin
        Utl_File.Get_Line(uArquivo , vLinha);
        Insert Into Tabela
             ( Coluna01 -- 01
             , Coluna02 -- 02
             )
        Values
             ( Substr( vLinha , 1,20 )
             , Substr( vLinha ,21,20 )
             );
      Exception
        -- reached the end of file
        When No_Data_Found      Then
          Exit;
        -- line to long to store in buffer
        When Value_Error        Then
          Raise_Application_Error(-20214, 'Value_Error '||sqlerrm);
        -- not a valid file handle
        When Utl_File.Invalid_FileHandle Then
          Raise_Application_Error(-20215, 'Invalid_filehandle '||sqlerrm);
        -- file is not open for reading
        When Utl_File.Invalid_Operation  Then
          Raise_Application_Error(-20216, 'invalid_operation '||sqlerrm);
        -- OS error occurred during read
        When Utl_File.Read_Error         Then
          Raise_Application_Error(-20217, 'Read_Error '||sqlerrm);
      End;
    End Loop;
    Utl_File.FClose(uArquivo); 

[cleberzumba]

Brother.
os parametros P_Nome_Local e P_Nome_Arq eles tem que estar fixo no código, certo?

[victorhugomuniz]

pode ser algo do tipo

Selecionar tudo

P_Nome_Local VARCHAR2(1024) := '/u01/oracle/admin/SID/udump'; 

ou então você pode definir como parametro de entrada da sua procedure e quando chamara passar somente o valor

[cleberzumba]

e o nome do arquivo?...ele muda a cada mês. essa leitura é mensal e vem com a data do dia.

ex:

Selecionar tudo

arq_bb_30_10_09
arq_bb_30_11_09

como faço?

[cleberzumba]

aqui nesse comando:

Selecionar tudo

Utl_File.Get_Line(uArquivo , vLinha); 

os parametros uArquivo e vLinha recebe o que? de onde?

[diegolenhardt]

uArquivo é o arquivo que você abriu em modo R (read),

o vLinha é cada volta do Loop pegando a linha atual do arquivo, o que você deve tratar, o conteudo do arquivo propriamente dito,

Selecionar tudo

nome do arquivo := 'arq_bb'||to_char(sua_data, 'dd')||'_'||to_char(sua_data, 'mm')||'_'||to_char(sua_data, 'rr');

[RodrigoValentim]

O topico foi trancado por que o dono do mesmo já criou outro.

http://glufke.net/oracle/viewtopic.php?t=5460