主题：[分享]  利用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()的多方式嵌套使用，好多地方还不得法，诚望多多指教！

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

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

       egd文件下载

经测试，Substitute()函数有个问题，就是第一个选项直接用公式的时候导致系统崩溃，所以，使用了eval()函数，根据工作内容生成符合Substitute()函数公式语法的字符串，通过eval函数执行，来避免这种崩溃现象的产生，当然，对于不熟悉eval函数的用法，您还可以用变量来实现！

http://bbs.egrid2000.com/cgi-bin/topic.cgi?forum=2&topic=30&show=0