VBS-Dictionary

学习QTP，VBS脚本很重要，但是在学习zzxxbb大神的博客时，发现dictionary讲解不够详细，我就顺便寻思了一下，找了上善若水的博客，先搬过来，慢慢补充。

vbs中，dictionary对象是我非常钟爱的一个对象，

这篇文章不是详解dictionary的，只是说我用它的一些心得：

set d=createobject("scripting.dictionary")

d.add key,item

它用起来相当方便，

尤其对于储存，查找数据。

举个例子:

d.add t1,f1

d.add t2,f2

d.add t3,f3

d.add t4,f4

........

t=d.keys

f=d.items

就这么几句,就构建了两个一维数组,

从而不用再去构建一个二维数组了,

在对f,t进行处理,非常的方便.

dictionary中的key是不能重复的,

虽然这样,

我们可以用一个循环,把key设为数字,循环一次就增加一,

举个例子,将每个磁盘盘符赋值给disk(i):

set fso=createobject("scripting.filesystemobject")

set d=createobejct("scripting.dictionary")

set ds=fso.drivers

for each di in ds

d.add i,di.driveletter

i=i+1

next

disk=d.items

就这样就完事了!

如果再加一段,disk的数量有所增加(注意哈,这就是u盘,移动磁盘或手机卡之类的),

就可以调用dos的xcopy进行拷贝(这儿用xcopy,一是因为方便,二是因为不怕错误),

如过被拔了,就会检测不到那个盘符,

又可以用d.remove将它移除,

如果让以上的程序循环隐藏执行,并且加成开机自动启动,

这vbs的功能就是…… 呵呵！

有时，处理文件（夹）用上dictionary也是非常的方便

所以，用dictionary来处理文件，有时会相当的方便

当然，用dictionary来处理数学问题，也会相当的方便：

set d=createobject("scripting.dictionary")
a=inputbox("输入一个数字")

if not isnumeric(a) then
msgbox "你输入的不是数字"
else

a_0=a
b=a-1

for i=2 to b
do while a_0 mod i = 0
t=t+1
d.add t,i
a_0=a_0/i
loop
next

ar=d.items
s=join(ar,"*")
if s="" then
s="不能分解"
else s=a+"="+s
end if

msgbox s

end if

这是一段分解质因数的vbs，

每检测到一个能被整除的因数后，

就直接d.add给加上,这儿也用了让key不断加1的方法,

这样就会使逻辑变得很清晰,

当处理稍微复杂一点的问题是,清晰的逻辑是相当重要的.

再比如说:

一堆钢管,2米的5根,3米的4根,4.6米的4根,.............要求详细列出数据并求和,

d.add 2,5

d.add 3,4

d.add 4.6,4

ar=d.keys

arr=d.items

for i=0 to d.count-1

s=s&ar(i)&"          "&arr(i)&"             "&ar(i)*arr(i)&chr(13)

next

msgbox s

这样逻辑显得很清晰,虽然这只是一个简单的例子.

如果复杂一点,这个清晰的逻辑就会帮助你更好的解决问题.

所以,我对dictionary对象很钟爱.