Scripting.Dictionary对象

[vb]   view plain copy

1. '**********************************  
2. 'Dictionary 对象，使用数组一样使用。  
3. '存储数据键和项目对的对象。  
4. '以键值对的方式存储。  
5. 'Key一般已整数或字符串。  
6. 'Value可以是除数据以外的任何类型。  
7. '**********************************  
8. Dim Dic  
9.   
10.   
11. Set Dic = CreateObject("Scripting.Dictionary") '创建对象  
12. Dic.Add "aaa","123"　　　　'添加 key 和 value  
13. Dic.Add "bbb","456"  
14. Dic.Add "ccc","789"  
15.   
16.   
17. tempValue = Dic.Items '获得 Dic 对象中的所有 Valuek,返回一个数组  
18. For i = 0 to Dic.Count - 1  
19. 　　　　MsgBox tempValue(i)  
20. Next   
21.   
22.   
23. tempKey = Dic.Keys '获得 Dic 对象中所有 Key,返回一个数组  
24. For i = 0 to Dic.Count - 1  
25. 　　　　MsgBox tempKey(i)  
26. Next