首页 > 代码库 > VBS-Dictionary

VBS-Dictionary

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘Dictionary 键值对 ,
‘主要属性Key,Item,Count,
‘主要方法Add、Exists、Items、Keys、Remove、RemoveAll。
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘Add 用法
‘object.Add key,item
‘释:向Dictionary添加项
‘注:key 唯一
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
Dim d ‘定义变量
Set d =CreateObject("Scripting.Dictionary") ‘创建Dictionary 对象
d.Add "a","Athens"
d.Add "b","Belgrade"
d.Add "c","Cairo"

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘遍历输出key,item
‘遍历对象Dictionary
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘遍历key
For Each its In d.Keys
MsgBox its
Next

‘遍历item
For Each its In d.Items
MsgBox its
Next

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘Exists 用法
‘Exists(key)
‘释:判断Dictionary指定的键是否存在
‘注:key为指定的键值
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘判断Key值是否存在
If d.Exists("d") Then
msg="Exists"
Else
msg="Not Exists"
End If
MsgBox msg

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘Remove 用法
‘object.Remove(key)
‘释:移除指定key的键值对
‘注:如果key不存在会出现错误
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
a=d.Remove("a")
MsgBox a
For Each its In d
MsgBox its
Next

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘附:修改键,值
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
d.item("b")="bb"
For Each its In d
MsgBox d.Item(its)
Next

d.Key("b")="d"
For Each its In d
MsgBox its
Next

‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
‘RemoveAll 用法+Count
‘object.RemoveAll
‘释:删除Dictionary所有键值对
‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘‘
MsgBox d.Count
d.RemoveAll
For Each its In d
MsgBox its
Next
MsgBox d.Count

VBS-Dictionary