VBS基础篇 - 对象(2) - Dictionary对象

Dictionary是存储数据键和项目对的对象，其主要属性有Count、Item、Key，主要方法有Add、Exists、Items、Keys、Remove、RemoveAll。

　　创建Dictionary对象　　

?

1 2 3

'定义并创建Dictionary对象，使用CreateObject创建并返回自动化对象的引用 Dim Dic Set Dic = CreateObject( "Scripting.Dictionary" )

 　　添加键值　　

?

1 2 3 4 5

Dim Dic Set Dic = CreateObject( "Scripting.Dictionary" ) '向Dictionary对象中添加键值对 Dic.Add "Name" , "Sirrah"    'Add方法第一个参数是Key值，第二个是Item值 Dic.Add "Age" , 23

 　　删除键值      　　

?

1 2 3 4 5 6

Dim Dic Set Dic = CreateObject( "Scripting.Dictionary" ) Dic.Add "Name" , "Sirrah"   '向Dictionary对象中添加键值对 Dic.Add "Age" , 23 Dic.Remove( "Age" ) '删除键Age的值 MsgBox Dic.Item( "Age" ) '直接输出空白

　　修改键值      　　

?

1 2 3 4 5 6

Dim Dic Set Dic = CreateObject( "Scripting.Dictionary" ) Dic.Add "Name" , "Sirrah"   '向Dictionary对象中添加键值对 Dic.Add "Age" , 23 Dic.Item( "Age" ) = 22 '修改键Age的值 MsgBox Dic.Item( "Age" ) '输出22

　　判断键是否存在　　

?

1 2 3 4 5

Dim Dic Set Dic = CreateObject( "Scripting.Dictionary" ) Dic.Add "Name" , "Sirrah"   '向Dictionary对象中添加键值对 Dic.Add "Age" , 23 MsgBox Dic.Exists( "Age" ) '判断键是否存在

 　　输出所有键值

输出Dictionary对象所有键值，这边将介绍2种常用的循环方法，具体代码如下：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim Dic,Dics Set Dic = CreateObject( "Scripting.Dictionary" ) Dic.Add "Name" , "Sirrah"   '向Dictionary对象中添加键值对 Dic.Add "Age" , 23 Dics = dic.Items  'Items返回一个包含所有Item值的数组 For i = 0 To dic.Count - 1 'Count返回Dictionary对象键数目      str = str & Dics(i) & vbCrlf Next MsgBox(str) Dim Dic,Dics Set Dics = CreateObject( "Scripting.Dictionary" ) Dics.Add "Name" , "Sirrah"   '向Dictionary对象中添加键值对 Dics.Add "Age" , 23 For Each Dic In Dics '循环遍历Dictionary键，并输出键值      MsgBox Dics.Item(Dic) Next