标题: 求助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
不知这样理解你的意思对不对.
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中的哈希数组.