使用方法'use:cscriptthis.vbs>dic.txt

把下面的代码保存为this.vbs

复制代码 代码如下:

a=Array(1,2,3,4,"a")

Functionjs1(n)

fori=1ton

f=f&"f"&i&"&"

s=s&"ForEachf"&i&"Ina:wscript.echo"&f

s=Mid(S,1,Len(S)-1)&":"

Next

js1=s

EndFunction

Functionjs2(n)

fori=1ton

m=m&"Next"&":"

Next

js2=m

EndFunction

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

Executeb