文章摘要
这篇文章详细介绍了如何使用WScript脚本语言对字典进行操作。文章内容包括创建字典、添加键值对、检查键是否存在、遍历字典、修改键值、删除键以及删除整个字典等操作。通过具体的代码示例，文章展示了如何在脚本中实现这些功能，并指导用户如何在屏幕上显示字典中的键值对数量、检查特定键的存在性以及遍历字典内容。文章的重点在于字典的基本操作及其在WScript脚本中的实现方式。
‘建立字典
Dim Dict : Set Dict=CreateObject(“Scripting.Dictionary”)
‘添加键值对
Dict.Add “Key1”, “Item1”
Dict.Add “Key2”, “Item2”
Dict.Add “Key3”, “Item3”
‘字典中键值对数量
WScript.Echo “字典中现有键值对数量: ” & Dict.Count ‘让一个脚本在屏幕上显示文本信息
WScript.Echo
‘检查指定键是否存在
If Dict.Exists(“Key1”) Then
WScript.Echo “Key1 存在!”
Else
WScript.Echo “Key1 不存在!”
End If
If Dict.Exists(“Keyn”) Then
WScript.Echo “Keyn 存在!”
Else
WScript.Echo “Keyn 不存在!”
End If
WScript.Echo
‘遍历字典
Sub TraverseDict
Dim DictKeys, DictItems, Counter
DictKeys=Dict.Keys
DictItems=Dict.Items ‘Items返回一个包含所有Item值的数组
For Counter=0 To Dict.Count – 1 ‘Count返回Dictionary对象键数目
WScript.Echo _
“键: ” & DictKeys(Counter) & _ ‘& 字符串连接运算符
“值: ” & DictItems(Counter)
Next
End Sub
TraverseDict
WScript.Echo
‘在一个键值对中，修改键或修改值
Dict.Key(“Key2″)=”Keyx”
Dict.Item(“Key1″)=”Itemx”
TraverseDict
WScript.Echo
‘删除指定键
Dict.Remove(“Key3”)
TraverseDict
WScript.Echo
‘删除全部键
Dict.RemoveAll
WScript.Echo “字典中现有键值对数量: ” & Dict.Count