- Dim objScriptingDictionary, blnYN, arrstrKeys, arrstrItems, intNumber
- Set objScriptingDictionary = CreateObject("Scripting.Dictionary")
-
- intNumber = objScriptingDictionary.CompareMode '返回当前比较模式。默认值 0
- objScriptingDictionary.CompareMode = 0|1 '设置比较模式
- '比较模式的参数,可直接使用vbs比较常数
- vbBinaryCompare = 0 '执行二进制比较,对键名区分大小写,即键 b 和 B 是不同的键
- vbTextCompare = 1 '执行文本比较,对键名不区分大小写,即键 b 和 B 是相同的键
-
- objScriptingDictionary.Add "Key", "Item" '添加一些键和项目
- objScriptingDictionary.Add "姓名", "张三丰"
- objScriptingDictionary.Add "年龄", "100"
- objScriptingDictionary.Add "保留", "保留"
-
- blnYN = objScriptingDictionary.Exists("门派") '查询指定键是否存在
-
- intNumber = objScriptingDictionary.Count '键的数量
-
- objScriptingDictionary.Remove("Key") '删除指定的键和对应的项目
-
- objScriptingDictionary.Key("保留") = "门派" '修改指定的键名
- objScriptingDictionary.Item("门派") = "武当" '修改指定键的项目
- MsgBox objScriptingDictionary.Item("姓名") '显示指定键的项目
-
- arrstrKeys = objScriptingDictionary.Keys '所有键的集合,数组类型
- For intNumber = 0 To objScriptingDictionary.Count - 1
- MsgBox arrstrKeys(intNumber) '枚举所有键名
- Next
-
- arrstrItems = objScriptingDictionary.Items '所有项目的集合,数组类型
- For intNumber = 0 To objScriptingDictionary.Count - 1
- MsgBox arrstrItems(intNumber) '枚举所有项目
- Next
-
- objScriptingDictionary.RemoveAll '删除所有键和项目
复制代码