Scripting.Dictionary对象

[vb] view plaincopy

'**********************************
'Dictionary 对象，使用数组一样使用。
'存储数据键和项目对的对象。
'以键值对的方式存储。
'Key一般已整数或字符串。
'Value可以是除数据以外的任何类型。
'**********************************
Dim Dic


Set Dic = CreateObject("Scripting.Dictionary") '创建对象
Dic.Add "aaa","123"　　　　'添加 key 和 value
Dic.Add "bbb","456"
Dic.Add "ccc","789"


tempValue = Dic.Items '获得 Dic 对象中的所有 Valuek,返回一个数组
For i = 0 to Dic.Count - 1
　　　　MsgBox tempValue(i)
Next


tempKey = Dic.Keys '获得 Dic 对象中所有 Key,返回一个数组
For i = 0 to Dic.Count - 1
　　　　MsgBox tempKey(i)
Next