用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 

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！