以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  “老宋易表”有感？  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=20070)
--  作者：浙江仔
--  发布时间：2010/10/7 14:17:00
--  “老宋易表”有感？
看了老宋的两个突破500行数据的公式，想到能不能使用“ExportDBFile()”代替其中的“ExportTextFile()”，导出、导入文件为Excel文件，而不是txt文件，这样容易操作表格数据，作为外挂excel文件的形式，使用易表！
本人对eval公式的理解还不够，不能理解老宋的公式，所以想请教大家！
如果行，怎么改？

附：老宋易表中的公式
1.保存退出（自动备份超过500行数据的表）
Eval("If(["+Substitute(Substitute(Substitute(Substitute(Eval(Substitute("Substitute(#|@|$|&|#,#|#,#"+Substitute(ListGrids(),"|","#)+#|#+Substitute(#|@|$|&|#,#|#,#")+"#)","#","""")),"@","!Rows]>499,ExportTextFile(DocDir+"""),"$","""+"".txt"",char(9),Char(13),"""),"&",""",2) And ClearGrid("""),"|","""),True) And If([") + """),True)") And Save() And Exit()

2.数据加载（自动加载被清空的表的数据）
Eval("If(["+Substitute(Substitute(Substitute(Substitute(Eval(Substitute("Substitute(#|@|&|#,#|#,#"+Substitute(ListGrids(),"|","#)+#|#+Substitute(#|@|&|#,#|#,#")+"#)","#","""")),"@","!Rows]<2,SpenGrid("""),"&",""") And ImportTextFile(DocDir+"""),"|","""+"".txt"",Char(9),Char(13),0),True) And If(["),"Spen","Open")+ """+"".txt"",Char(9),Char(13),0),True)")
--  作者：Czy
--  发布时间：2010/10/7 18:42:00
--  
就400块，有必要这样费尽心思去整吗？
--  作者：wjq1072
--  发布时间：2010/10/7 19:32:00
--  
同感！
--  作者：浙江仔
--  发布时间：2010/10/7 20:06:00
--  
这不是钱不钱的问题，我也只是业余爱好，随便玩玩，只是本人学艺不精，没有吃透EVAL的用法，我想替换ExportDBFile()也是可以的，是不是呢？

一直以来我就想使用外挂EXCEL表格的形式，易表只是做为一个处理工具，数据存储放在通用性强的EXCEL中，方便数据共享，也不容易造成数据的丢失，防止用户随意篡改基础数据。


PS：如果像2楼的想法，那你用的系统，所有软件都是正版的？全部用正版也不就是几千块么，是不是啊？！

--  作者：Czy
--  发布时间：2010/10/7 21:34:00
--  
差不多吧，只要我喜欢的现在用的都是正版的，包括操作系统。
--  作者：hbfnmxb
--  发布时间：2010/10/8 9:09:00
--  
现在正在用试用版,估计用了快4年了,也没有什么问题.正版与试用版真的有区别吗?没有感觉
--  作者：Czy
--  发布时间：2010/10/8 11:39:00
--  
下面引用由hbfnmxb在 2010/10/08 09:09am 发表的内容：
现在正在用试用版,估计用了快4年了,也没有什么问题.正版与试用版真的有区别吗?没有感觉

正版和试用版功能本身并无区别，但楼主是在用电脑报版，电脑报版有500行的限制。
--  作者：浙江仔
--  发布时间：2010/10/8 12:09:00
--  
6楼试用版没有使用期限的吗？
用电脑报版的毕竟够你学习了解易表的功能。如果使用易表需要商用的，建议购买正版。
像我这种随便玩玩的，个人爱好的，就不一定要购买正版了，使用电脑报版就ok了，按需选择。
--  作者：浙江仔
--  发布时间：2010/10/9 11:20:00
--  
通过学习“翻数公式生成器--gdlgh”，自己摸索了一下，终于可以实现外挂EXCEL的功能，共享出来，有谁需要就去试试！
我把外挂表格放在“F:\\易表范例\\外挂EXCEL”文件夹，可以自己根据需要修改。
1、系统保存
eval("if(["+eval("Substitute(""|!rows] > 499,ExportDBFile(""""f:\\易表范例\\外挂EXCEL\\""""+""""|""""+"""".xls"""",6,""""|"""") and ClearGrid(""""|"",""|"","""+Substitute(ListGrids(),"|",""")+"""""") ,true) and if([""+Substitute(""|!rows] > 499,ExportDBFile(""""f:\\易表范例\\外挂EXCEL\\""""+""""|""""+"""".xls"""",6,""""|"""") and ClearGrid(""""|"",""|"",""")+""")")+""") ,true) ") and Save()

2、系统加载
eval("if(["+eval("Substitute(""|!Rows]<2,OpenGrid(""""|"""") and  ImportDBFile(""""f:\\易表范例\\外挂EXCEL\\""""+""""|""""+"""".xls"""",6,""""|"""") and DelRow(""""|"",""|"","""+Substitute(ListGrids(),"|",""")+"""""",1),true)and if([""+Substitute(""|!Rows]<2,OpenGrid(""""|"""") and  ImportDBFile(""""f:\\易表范例\\外挂EXCEL\\""""+""""|""""+"""".xls"""",6,""""|"""") and DelRow(""""|"",""|"",""")+""")")+""",1),true)") and OpenGrid(1)

-=-=-=- 以下内容由 浙江仔 在 2010年10月09日 11:21am 时添加 -=-=-=-
特别感谢“翻数公式生成器--gdlgh”，确实比较好用！

--  作者：hbfnmxb
--  发布时间：2010/10/9 12:06:00
--  
能不能发一个实例上来