vbs 字典示例

以下是 VBScript 中使用字典的示例代码：

' 创建字典对象
Set dict = CreateObject("Scripting.Dictionary")

' 向字典中添加项目
dict.Add "apple", 10
dict.Add "banana", 20
dict.Add "orange", 30

' 检索字典中的值
WScript.Echo "The value of apple is: " & dict.Item("apple")
WScript.Echo "The value of banana is: " & dict.Item("banana")
WScript.Echo "The value of orange is: " & dict.Item("orange")

' 检查键是否存在
If dict.Exists("pear") Then
    WScript.Echo "The value of pear is: " & dict.Item("pear")
Else
    WScript.Echo "The key pear does not exist."
End If

' 删除一个键值对
dict.Remove "banana"

' 返回所有键的集合
keys = dict.Keys
For Each key In keys
    WScript.Echo "Key: " & key & ", Value: " & dict.Item(key)
Next

这段代码创建了一个字典对象，并向字典中添加了三个键值对。然后它检索了每个键的值，并检查了一个不存在的键。接下来，它删除了一个键值对，并返回所有键的集合。当运行此脚本时，它将输出以下内容：

The value of apple is: 10
The value of banana is: 20
The value of orange is: 30
The key pear does not exist.
Key: apple, Value: 10
Key: orange, Value: 30

希望这个示例能够帮助您更好地理解 VBScript 中的字典。