本文通过实例展示了如何使用VBA中的Scripting.Dictionary对象进行键值对的增删查改操作，包括添加键值对、检查键是否存在、获取所有键和值等常用方法。
Add Method:
Dim d ' Create a variable.
Set d =CreateObject("Scripting.Dictionary")
d.Add "a","Athens" ' Add some keys anditems.
d.Add "b","Belgrade"
d.Add "c","Cairo"
Exists Method:
Function KeyExistsDemo
Dim d, msg ' Create somevariables.
Set d= CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
If d.Exists("c") Then
msg = "Specified key exists."
Else
msg = "Specified key doesn't exist."
End If
KeyExistsDemo = msg
End Function
Items Method:
Function DicDemo
Dim a, d, i, s ' Create somevariables.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
a = d.Items ' Get theitems.
For i = 0 To d.Count -1 ' Iterate the array.
s = s & a(i) &"<BR>" ' Create return string.
Next
DicDemo = s
End Function
Keys Method:
Function DicDemo
Dim a, d, i ' Create some variables.
Set d =CreateObject("Scripting.Dictionary")
d.Add"a", "Athens" ' Addsome keys and items.
d.Add"b", "Belgrade"
d.Add"c", "Cairo"
a = d.Keys ' Get the keys.
For i = 0 Tod.Count -1 ' Iterate the array.
s = s &a(i) & "<BR>" ' Return results.
Next
DicDemo = s
End Function
Remove Method:
Dim a, d ' Createsome variables.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
d.Remove("b") ' Remove second pair.
RemoveAll Method:
Dim a, d, i 'Create some variables.
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' Add some keys and items.
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
...
a = d.RemoveAll ' Clear the dictionary.
扫一扫
235
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
