lendo arquivo ini

[rafa-martin 2]

pessoal tenho a seguinte estrura do arquivo ini

 

[CARGA_AUXILIAR]

SERVIDOR=servidor

BANCO=base

USUARIO=senha

SENHA=senha

 

como eu faço para lerr linha a linha e jogar cada um deles numa variável?

[PedBolo 0]

não é difícil:

 

Dim itens
'cria objeto fso
Set ObjFso = CreateObject("Scripting.FileSystemObject")
'verifica se existe arquivo
if ObjFso.FileExists(Server.MapPath("/nome.ini")) then
Set ObjTexto = ObjFso.OpenTextFile(Server.MapPath("/nome.ini"))

itens(0) = ObjTexto .ReadLine
itens(1) = ObjTexto .ReadLine
itens(2) = ObjTexto .ReadLine
itens(3) = ObjTexto .ReadLine
itens(4) = ObjTexto .ReadLine

else
Response.Write("o arquivo ini não foi encontrado")
end if

cada um slot da array possui uma linha do texto, agora vamos supor que você possa ter quantidade de linhas indefinida, pode ser 5 ou 50 dependendo do arquivo que você abrir, então o codigo seria assim:

 

 

Dim itens
'cria objeto fso
Set ObjFso = CreateObject("Scripting.FileSystemObject")
'verifica se existe arquivo
if ObjFso.FileExists(Server.MapPath("/nome.ini")) then
Set ObjTexto = ObjFso.OpenTextFile(Server.MapPath("/nome.ini"))

Dim i
i = 0

do until ObjTexto .AtEndOfStream

   itens(i) = ObjTexto .ReadLine
   i = i + 1

loop

else
Response.Write("o arquivo ini não foi encontrado")
end if