大文本读取至列表框（超级列表框或虚表）

Mr_leaf

论坛有很多生成的例子，但却没有导入的例子。。。

源文本 无非就是 账号----密码  这样，百万的数据在100M以内，不存在变量放不下这么一说

个人实现思路如下
用快速文本 先将整行的内容加载至文本数组中，测试双核CPU 处理200万行的数据需要6分钟

  

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
文件	文本型

变量名	类 型	静态	数组	备 注
text	快速文本对象
sz	文本型		0
sz_	文本型		0
账号	文本型		0
密码	文本型		0
i	整数型

调试输出 (取现行时间 ())
text.从文件读 (文件)
sz ＝ text.分割文本 ( #换行符, )
.counter (取数组成员数 (sz), i)
sz_ ＝ 分割文本 (sz [i], “----”, )
加入成员 (账号, sz_ [1])
加入成员 (密码, sz_ [2])
.CounterLoop ()
清除数组 (sz)
清除数组 (sz_)
调试输出 (取现行时间 ())

i支持库列表	支持库注释
commobj	通用对象支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .参数 文件, 文本型<br /> .局部变量 text, 快速文本对象<br /> .局部变量 sz, 文本型, , "0"<br /> .局部变量 sz_, 文本型, , "0"<br /> .局部变量 账号, 文本型, , "0"<br /> .局部变量 密码, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 调试输出 (取现行时间 ())<br /> text.从文件读 (文件)<br /> sz ＝ text.分割文本 (#换行符, )<br /> .counter (取数组成员数 (sz), i)<br />     sz_ ＝ 分割文本 (sz <i>, “----”, )<br />     加入成员 (账号, sz_ [1])<br />     加入成员 (密码, sz_ [2])<br /> .CounterLoop ()<br /> 清除数组 (sz)<br /> 清除数组 (sz_)<br /> 调试输出 (取现行时间 ())

用打开文件在3分钟左右

  

子程序名	返回值类型	公开	备 注
子程序1
参数名	类 型	参考	可空	数组	备 注
文件	文本型

变量名	类 型	静态	数组	备 注
文件号	整数型
sz	文本型		0
账号	文本型		0
密码	文本型		0
i	整数型

调试输出 (取现行时间 ())
文件号 ＝ 打开文件 (文件, , )
移到文件首 (文件号)
.while (是否在文件尾 (文件号, 真) ＝ 假)
sz ＝ 分割文本 (读入一行 (文件号), “----”, )
加入成员 (账号, sz [1])
加入成员 (密码, sz [2])
.wend ()
清除数组 (sz)
调试输出 (取现行时间 ())

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .参数 文件, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 sz, 文本型, , "0"<br /> .局部变量 账号, 文本型, , "0"<br /> .局部变量 密码, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 调试输出 (取现行时间 ())<br /> 文件号 ＝ 打开文件 (文件, , )<br /> 移到文件首 (文件号)<br /> .while (是否在文件尾 (文件号, 真) ＝ 假)<br />     sz ＝ 分割文本 (读入一行 (文件号), “----”, )<br />     加入成员 (账号, sz [1])<br />     加入成员 (密码, sz [2])<br /> .wend ()<br /> 清除数组 (sz)<br /> 调试输出 (取现行时间 ())

光读取文件就已经用了3分钟，即使边读取边插入超级列表框都需要10分钟以上，
有没有大佬有更好的实现思路给个例子。

紫色风铃

嘿嘿 学习下！！！！！

①嗰亽の菰独

发错板块了吧

Mr_leaf

①嗰亽の菰独 发表于 2017-10-30 15:56
发错板块了吧

这个不应该是易求助？

114775961

  

变量名	类 型	静态	数组	备 注
i	整数型

超级列表框2.全部删除 ()
超级列表框2.可视 ＝ 假
调试输出 (取现行时间 ())
计次循环首 (100000, i)
超级列表框2.插入表项 (-1, 到文本 (i), , , , )
计次循环尾 ()
调试输出 (取现行时间 ())
超级列表框2.可视 ＝ 真
调试输出 (取现行时间 ())

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .局部变量 i, 整数型<br /> <br /> 超级列表框2.全部删除 ()<br /> 超级列表框2.可视 ＝ 假<br /> 调试输出 (取现行时间 ())<br /> .计次循环首 (100000, i)<br />     超级列表框2.插入表项 (-1, 到文本 (i), , , , )<br /> .计次循环尾 ()<br /> 调试输出 (取现行时间 ())<br /> 超级列表框2.可视 ＝ 真<br /> 调试输出 (取现行时间 ())

* [2017年10月30日15时58分46秒]
* [2017年10月30日15时58分51秒]
* [2017年10月30日15时59分57秒]

可以看出，在可视为假时，插入表项()，10W数据只用了5秒，到可视设置为真时，却用了66秒，才显示出来。同样的数据，在可视为真时，插入表项()及显示，花费的总时间在10倍以上(自己测试)。

用超级列表框显示全部数据，并不是一个合适的选择。考虑只显示N行，动态刷新显示数据就好。

呵呵仙

分批读取.不要一口气显示这么多数据.用户也没这个心情看你这么多数据!!

帅气与大侠

分页1秒导入完毕

Mr_leaf

aqwvwv 发表于 2017-10-30 16:51
分页1秒导入完毕

大佬方便提供一下思路么

Mr_leaf

114775961 发表于 2017-10-30 16:11
[e=1].版本 2
.支持库 iext
.支持库 spec

感谢大佬给的思路，在不显示的情况下 实测50万导入需要4分钟，内存占用高达160M(超级列表框数据占用)，跟我理想的速度还是有些差距
（数据文本账号密码均为6位数字）

114775961

可以参考精易模块的，外部超级列表框_保存数据_NEW，类：外部超级列表框.高速插入表项。