黑客X档案官方论坛 » 编程魔方 » 用vbs写的短小精悍的字典生成器

fengchen 发表于 2008-4-24 13:29

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

这个程序是算不同数字与字母的所有排列组合,当然可以做为字典生成器来用.如需不同组合,只需改本程序a和b的变量即可以.
'use:cscript this.vbs > dic.txt　
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

Smial 发表于 2008-4-29 19:03

::04:: 呵呵。。。不错。。我去试试。。

fxy 发表于 2008-6-5 13:26

经典

真小，经典，好用吗？::07:: ::07:: ::07::

heigezi 发表于 2008-6-5 13:29

好啊！！！我顶！！！！::04:: ::04:: ::04:: ::04::

ovw 发表于 2008-6-16 18:51

经典！

这段程序貌似在哪里见过，是算排列组合的经典程序啊！
坚决支持！::04::

　幻 发表于 2008-6-16 18:52

额,对VB木研究咯……
偶克看看凹……

查看完整版本: 用vbs写的短小精悍的字典生成器