使用dictionary对象

VBS中存在一个特殊的对象－dictionnary，是一个集合对象。一般情况霞，我把这个特殊的集合想象为数组，可以使用其中内建的函数完成存储和操纵数据等基本任务，无须担心数据是在哪些行列，而是使用唯一的键进行访问或者是一个只能运行在内存中的数据库，并只有两个字段分别是：key和item，在使用中，字段key是索引字段。

set sdict=CreateObject("scrīpting.Dictionary")51Testing软件测试网,K1y6c\ |YAU.@v&}

sdict.add "a","apple"

sdict.add "b","banana"

sdict.add "c","copy"51Testing软件测试网/P"u%gC,sZ!X&h

for each key in sdict.keys51Testing软件测试网^%TQ9s#Z+t

msgbox     "键名" &   key     & "是" & " = " & sdict (key)51Testing软件测试网M-c{ts*j[0i;\ r

next

sdict.removeall51Testing软件测试网\!?7k'Y1m:Pc7r:w

这个脚本很简单，就是定义了一个dictionary对象的实例sdict，并加入了三条数据，然后对每一条数据进行了枚举，最后，将对象的实例清空。

Dictionary对象的成员概要51Testing软件测试网/E'Xe|r
K

51Testing软件测试网a ]&{ fNR$^

属性和说明51Testing软件测试网$j(H}#QG/j$CR

CompareMode    设定或返回键的字符串比较模式51Testing软件测试网tK7c _4J7K#{

Count    只读。返回Dictionary里的键/条目对的数量51Testing软件测试网?{+W&kXcJN|'~

Item(key)  设定或返回指定的键的条目值

Key(key)  设定键值51Testing软件测试网N*ZX)p'O

方法和说明

Add(key,item)  增加键/条目对到Dictionary

Exists(key)  如果指定的键存在，返回True，否则返回False51Testing软件测试网(^Q6E`xKT+N

Items()  返回一个包含Dictionary对象中所有条目的数组51Testing软件测试网vMN9B fM1uw2Wgq

Keys()  返回一个包含Dictionary对象中所有键的数组

Remove(key)  删除一个指定的键/条目对51Testing软件测试网P6`:VM(IKt`a,`

RemoveAll()   删除全部键/条目对

$_C MP&d}k6y+iq051Testing软件测试网![Np*id?