Board logo

标题: 求助VBS如何创建集合? [打印本页]

作者: zhoushijay     时间: 2007-5-11 12:27    标题: 求助VBS如何创建集合?

我在编写脚本的时候不止一次的碰到类似的问题了,比如:

q=c(6)
for each w in q
    command
next

function c(x)
for a=1 to 100
    for b=1 to 100
        if a-x=0 or b-x=0 then
           c=ab
        end if
    next
next
end function
这是一个创建了函数 c(x)的代码,c(x)是1至100中所有与6相关的数字的集合
以上代码运行出现错误:c(x) 不是一个集合对象
请问类似的集合对象要怎么创建?
我查阅了大量资料,没发现关于集合的材料,其中最相近的就是字典对象Dictionary,但是对这个对象的用法不熟悉,请高手就以上实例用代码演示一下吧?

[ Last edited by zhoushijay on 2007-5-11 at 12:44 PM ]
作者: ttyp     时间: 2007-5-11 12:40
Dim d   ' 创建变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens"   ' 添加一些关键字和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"
作者: zhoushijay     时间: 2007-5-11 12:42
2楼兄弟跟教材里的一样,能把上面我写的那段代码演示一下吗?不管什么方法都可以
作者: ttyp     时间: 2007-5-11 12:59
Set q=c(6)

for each w in q
        msgbox q(w)
next

function c(x)
        Dim d,i
        Set d = CreateObject("Scripting.Dictionary")
        i = 1

        for a=1 to 10
                for b=1 to 10
                        if a-x=0 or b-x=0 then
                           d.add i,a & ":" & b
                           i = i + 1
                        end if
                next
        Next

        Set c = d
end function
作者: baomaboy     时间: 2007-5-11 13:13
不知这样理解你的意思对不对.
CODE:  [Copy to clipboard]
dim d
c(6)
for i=0 To UBound(d)-1
   msgbox d(i)
next
function c(x)
for a=0 to 9
    for b=0 to 9
        if a-x=0 or b-x=0 then
           d=d&a&b&"/"
        end if
    next
next
d = split(d,"/")
end function
[ Last edited by baomaboy on 2007-5-11 at 01:17 PM ]
作者: zhoushijay     时间: 2007-5-11 13:21
4楼高手,我有一事不明,
Set q=c(6)

for each w in q
        msgbox q(w)
next
为什么这里要msgbox q(w) 而不是msgbox(w)
5楼的代码也可以,而且方法很巧妙(可惜今天分数满了不能加了),只是最后多个一个空的元素
不过我跟想学会dictionary的用法

[ Last edited by zhoushijay on 2007-5-11 at 01:22 PM ]
作者: baomaboy     时间: 2007-5-11 13:28
明天记得给我加啊 ^_^

最后多的空值用减1的方法解决了
作者: ttyp     时间: 2007-5-11 13:44
Set q=c(6)

for each w in q
        msgbox q(w)
next

这里的w是q集合里的key,q(w)是通过key访问该元素的实际内容,可以是任意的对象
作者: slore     时间: 2007-5-11 13:51
想不通……直接用数组不行?还搞那么麻烦。
作者: zhoushijay     时间: 2007-5-11 13:58
明白了,谢谢ttyp高手,

dictionary就是一个数组,而且是简化了的,直接用数组不是跟麻烦
作者: ttyp     时间: 2007-5-11 14:13
和数组不一样的,数组没有exists功能啊,dictionary有key可以快速定位元素,key是字符串
作者: slore     时间: 2007-5-11 14:14
直接数组就不要dictionary了……既然一样。。。干什么还搞他出来……中间你用了几次交换。。。c d q
作者: sonicandy     时间: 2007-5-11 22:56
我觉得可以理解为哈希表,呵呵
类似c++的map和php中的哈希数组.




欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) Powered by Discuz! 2.5