• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

teckV

[vbscript] Administar com VBScript WSH p3

1 mensagem neste tópico

Boas,

Apresento agora uma rotina para ler dados de config a partir de um file, fazer o parsing e preencher uma array com esses dados:

O file de configuração é um simples file txt que deve ter um valor de config em cada linha, antecedido pelo nome do valor.

ldapq=CN=sus_servers,OU=servers,OU=ITmanagement

se quiserem comentar uma linha usem o #

# esta não conta

podem usar ios valores que quiserem basta depois coliocar uma rotina para lidar com o novo valor

neste exemplo usa-se o dblogin e o dbserver

dbserver=meuservidor

'---------------- Inicio Ler a configuração  ---------------------------------

dim arrComm(20,2)  ' pode-se usar uma array de dimensão variavel e usar o ReDim Preserve para a redimensionar. Para simplicar ficou fixa

dim dbserver, dblogin

Set fso = CreateObject("Scripting.FileSystemObject")

strConfFile = "app.conf"

set f = fso.opentextfile(strConfFile,1,-2) 

lerConfFile

private sub lerConfFile()

Do While Not f.AtEndOfStream

strConfText = f.Readline()

arrConfLine = Split(strConfText, "==", -1, 1)

if instr(strConfText,"#")=0 then  'anula as linhas começadas por #. ficam tipo comentário

for each strConfElem in arrConfLine

arrComm(i,ii) = strConfElem

ii=ii+1

next

i=i+1

ii=0

end if

Loop

i=0

for each strParam in arrComm

select case strParam 'para dar inteligencia no entendimento das configurações

case "ldapq"

redim preserve arrLDAPou(i)

arrLDAPou(i) = arrComm(i,1)

i=i+1

case "dblogin"

dblogin = arrComm(i,1)

i=i+1

case "dbserver"

dbserver = arrComm(i,1)

i=i+1

end select

next

end sub

'---------------- Fim Ler a configuração  ---------------------------------

teckV

future is here

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora