Dictionary 字典对象
Dictionary 对象与 PERL 关联数组是等价的。项目(可以是任何形式的数据)被保存在数组中。每项都与唯一的键相关联。键值用于检索单个项目,通常是整数或字符串,但不能为数组。
Dictionary对象的属性:
CompareMode(c ompare):设置并返回在 Dictionary 对象中比较字符串关键字的比较模式。
Compare:可选项。vbBinaryCompare(0):执行二进制比较(不区分大小写).
vbTextCompare (1):执行文本比较(区分大小写)
实例:
Dim d
Set d = CreateObject("Scripting.Dictionary") d.CompareMode = vbTextCompare ’使用文本比较
d.Add "a", "Athens" ' 增加一些键和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
d.Add "B", "Baltimore" ' 在此行添加方法失败因为 字母 b 已经在 Dictionary 中存在。
Count:返回一个集合或 Dictionary 对象包含的项目数。
实例:Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' 添加一些键和项目。
d.Add "b", "Belgrade" d
.Add "c", "Cairo"
i = d.Count '获取项目数。
注:i的值为3
HashVal:无资料
Item:设置或返回 Dictionary 对象中指定的 key 对应的 Item,或返回集合中基于指定的 key 的 Item。可读写。
实例1(返回项目值):
Dim d '创建变量.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '添加键和项目对.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
ItemDemo = d. Item ("c") '得到项目. 注:itemdemo存储的是Cairo
实例2(设置项目值):
Dim d '创建变量.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '添加键和项目对.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
d.Item("c")="hello" ‘修改项目值
itemdemo= d.Item("c") '得到项目.
注:itemdemo存储的是hello
Key(key):设置在 Dictionary 对象中的关键字。
Key(参数):要改变的 Key 值。
实例:
Dim d '创建变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '添加键和项目对。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
d.Key("c") = "d" '将"c"的键设置为"d"。
Dictionary对象的方法:
a.Add:向 Dictionary 对象添加键和项目对 语法:object.Add key, item
实例:
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '添加一些键和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo" 注:无
a.Exists:检查指定键指定键是否存在,存在:返回 True;不存在:返回 False。
语法:object.exists (key)
实例:
Dim d, msg '创建一些变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '添加一些键和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
If d.Exists("c") Then
msg = "指定的键存在。"
Else
msg = "指定的键不存在。"
End If
注:无
a.Items:返回一个数组,其中包含有 Dictionary 对象中的所有项目。
语法:object.items
实例:
Dim a,d,I,s '创建一些变量
Set d = CreateObject("Scripting.Dictionary")
d.Add "a","Athens" '添加键和项目
d.Add "b","Belgrade"
d.Add "c","Cairo"
a = d.Items '获取项目。
For i = 0 To d.Count -1 '循环使用数组。
s = s & a(i) & "<BR>" '创建返回字符串。
Next
注:a获取项目后是一个数组
a.Keys:返回一数组,其中包含有 Dictionary 对象的所有现存键。
语法:object.Keys
实例:Dim a,d,i '创建一些变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a","Athens" '添加键和项目。
d.Add "b","Belgrade"
d.Add "c","Cairo"
a = d.Keys '获取键。
For i = 0 To d.Count -1 '循环使用数组。
s = s & a(i) & "<BR>" '返回结果。
Next 注:无
a.Remove:从 Dictionary 对象中删除键和项目对。
语法:object.Remove(key) Key:与要从 Dictionary 对象中删除的键和项目对相关联的 Key
实例:
Dim a, d '创建变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" '添加键和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo" ...
d.Remove("b") '删除第二个项目对
注:无
a.RemoveAll:删除 Dictionary 对象中的所有键和项目对。
语法:object.RemoveAll
实例:
Dim a,d,i '创建一些变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a","Athens" '添加键和项目。
d.Add "b","Belgrade"
d.Add "c","Cairo" ...
d.RemoveAll '清除 dictionary。
注:无