Jump to content
Sign in to follow this  
teckV

[vbscript] Administar com VBScript WSH p3

Recommended Posts

teckV

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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.