- '**********************************
- '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
Scripting.Dictionary对象
最新推荐文章于 2018-01-17 20:04:00 发布