Dictionary是存储数据键和项目对的对象，其主要属性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。
创建Dictionary对象　

1. '定义并创建Dictionary对象，使用CreateObject创建并返回自动化对象的引用
   
2. Dim Dic
   
3. Set Dic = CreateObject("Scripting.Dictionary")

复制代码

添加键值　

1. Dim Dic
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. '向Dictionary对象中添加键值对
   
4. Dic.Add "Name", "Sirrah" 'Add方法第一个参数是Key值，第二个是Item值
   
5. Dic.Add "Age", 23　　

复制代码

删除键值 　　

1. Dim Dic
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
   
4. Dic.Add "Age", 23
   
5. Dic.Item("Age") = 22 '修改键Age的值
   
6. MsgBox Dic.Item("Age") '输出22

复制代码

判断键是否存在　　

1. Dim Dic
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
   
4. Dic.Add "Age", 23
   
5. MsgBox Dic.Exists("Age") '判断键是否存在　

复制代码

输出所有键值
输出Dictionary对象所有键值，这边将介绍2种常用的循环方法，具体代码如下：

1. Dim Dic,Dics
   
2. Set Dic = CreateObject("Scripting.Dictionary")
   
3. Dic.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
   
4. Dic.Add "Age", 23
   
5. Dics = dic.Items 'Items返回一个包含所有Item值的数组
   
6. For i = 0 To dic.Count - 1 'Count返回Dictionary对象键数目
   
7. str = str & Dics(i) & vbCrlf
   
8. Next
   
9. MsgBox(str)
   
10. Dim Dic,Dics
    
11. Set Dics = CreateObject("Scripting.Dictionary")
    
12. Dics.Add "Name", "Sirrah" '向Dictionary对象中添加键值对
    
13. Dics.Add "Age", 23
    
14. For Each Dic In Dics '循环遍历Dictionary键，并输出键值
    
15. MsgBox Dics.Item(Dic)
    
16. Next

复制代码

补充一个实例
脚本文件：a.vbs，包含字典的添加、删除、判断键是否存在、修改键、修改值、遍历、统计键值对个数

1. '建立字典
   
2. Dim Dict : Set Dict = CreateObject("Scripting.Dictionary")
   
3. 
   
4. '添加键值对
   
5. Dict.Add "Key1", "Item1"
   
6. Dict.Add "Key2", "Item2"
   
7. Dict.Add "Key3", "Item3"
   
8. 
   
9. '字典中键值对数量
   
10. WScript.Echo "字典中现有键值对数量: " & Dict.Count '让一个脚本在屏幕上显示文本信息
    
11. 
    
12. WScript.Echo
    
13. 
    
14. '检查指定键是否存在
    
15. If Dict.Exists("Key1") Then
    
16. WScript.Echo "Key1 存在!"
    
17. Else
    
18. WScript.Echo "Key1 不存在!"
    
19. End If
    
20. 
    
21. If Dict.Exists("Keyn") Then
    
22. WScript.Echo "Keyn 存在!"
    
23. Else
    
24. WScript.Echo "Keyn 不存在!"
    
25. End If
    
26. 
    
27. WScript.Echo
    
28. 
    
29. '遍历字典
    
30. Sub TraverseDict
    
31. Dim DictKeys, DictItems, Counter
    
32. DictKeys = Dict.Keys
    
33. DictItems = Dict.Items 'Items返回一个包含所有Item值的数组
    
34. For Counter = 0 To Dict.Count - 1 'Count返回Dictionary对象键数目
    
35. WScript.Echo _
    
36.   "键: " & DictKeys(Counter) & _ '& 字符串连接运算符
    
37.   "值: " & DictItems(Counter)
    
38. Next
    
39. End Sub
    
40. 
    
41. TraverseDict
    
42. 
    
43. WScript.Echo
    
44. 
    
45. '在一个键值对中，修改键或修改值
    
46. Dict.Key("Key2") = "Keyx"
    
47. Dict.Item("Key1") = "Itemx"
    
48. TraverseDict
    
49. 
    
50. WScript.Echo
    
51. 
    
52. '删除指定键
    
53. Dict.Remove("Key3")
    
54. TraverseDict
    
55. 
    
56. WScript.Echo
    
57. 
    
58. '删除全部键
    
59. Dict.RemoveAll
    
60. WScript.Echo "字典中现有键值对数量: " & Dict.Count

复制代码

调用方法：通过双击a.bat调用，a.bat代码如下：

1. cscript a.vbs
   
2. pause

复制代码

运行结果截图：

来源：互联网
免责声明：如果侵犯了您的权益，请联系站长（1277306191@qq.com），我们会及时删除侵权内容，谢谢合作！