用vbs写的短小精悍的字典生成器

使用方法'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