-- 作者：老宋
-- 发布时间：2009/10/19 9:47:00
--
大量数据的处理不是易表的强项，但对于大量数据的处理，不一定非要用SQL等数据库来进行。
实际上，一个系统的使用，常用数据调用只是很少的一些，除非是大型的查询系统，才需要所有的数据都同时在岗。WINDOWS自带的查询功能，可以全文搜索，对于TXT类型的数据，全文搜索更快。
采用数据和系统分离的系统设计方法，定期将数据进行备份和归档为TXT文档，保留易表的基本功能，对于需要的数据，随时调用，可保持系统数据在一个比较小的范围，保证易表的稳定快速运行。
使用易表数据和系统分离菜单，可快速对现有系统进行备份，归档，并且可以随时调用数据，不需要修改参数，所有的函数都不涉及具体的表名称和结构信息。RAR文件下载
使用此菜单需要增加的变量：
%AAA% 空 字符型变量
%BBB% GetFileName("excel文件|*.xls","打开",0) 表达式变量
%CCC% 空 字符型变量
%DDD% GetFileName("excel文件|*.xls","另存",1) 表达式变量
%EEE% GetFileName("txt文件|*.txt","另存",1) 表达式变量
%FFF% Format(Now(),"yymmddhhnnss") 表达式变量
%NNN% GetFileName("txt文件|*.txt","打开",0) 表达式变量 菜单功能简介和函数：
数据拆分
1.根据第一列拆分：根据第一列提取不重复的内容进行筛选，然后把数据导出归档，文件名按照列名称来标识。
ShowAllRows() And Eval(Substitute("ExportTextFile(DocDir+Gridname+#-#+#"+Substitute(Substitute(Eval(Substitute("Substitute(#|@|#,#|#,#"+Substitute(Eval("ListFor(Grid,1,1)"),"|","#)+#|#+Substitute(#|@|#,#|#,#")+"#)","#","""")),"@","#+#.txt#,char(9),Char(13),Gridname,1,#=#,#"),"|","#,0) And ExportTextFile(DocDir+Gridname+#-#+#")+"#,0)","#","""")) And OpenLink(DocDir)
2.根据第二列拆分：根据第二列提取不重复的内容进行筛选归档。
ShowAllRows() And Eval(Substitute("ExportTextFile(DocDir+Gridname+#-#+#"+Substitute(Substitute(Eval(Substitute("Substitute(#|@|#,#|#,#"+Substitute(Eval("ListFor(Grid,2,1)"),"|","#)+#|#+Substitute(#|@|#,#|#,#")+"#)","#","""")),"@","#+#.txt#,char(9),Char(13),Gridname,2,#=#,#"),"|","#,0) And ExportTextFile(DocDir+Gridname+#-#+#")+"#,0)","#","""")) And OpenLink(DocDir) 备份系统：把所有表的数据全部导出备份，文件名按照表名标识保存。
1.备份500行以上数据表：
Eval(Substitute("If(["+Substitute(Substitute(Substitute(Eval(Substitute("Substitute(#|@|&|#,#|#,#"+Substitute(Eval("ListGrids()"),"|","#)+#|#+Substitute(#|@|&|#,#|#,#")+"#)","#","""")),"@","!Rows]>498,ExportTextFile(DocDir+#"),"&","#+#-Bak.txt#,char(9),Char(13),#"),"|","#,0),True) And If([")+"#,0),True)","#","""")) And OpenLink(DocDir)
2.备份全部表：
Eval(Substitute("ExportTextFile(DocDir+#"+Substitute(Substitute(Eval(Substitute("Substitute(#|@|#,#|#,#"+Substitute(Eval("ListGrids()"),"|","#)+#|#+Substitute(#|@|#,#|#,#")+"#)","#","""")),"@","#+#-Bak.txt#,char(9),Char(13),#"),"|","#,0) And ExportTextFile(DocDir+#")+"#,0)","#","""")) And OpenLink(DocDir) 清空系统：
清空500行以上表：把所有超过498行数据的表一次清空。
Eval(Substitute("If(["+Substitute(Substitute(Eval(Substitute("Substitute(#|@|#,#|#,#"+Substitute(Eval("ListGrids()"),"|","#)+#|#+Substitute(#|@|#,#|#,#")+"#)","#","""")),"@","!Rows]>498,ClearGrid(#"),"|","
|