vbscript
Obiekty słownikowe
Szukaj…
Utwórz słownik i dodaj elementy do słownika
Dim oDic
Set oDic = CreateObject("Scripting.Dictionary")
oDic.Add "US", "United States of America"
oDic.Add "UK", "United Kingdom"
Sprawdź, czy klucz istnieje w słowniku
If oDic.Exists("US") Then
msgbox "The Key US Exist. The value is " + oDic("US")
Else
msgbox "Key Does not exist."
End If
Usuń element ze słownika
If oDic.Exists("UK") Then
oDic.remove("UK")
End If
Iteruj wszystkie elementy w słowniku
set oDic = CreateObject("Scripting.Dictionary")
oDic.add "USA", "United States of America"
oDic.add "UK", "United Kingdom"
oDic.add "CAN", "Canada"
For Each obj in oDic.Items
Msgbox obj
Next
Set oDic = Nothing
* Wyjście:
Stany Zjednoczone Ameryki
Zjednoczone Królestwo
Kanada
Iteruj wszystkie klucze w słowniku
set oDic = CreateObject("Scripting.Dictionary")
oDic.add "USA", "United States of America"
oDic.add "UK", "United Kingdom"
oDic.add "CAN", "Canada"
For Each obj in oDic.keys
Msgbox "Key: " & obj & " Value: " & oDic(obj)
Next
Set oDic = Nothing
Usuń klucz / klucze ze słownika
set oDic = CreateObject("Scripting.Dictionary")
oDic.add "USA", "United States of America"
oDic.add "UK", "United Kingdom"
oDic.add "CAN", "Canada"
' Delete only if Key exists
If oDic.Exists("UK") Then
oDic.Remove "UK"
End If
' Delete all keys from Dictionary
oDic.removeAll
Set oDic = Nothing
Modified text is an extract of the original Stack Overflow Documentation
Licencjonowany na podstawie CC BY-SA 3.0
Nie związany z Stack Overflow