|
|
    |
如果是要做一个包括年月日的字典，我的方法就是用QBASIC，例如，要想生成从1960年1月1日到2000年12月31日的字典，并且字典格式是
19600101
19600102
这样的，只要你机子上装有DOS622，或者到装有DOS622的机子上拷贝QBASIC.*，运行后在QBASIC输入以下的程序并按F5运行就行了：
OPEN "C:\60-00.dic" for output as #1
for Y=1960 to 2000
for M=101 to 112
for D=101 to 131
D$=right$(str$(Y),4)+right$(str$(M),2)+right$(str$(D),2)
print #1, D$
next D
Next M
next Y
close
如果是想生成六位的如
600101
600102
.....
650101
650102
......
001231
这样的格式，只要把上面的程序稍改一下就行了：
OPEN "C:\60-00-2d.dic" for output as #1
for Y=60 to 100
for M=101 to 112
for D=101 to 131
D$=right$(str$(Y),2)+right$(str$(M),2)+right$(str$(D),2)
print #1, D$
next D
Next M
next Y
close
其实很简单的，稍改一下，还可以生成很多方式的字典，例如年份在后月日在前的字典，有时这样的字典很好用的。
——————————
《溯雪论坛发帖守则》
本论坛不欢迎如下类型的帖子，此类帖子会被关闭或删除，本人恕不回复。
一，溯雪完全无关
二，无内容或内容过于简单，标题无意义的
三，个人联系的帖子。和标题为“某某请进”之类的
四，要求代破密码的
五，同一帖子多次重复的，灌水的
六，政治敏感话题，语言不文明，攻击他人的
七，溯雪手册中已有详细介绍或前面帖子中已有大量回复的
|  |
 | |
怎样做一个年份的字典呀？ 
Re:怎样做一个年份的字典呀？ 
