主题：[分享]  利用eval()函数对1～99、1～999、1～9999各数的排列！

请注意：1、由于数据量大，系统运行很慢，仅供学习eval()函数之应用，不可参与于表运算，只可临时排数！
        2、表内被隐藏的列为备注型，由于数据过长，必须隐藏，不得显示，请在备注窗口察看结果！

   egd文件下载

相关代码公式：

0～99各数排列

mid(eval(Rept("Substitute(",10) +"""*" + Rept("|*1|*2|*3|*4|*5|*6|*7|*8|*9|*0",10) +"""" + ",""*"",""" + Substitute("0@1@2@3@4@5@6@7@8@9","@",""",10),""*"",""") + """)"),2,296)

0～999各数排列

eval("mid("+Rept("Substitute(",11)+"""//"+ Rept(mid(eval(Rept("Substitute(",10) +"""*" + Rept("/*1/*2/*3/*4/*5/*6/*7/*8/*9/*0",10) +"""" + ",""*"",""" + Substitute("0@1@2@3@4@5@6@7@8@9","@",""",10),""*"",""") + """)"),2,296) + "/00/",10) + """,""/"",""|"+Substitute("0@1@2@3@4@5@6@7@8@9","@",""",100),""/"",""|")+""",100),""/00/"",""""),3)")

0～9999各数排列

mid(eval(Rept("Substitute(",11) +"""**"+Rept(eval("mid("+Rept("Substitute(",11)+"""//"+ Rept(mid(eval(Rept("Substitute(",10) +"""*" + Rept("/*1/*2/*3/*4/*5/*6/*7/*8/*9/*0",10) +"""" + ",""*"",""" + Substitute("0@1@2@3@4@5@6@7@8@9","@",""",10),""*"",""") + """)"),2,296) + "/00/",10) + """,""/"",""*"+Substitute("0@1@2@3@4@5@6@7@8@9","@",""",100),""/"",""*")+""",100),""/00/"",""""),3)") + "*000*",10) + """,""*"",""|"+Substitute("0@1@2@3@4@5@6@7@8@9","@",""",1000),""*"",""|")+""",1000),""*000*"","""")"),3)

-=-=-=- 以下内容由 程兴刚 在 2008年02月27日 07:52pm 时添加 -=-=-=-
要察看公式请在表菜单下的公式管理器里面察看！

谢谢共享，认真学习！

服！学习了。

ylm总版主过奖了，我是在琢磨eval()的多方式嵌套使用，好多地方还不得法，诚望多多指教！

也可以这样吧？（似乎更灵活）
egd文件下载

佩服，用这个公式可以测试电脑配置啊，呵呵！

呵呵，看来不用研究eval()函数！

如果用vb代码 实现起来容易多了
Dim s As String
For i As Integer = 1 To 9999
   s += Cstr(i).PadLeft(4,"0") & "|"
Next

我在报表设计中遇到这样的问题,如上一行要打印的内容是left([工作简历],30),下一行要打印的内容是mid([工作简历],30,30),再下一行打印内容是mid([工作简历],60),由于调查经过字段中有一些半角字符,如标点符号”,”或者数字”2”等等,出现显示结果有乱码的情况,请高手帮助解决,谢谢!
egd文件下载

-=-=-=- 以下内容由 lygxiaolu 在 2008年07月06日 02:13pm 时添加 -=-=-=-
在个人简历报表中模拟显示中会出现乱码？

其实解决起来很简单，学会变通，灵活运用！

       egd文件下载