VBS怎么实现枚举???

[rotApple]

enum abc
{
a=1,b=2,c=3
}
abc.a.....
abc.b....
abc.c....

在VBS里面我要用到,怎么办?有什么方法可以模拟???

[blueonly]

Dictionary 对象
请参阅
FileSystemObject 对象 | TextStream 对象
语言
JScript

VBScript

显示所有语言
存储数据键和项目对的对象。

说明
Dictionary 对象等价于 PERL 联合数组。项目可以是数据的任何形式，并存储在数组中。每个项目都与一个具有唯一性的键相联。该键用于取得单个项目，并且通常是整数或字符串，但也可以是除数组以外的任何类型。

下面代码演示了如何创建 Dictionary 对象:

[JScript]
var y = new ActiveXObject("Scripting.Dictionary");
y.add ("a", "test");
if (y.Exists("a"))
document.write("true");
...
[VBScript]
Dim d ' 创建变量。
Set d = CreateObject("Scripting.Dictionary")
d.Add "a", "Athens" ' 添加一些关键字和项目。
d.Add "b", "Belgrade"
d.Add "c", "Cairo"

[rotApple]

我要试试,呵呵,茅塞顿开

[rotApple]

set a = server.createobject("scripting.dictionary")
a.add "abc","1111111"

我用的时候还要a.item("abc")这样啊?
我想要的是a.abc
这样可以吗?

[超级大笨狼]

class

[超级大笨狼]

<SCRIPT LANGUAGE="vbScript">
class wolf
Public a
Public b
Public c
Private Sub Class_Initialize
a=1
b=2
c=3
End Sub
end class

dim abc
set abc=new wolf
alert abc.a
alert abc.b
alert abc.c
</SCRIPT>

[超级大笨狼]

大概是这样，在网吧，不准确
<SCRIPT LANGUAGE="vbScript">
class wolf
a=1:b=2:c=3
end class

dim abc
set abc=new wolf
alert abc.a
alert abc.b
alert abc.c
</SCRIPT>