' 工具 --引用 - -浏览 - -找到scrrun.dll - 确定 ' 调用方式2 (后期绑定): ' Set d = CreateObject("scripting.dictionary") ' 编写代码时，建议使用前期绑定(写代码时有提示)，编写完成后改成后期绑定 ' 创建一个字典对象dict Dim dict As New Dictionary ' 前期绑定 ' Set dict = CreateObject("scripting.dictionary") ' ADD(key, value) dict.Add " k1 " , " v1 " ' 往字典对象dict中添加key1=value1 dict.Add " k2 " , " v2 " ' dict.Add "key1", "value2" 报错，不能添加相同的key ' keys([index])方法，返回一个数组,包含了一个字典对象的全部key arra = dict.Keys ' items方法，返回一个数组,包含了一个字典对象的全部value v = dict.Items ' Exists(key)，判断字典中是否存在key，如果存在则返回true，否则返回false is_d = dict.Exists( " a1 " ) ' 删除字典中的数据 ' dict.Remove ("key") '删除某个key ' dict.RemoveAll '删除所有数据 ' 字典对象常用的属性， dict.CompareMode = 0 ' 设置key是否区分大小写 0区分大小写，1不区分大小写 如果dict.CompareMode =1 c = dict.Count ' 计算条目数 dict.Key( " k1 " ) = " k3 " ' 修改某个key的值(替换key，不是修改key对应的value) dict("k1") = "k3" 把key k1修改未k3 dict.Item( " k2 " ) = " ddd " ' 修改某个key的value值 dict.Item("k1") = "v3" 把k1的value修改为v3