VBS: Funktion der returner et array
Hej folkens,Jeg er løbet lidt ind i et dilemma som jeg ikke helt kan se løsningen på.
Jeg har et script hvori der er en funktion der returnerer et array. Men hvordan anvender jeg funktionen? Følgende giver selvfølgelig fejl:
################
Private Function ReadConfigFile()
Dim ConfigFileName
ConfigFileName = fso.GetBaseName(WScript.ScriptName) & ".config"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(ConfigFileName)
i = 0
Do Until objFile.AtEndOfStream
ReDim Preserve arrLines(i)
strLine = objFile.ReadLine
strItemArray = Split(strLine, ";", -1, 1)
arrLines(i) = Array(strItemArray(0), strItemArray(1))
i = i + 1
Loop
ReadConfigFile = arrLines
End Function
MsgBox ReadConfigFile(0)(1)
###################
hvis vi nu siger at .config-filen indeholder
hest;hest2
hest3;hest4
så er det hest2 som MsgBoxen skulle udskrive men ReadConfigFile tror selvfølgelig at det er parametre den får smidt efter sig. Jeg gør selvfølgelig noget galt - men hvad?
