读入文件并置超级列表框问题

sijk

如图，本地有这么一个txt文件，我想用超级报表列表框给他展示出来，效果如图2
但是按照读入文件的方式，分割文本，计次循环置标题的速度太慢了，有没有什么办法可以实现快速显示？
现在速度大概1秒150行

时髦猪

3 - 副本.rar (232.07 KB, 下载次数: 9)

2023-8-9 03:04 上传

点击文件名下载附件
其实上面给你写的那个编译出来能在5秒左右
现在这个2秒左右 应该是很快了
一定要编译出来测试时间
调试模式就是慢点

时髦猪

快速文本对象

Suky

分页显示   或者只显示当前可见项目
其他的读入文本、分割之后暂时放在数组变量里
需要显示的时候变量循环读取可视部分的项目数

时髦猪

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
快速	快速文本对象
A	整数型
i	整数型
成员	文本型		0
临时文本	文本型		0
计时	整数型

计时 ＝ 取启动时间 ()
快速.从文件读 (“x.txt”)
成员 ＝ 快速.分割文本 ( #换行符, )
处理事件 ()
计次循环首 (取数组成员数 (成员), i)
临时文本 ＝ 分割文本 (成员 [i], “|”, )
超级列表框1.插入表项 (i － 1, 到文本 (i), , , , )
超级列表框1.置标题 (i － 1, 1, 临时文本 [1])
超级列表框1.置标题 (i － 1, 2, 临时文本 [2])
超级列表框1.置标题 (i － 1, 3, 临时文本 [3])
超级列表框1.置标题 (i － 1, 4, 临时文本 [4])
超级列表框1.置标题 (i － 1, 5, 临时文本 [5])
计次循环尾 ()
计时 ＝ 取启动时间 () － 计时
调试输出 (“耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒，添加到列表多少项：” ＋ 到文本 (取数组成员数 (成员)))

i支持库列表	支持库注释
commobj	通用对象支持库
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 快速, 快速文本对象<br /> .局部变量 A, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 成员, 文本型, , "0"<br /> .局部变量 临时文本, 文本型, , "0"<br /> .局部变量 计时, 整数型<br /> <br /> 计时 ＝ 取启动时间 ()<br /> 快速.从文件读 (“x.txt”)<br /> 成员 ＝ 快速.分割文本 (#换行符, )<br /> 处理事件 ()<br /> .计次循环首 (取数组成员数 (成员), i)<br />     临时文本 ＝ 分割文本 (成员 <i>, “|”, )<br />     超级列表框1.插入表项 (i － 1, 到文本 (i), , , , )<br />     超级列表框1.置标题 (i － 1, 1, 临时文本 [1])<br />     超级列表框1.置标题 (i － 1, 2, 临时文本 [2])<br />     超级列表框1.置标题 (i － 1, 3, 临时文本 [3])<br />     超级列表框1.置标题 (i － 1, 4, 临时文本 [4])<br />     超级列表框1.置标题 (i － 1, 5, 临时文本 [5])<br /> .计次循环尾 ()<br /> 计时 ＝ 取启动时间 () － 计时<br /> 调试输出 (“耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒，添加到列表多少项：” ＋ 到文本 (取数组成员数 (成员)))

补充内容 (2023-8-8 23:35):
处理事件 ()加计次循环尾上面  我写错了

sijk

时髦猪 发表于 2023-8-8 23:28
[e=4].版本 2
.支持库 commobj
.支持库 iext

缺仍然不快~

时髦猪

sijk 发表于 2023-8-9 00:00
缺仍然不快~

我这10年前的机器都每秒3000条了
处理文本这应该就很快了 列表添加就这速度了

北冥

可以使用虚表,你这个速度是超级列表框也就这样了,虚表就可以做到快速

时髦猪

我才发现我刚开始写的那个写表时可视假静态编译出来才不到两秒

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
成员	文本型	0
计时	整数型
快速	快速文本对象
临时文本	文本型	0
快列表	外部超级列表框

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

子程序名	返回值类型	公开	备 注
_按钮1_被单击

计时 ＝ 取启动时间 ()
启动线程 (&子程序2, , )

子程序名	返回值类型	公开	备 注
子程序2

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

快速.从文件读 (“x.txt”)
成员 ＝ 快速.分割文本 ( #换行符, )
超级列表框1.可视 ＝ 假
计次循环首 (取数组成员数 (成员), i)
临时文本 ＝ 分割文本 (成员 [i], “|”, )
超级列表框1.插入表项 (i － 1, 到文本 (i), , , , )
超级列表框1.置标题 (i － 1, 1, 临时文本 [1])
超级列表框1.置标题 (i － 1, 2, 临时文本 [2])
超级列表框1.置标题 (i － 1, 3, 临时文本 [3])
超级列表框1.置标题 (i － 1, 4, 临时文本 [4])
超级列表框1.置标题 (i － 1, 5, 临时文本 [5])
计次循环尾 ()
计时 ＝ 取启动时间 () － 计时
超级列表框1.可视 ＝ 真
' 调试输出 (“耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒，添加到列表多少项：” ＋ 到文本 (取数组成员数 (成员)))
标签1.标题 ＝ “耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒，添加到列表多少项：” ＋ 到文本 (取数组成员数 (成员))

i支持库列表	支持库注释
commobj	通用对象支持库
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 commobj<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 成员, 文本型, , "0"<br /> .程序集变量 计时, 整数型<br /> .程序集变量 快速, 快速文本对象<br /> .程序集变量 临时文本, 文本型, , "0"<br /> .程序集变量 快列表, 外部超级列表框<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 计时 ＝ 取启动时间 ()<br /> 启动线程 (&子程序2, , )<br /> <br /> <br /> .子程序 子程序2<br /> .局部变量 i, 整数型<br /> <br /> <br /> 快速.从文件读 (“x.txt”)<br /> 成员 ＝ 快速.分割文本 (#换行符, )<br /> 超级列表框1.可视 ＝ 假<br /> .计次循环首 (取数组成员数 (成员), i)<br />     临时文本 ＝ 分割文本 (成员 <i>, “|”, )<br />     超级列表框1.插入表项 (i － 1, 到文本 (i), , , , )<br />     超级列表框1.置标题 (i － 1, 1, 临时文本 [1])<br />     超级列表框1.置标题 (i － 1, 2, 临时文本 [2])<br />     超级列表框1.置标题 (i － 1, 3, 临时文本 [3])<br />     超级列表框1.置标题 (i － 1, 4, 临时文本 [4])<br />     超级列表框1.置标题 (i － 1, 5, 临时文本 [5])<br /> .计次循环尾 ()<br /> 计时 ＝ 取启动时间 () － 计时<br /> 超级列表框1.可视 ＝ 真<br /> ' 调试输出 (“耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒，添加到列表多少项：” ＋ 到文本 (取数组成员数 (成员)))<br /> 标签1.标题 ＝ “耗时：” ＋ 到文本 (计时 ÷ 1000) ＋ “秒，添加到列表多少项：” ＋ 到文本 (取数组成员数 (成员))