和以前的相比,你的程序真的是飞速进展(从几个小时到几十秒),看来你一直在不断改进算法。你的精神值得我们学习
[此贴子已经被作者于2007-4-11 13:23:41编辑过]
运行时间是我的十倍。我十万条七秒。
For k = 1 To 16 intTmp = Rnd * 1000 Mod 61 + 1 Print #1, Mid(strALl, intTmp, 1); Next k再加上后面的一次不就是写了17次文件吗?
下面的是确定后缀,并不是输出一个记录,所以不会是17次,我验证过一次(代价惨重),没有重复的