使用方法'use:cscript this.vbs > dic.txt
把下面的代码保存为this.vbs
复制代码 代码如下:
a=array(1,2,3,4,"a")
function js1(n)
for i=1 to n
f=f&"f"&i&"&"
s=s&"for each f"&i &" in a :wscript.echo "& f
s=mid(s,1,len(s)-1)&":"
next
js1=s
end function
function js2(n)
for i=1 to n
m=m & "next" & ":"
next
js2=m
end function
lcx= js1(ubound(a)+1)&js2(ubound(a)+1)
lcx=mid(lcx,1,len(lcx)-1)
b="a=array(1,2,3,4,""a""):"&lcx
execute b