ScriptControl

Question

请问如何用ScriptControl调用vbs脚本后，取出vbs的各个数组数值。如有一个test.vbs其内容是
dim a(1)
a(0)="aaa"
a(1)="bbb"
我就希望在主程序想办法取出a(0),a(1)等值，请高手救命。给高分。

Answer 1

把数组封到一个类模块里.
ScriptControl.AddObject "Array",newClass   'newClass 类的实例 AddObject方法使此对象在脚本中可见。然后在脚本中就可以通过对象Array来访问这此数组.

Answer 2

MsgBox (ScriptControl1.Eval("a(0)"))
MsgBox (ScriptControl1.Eval("a(1)"))
关键是用eval。