4
VBScript, aus For Each schleiffe Array erstellen
Hallo zusammen
Wie kann ich im VBScript aus einer For Each Schleiffe gewisse Elemente in einem Array packen und sie
ausserhalb der For Each schleife ansprechen?
Danke bereits im Voraus!
Wie kann ich im VBScript aus einer For Each Schleiffe gewisse Elemente in einem Array packen und sie
ausserhalb der For Each schleife ansprechen?
Danke bereits im Voraus!
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 203534
Url: https://administrator.de/contentid/203534
Printed on: April 19, 2024 at 05:04 o'clock
4 Comments
Latest comment
Hallo netgearsdk,
das ist etwas zu allgemein. Was verstehst du unter "gewisse Elemente"? Wird das Array eine variable Anzahl an Elementen haben? Falls ja, schau dir mal
an.
Grüße
rubberman
das ist etwas zu allgemein. Was verstehst du unter "gewisse Elemente"? Wird das Array eine variable Anzahl an Elementen haben? Falls ja, schau dir mal
ReDim Preservean.
Grüße
rubberman
da gibt's im Netz beliebig viele Erklärungen..
zb.:
http://www.aspheute.com/artikel/20000927.htm
aber vielleicht schreibst du mal genauer was du brauchst oder stellst deinen Code hier rein..
Gruß
Benedikt
zb.:
http://www.aspheute.com/artikel/20000927.htm
aber vielleicht schreibst du mal genauer was du brauchst oder stellst deinen Code hier rein..
Gruß
Benedikt
Hallo @rubberman
Mit gewisse Elemente meine ich, diese Elemente die nicht bei der IF in der For Schleife eliminiert werden.
Hier mal ein Beispiel:
Ich werde zwar diese Problematik anders Lösen, also ohne Array, aber rein um Interesse, wie würde es aussehen, wenn man dies mit Array lösen wollen würde.
Danke & Gruss
Mit gewisse Elemente meine ich, diese Elemente die nicht bei der IF in der For Schleife eliminiert werden.
Hier mal ein Beispiel:
Ich werde zwar diese Problematik anders Lösen, also ohne Array, aber rein um Interesse, wie würde es aussehen, wenn man dies mit Array lösen wollen würde.
Set colItems = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2").ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE NOT MACAddress = '' AND IPEnabled = TRUE", "WQL", 48)
For Each oItem In colItems
If IsArray(oItem.IPAddress) Then
aIP = Split(oItem.IPAddress(0), ".")
If aIP > 150 Then
' Befülle aIP als Element in Array XY
End If
Else
aIP = Split(oItem.IPAddress, ".")
End If
Next
'Und ausserhalb von der Next Schleife möchte ich auf den Array XY zugreifen. Danke & Gruss
Hallo netgearsdk,
Ansonsten funktioniert das so, wie ich bereits oben beschrieben habe. Du musst einen ganzzahligen Wert definieren der bei 0 startet und bei jedem Fund inkrementiert wird. Mittels dieses Wertes und dem oben genannten
erweiterst du die Länge deines Arrays dynamisch um ein Element und schaffst somit Platz.
Siehe hier oder auch dort für ein Beispiel.
Grüße
rubberman
aIP ist bereits ein Array (aus den einzelnen Oktetten der IP Adresse), somit würde ein Vergleich mit einem Wert wie 150 nie funktionieren. Was wolltest du denn tatsächlich mit 150 vergleichen?Ansonsten funktioniert das so, wie ich bereits oben beschrieben habe. Du musst einen ganzzahligen Wert definieren der bei 0 startet und bei jedem Fund inkrementiert wird. Mittels dieses Wertes und dem oben genannten
ReDim Preserveerweiterst du die Länge deines Arrays dynamisch um ein Element und schaffst somit Platz.
Siehe hier oder auch dort für ein Beispiel.
Grüße
rubberman
