VBS基础篇 – vbscript Dictionary对象（dictionary vba）怎么可以错过

文章摘要

文章介绍了如何在Windows脚本中使用字典管理键值对。主要内容包括： 1. 创建字典并添加键值对 2. 检查指定键是否存在 3. 遍历字典并显示键值对 4. 修改键值对的键或值 5. 删除指定键和删除全部键文章通过代码示例详细展示了这些操作的具体实现方法，并强调了字典在数据管理中的灵活性和高效性。

‘建立字典
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