求助一个e数据库导出文本最快速的方法

拾风

附上自己写的源码感觉太慢了

易正易则

好吧，改进一下，0.782秒 ，1秒不到

导出数据库文本1.zip (1.39 KB, 下载次数: 52)

2017-1-4 00:47 上传

点击文件名下载附件

qqq1020987

多个线程同时导出
加一个许可证

易正易则

9秒不知道是不是比你的快

lianzuo123

你这个速度慢是频繁读写文件造成的.
把数据一次性全部读出来,然后一次性的出到文件

lianzuo123

还有个控件.去掉这些就可以缩短读取的时间,
另外删除() 是做一个标记,这个用法没错.但是彻底删除()就用错了.这个不需要每次都去执行.

不带删除的读取速度..1S内,具体看机器配置


带删除的速度,2S内

  

子程序名	返回值类型	公开	备 注
导出结果

变量名	类 型	静态	数组	备 注
当前发送名单	文本型
i	整数型
总数	整数型
Str	快速文本对象
T	整数型

T ＝ 取启动时间 ()
打开 (取运行目录 () ＋ “\shifeng.edb”, , , , , , )
总数 ＝ 取记录数 ()
计次循环首 (总数, i)
跳到 (i)
当前发送名单 ＝ 读 (1)
删除 ()  ' 这个仅仅是加一个标记
Str.插入 (-1, 当前发送名单 ＋ #换行符 )
' 状态条_状态.置文本 (1, “总个数：” ＋ 到文本 (总数 － i))
' 状态条_状态.置文本 (2, “当前昵称：” ＋ 当前发送名单)
计次循环尾 ()
彻底删除 ()  ' 这个是删除所有已经标记的记录,不需要每次都执行
保存文本 (取运行目录 () ＋ “\排行榜采集结果”, Str.取文本 (, ))
信息框 (到文本 (取启动时间 () － T), 0, , )

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 导出结果<br /> .局部变量 当前发送名单, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 总数, 整数型<br /> .局部变量 Str, 快速文本对象<br /> .局部变量 T, 整数型<br /> <br /> T ＝ 取启动时间 ()<br /> 打开 (取运行目录 () ＋ “\shifeng.edb”, , , , , , )<br /> 总数 ＝ 取记录数 ()<br /> <br /> .计次循环首 (总数, i)<br />     跳到 (i)<br />     当前发送名单 ＝ 读 (1)<br />     删除 ()  ' 这个仅仅是加一个标记<br /> <br />     Str.插入 (-1, 当前发送名单 ＋ #换行符)<br /> <br />     ' 状态条_状态.置文本 (1, “总个数：” ＋ 到文本 (总数 － i))<br />     ' 状态条_状态.置文本 (2, “当前昵称：” ＋ 当前发送名单)<br /> <br /> .计次循环尾 ()<br /> 彻底删除 ()  ' 这个是删除所有已经标记的记录,不需要每次都执行<br /> 保存文本 (取运行目录 () ＋ “\排行榜采集结果”, Str.取文本 (, ))<br /> 信息框 (到文本 (取启动时间 () － T), 0, , )