大量数据的处理不是易表的强项,但对于大量数据的处理,不一定非要用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(#"),"|","