Arquivo INI :: Get_line - Help!

[Trevisolli]

Pessoal, bom dia.

Tenho o seguinte arquivo CONEXAO.INI como o conteúdo:


[BANCO]
nomebanco
[USUARIO]
nomeusuario
[SENHA]
senhausuario

E tenho o programa abaixo (q vou passar pra procedure) que verifica o
aruqivo .INI que utilizarei pra conectar.

PROBLEMA: Acho a linha [BANCO] a não consigo pular essa linha e pegar
o proximo valor e jogar numa variável.

Selecionar tudo

DECLARE
  in_file Text_IO.File_Type;
  linebuf VARCHAR2(1800);
  filename VARCHAR2(30);
BEGIN
  filename:=GET_FILE_NAME('D:\Desenv\Exemplos\', File_Filter=>'INI
Files (*.ini)|*.ini|');
  in_file := Text_IO.Fopen(filename, 'r');
  LOOP
    Text_IO.Get_Line(in_file, linebuf);
    IF linebuf = '[BANCO]' THEN
      --pular uma linha do arquivo texto
      --pegar o valor da linha
      message (linebuf);
      message (' ');
    END IF;

    --:text_item5:=:text_item5||linebuf||chr(10);
    --Text_IO.New_Line;
  END LOOP;

  EXCEPTION
  WHEN no_data_found THEN
    Text_IO.Put_Line('Closing the file...');
    Text_IO.Fclose(in_file);
END;

ALGUÉM TERIA O NOME DO COMANDO OU SABERIA COMO AJUDAR NESTE CASO?
Preciso pular a linha e pegar o valor NOMEBANCO.

Muito obrigado.

Abraço,

Trevisolli

[dr_gori]

Cada vez que você roda o comando abaixo, o forms busca a próxima linha.

Selecionar tudo

Text_IO.Get_Line(in_file, linebuf); 

Esse é o comando. Acho que você tem que mudar a lógica do seu programa para contemplar isso.

[anderson]

dentro do seu loop retire o seguinte if

Selecionar tudo

IF linebuf = '[BANCO]' THEN 

e deixe mostrar tudo o que ele pegar, por causa desse if somente esta mostrando a string '[BANCO]'

tente isso....

[]´s