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

2019-10-26 18:00:28

字体：大中小

来源：转载

供稿：网友

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

上一篇：使用vbs下载文件的代码加强版

下一篇：vbs屏蔽键盘按键