Localizar arquivo txt

[dmaranini]

alguém pode me ajudar?
tenho que criar um forms que localize um arquivo .txt e leia o seu conteudo.
la dentro dele estara separado por ;
e vou usar essas informaçoes para fazer um select

estava pensando em fazer

Selecionar tudo

select	substr(cd_veiculo,1,5),           
	substr(cd_modelo_veiculo,7,12),         
	substr(id_modelo_real,14,24)            

que é exatamente as posiçoes do que tera dentro dele

mas como eu faço para o forms localizar e le esse arquivo text ?
o usuario vai digitar o caminho e logo depois clicar no botão ou clicar num botao chamado diretorio para localizar o dir.

[joaogarcia]

Cara, tem bastante coisa aqui no fórum. Faça uma busca que você encontrará vários exemplos.

Basicamente, você vai ter que usar a package TEXT_IO (no próprio help do forms tem muita coisa) e as funções SUBSTR e INSTR para trabalhar com o conteúdo da linha do seu arquivo.

Qualquer dúvida, posta aí.

T+

[dr_gori]

Isso, e pra abrir a "caixa" onde se escolhe os diretórios, vai nesse link:
http://glufke.net/oracle/viewtopic.php?t=1945

[dmaranini]

então cara

eu to fazendo assim

Selecionar tudo

declare
	v_diretorio varchar2(60);
	v_filtro_arquivo varchar2(5):= '*.txt';
begin
	break;
	:controle.localiza_arquivo	:= get_file_name(	v_diretorio,
								v_filtro_arquivo);
	:controle.posicao_col		:= instr(:controle.localiza_arquivo,'\',-1,1);
	:controle.localiza_arquivo	:= substr(:controle.localiza_arquivo,1,:controle.posicao_col);
end;

ele abre e consigo localizar o arquivo que preciso.
eu não estou conseguindo é atribuir este caminho que peguei para o meu text.

[joaogarcia]

Então....
Agora que você já tem o path de onde o seu arquivo está localizado, é só montar uma rotina usando a pack text_io...

Para abrir o seu arquivo você terá q usar a procedure fopen e para "pegar" o conteúdo da linha, use get_line... Olha uma estrutura básica. Teste aí:

Selecionar tudo

DECLARE
  in_file   Text_IO.File_Type;
  linebuf  VARCHAR2(2000);
BEGIN
  in_file := Text_IO.Fopen('path\arquivo.txt', 'r');
  
  LOOP
    Text_IO.Get_Line(in_file, linebuf);
    .
    .
    .
    /*Aqui você vai ter o conteúdo da linha (linebuf). Monte sua lógica para extrair as informações*/    

  END LOOP;

EXCEPTION
  WHEN no_data_found THEN
    Text_IO.Fclose(in_file);
END;