YGYL 发表于 2013-4-24 11:14:10

9行代码穷举GB2312全汉字

本帖最后由 YGYL 于 2013-4-28 21:06 编辑

极少发帖，发一个吧
dim $gb="",$t=0
for $i=0xb0 to 0xf7
        for $j=0xa1 to 0xfe
                if $i=0xd7 and $j>0xf9 then ExitLoop;跳过一二区间空白的D7FA-D7FE
                $gb=$gb&BinaryToString ( "0x"&Hex($i,2)&Hex($j,2))
                $t+=1
        Next
Next
MsgBox(0,$t&"个字",$gb)把循环中的语句替换成自己想要的功能，比如随机起名、穷举测试等
短小精干、但是又一个不漏这就是本程序的好处吧
D7FA前是按拼音字母排序，D7FE后说是笔画排序

lin6051 发表于 2013-4-24 11:43:33

哇X 非常强悍啊

xms77 发表于 2013-4-24 12:45:19

的确很强悍啊~

heavenm 发表于 2013-4-24 13:53:40

这个作用在哪里？

weeks5 发表于 2013-4-24 14:18:18

很强悍啊~很强悍啊~

ivl 发表于 2013-4-24 15:24:42

很强大，支持一下

cuihairu 发表于 2013-4-24 16:47:24

看起来不错，支持一下，顺便学习。

huangwei 发表于 2013-4-24 16:58:46

这个东西有什么用

地平线 发表于 2013-4-24 20:06:19

看起来比较强大，但不知道原理是什么呢。

mbdnmt 发表于 2013-4-24 23:37:47

应用场景是什么？主要干啥用的？

wsfda 发表于 2013-4-25 09:44:02

不错的东东....

plutosherry 发表于 2013-4-25 20:07:46

做个记号！好东西

plutosherry 发表于 2013-4-25 20:07:53

做个记号！好东西

cfanpc 发表于 2013-4-26 15:45:37

新手来围观下

dyd 发表于 2013-4-28 08:38:48

的确很强悍啊~
页: [1] 2
查看完整版本: 9行代码穷举GB2312全汉字