启动线程中CPU和内存占用高

依然是海洋

写的一段代码只要是超级列表框取标题，再用数据一直重复POSTcha询，再以返回的数据判断结果置标题去，数据少的时候还好，数据一多就卡顿，而且cpu和内存占用高。


程序本身用的启动线程命令，中间的间隔也用的延时命令，应该怎么优化呢

samll88

  

子程序名	返回值类型	公开	备 注
超级列表框_快速导入数据
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
文件路径	文本型				路径优先
总文本	文本型				路径为空时导入文本
列隔符	文本型				默认#表格空格符
保留原有数据	逻辑型				默认不保留  如果保留 必须是没经过删除的数据 超列的删除是标记删除

变量名	类 型	静态	数组	备 注
字节集	快速字节集对象
文本	快速文本对象
行组	文本型		0
i	整数型
原表项数	整数型
列组	文本型		0
n	整数型

超级列表框.禁止重画 ()
超级列表框.可视 ＝ 假  ' 可视的话会耽误更多时间
如果真 (是否为空 (列隔符))
列隔符 ＝ #表格空格符

判断 (文件路径 ≠ “”)  ' 路径优先
文本.从文件读 (文件路径)
文本.置文本 (总文本)

行组 ＝ 文本.分割文本 ( #换行符, )
文本.清除文本 ()
如果真 (保留原有数据 ＝ 真)
字节集.添加 (超级列表框.表项)

计次循环首 (取数组成员数 (行组), i)
列组 ＝ 分割文本 (行组 [i], 列隔符, )
计次循环首 (取数组成员数 (列组), n)
判断 (n ＝ 1)
' 字节集 ＝ { 0 } ＋ 到字节集 (图片索引) ＋ 到字节集 (状态图片) ＋ 到字节集 (缩进数目) ＋ 到字节集 (项目数值) ＋ 到字节集 (表项标题) ＋ { 0, 0 }  ' 图片索引默认为-1 ' 状态图片默认为-1
字节集.添加 ({ 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, 到字节集 (列组 [n]), { 0, 0 })
字节集.添加 ({ 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, 到字节集 (列组 [n]), { 0, 0 })

计次循环尾 ()
计次循环尾 ()
超级列表框.表项 ＝ 字节集.取字节集 (, )
超级列表框.允许重画 ()
字节集.清除字节集 ()
超级列表框.可视 ＝ 真

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

.版本 2<br /> .支持库 commobj<br /> .支持库 iext<br /> <br /> .子程序 超级列表框_快速导入数据, , 公开<br /> .参数 超级列表框, 超级列表框<br /> .参数 文件路径, 文本型, 可空, 路径优先<br /> .参数 总文本, 文本型, 可空, 路径为空时导入文本<br /> .参数 列隔符, 文本型, 可空, 默认#表格空格符<br /> .参数 保留原有数据, 逻辑型, 可空, 默认不保留  如果保留 必须是没经过删除的数据 超列的删除是标记删除<br /> .局部变量 字节集, 快速字节集对象<br /> .局部变量 文本, 快速文本对象<br /> .局部变量 行组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 原表项数, 整数型<br /> .局部变量 列组, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> <br /> <br /> 超级列表框.禁止重画 ()<br /> 超级列表框.可视 ＝ 假  ' 可视的话会耽误更多时间<br /> .如果真 (是否为空 (列隔符))<br />     列隔符 ＝ #表格空格符<br /> .如果真结束<br /> <br /> .判断开始 (文件路径 ≠ “”)  ' 路径优先<br />     文本.从文件读 (文件路径)<br /> .默认<br />     文本.置文本 (总文本)<br /> .判断结束<br /> <br /> 行组 ＝ 文本.分割文本 (#换行符, )<br /> 文本.清除文本 ()<br /> <br /> .如果真 (保留原有数据 ＝ 真)<br />     字节集.添加 (超级列表框.表项)<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (行组), i)<br />     列组 ＝ 分割文本 (行组 <i>, 列隔符, )<br />     .计次循环首 (取数组成员数 (列组), n)<br />         .判断开始 (n ＝ 1)<br />             ' 字节集 ＝ { 0 } ＋ 到字节集 (图片索引) ＋ 到字节集 (状态图片) ＋ 到字节集 (缩进数目) ＋ 到字节集 (项目数值) ＋ 到字节集 (表项标题) ＋ { 0, 0 }  ' 图片索引默认为-1 ' 状态图片默认为-1<br />             字节集.添加 ({ 0, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, 到字节集 (列组 [n]), { 0, 0 })<br />         .默认<br />             字节集.添加 ({ 1, 255, 255, 255, 255, 255, 255, 255, 255, 0, 0, 0, 0, 0, 0, 0, 0 }, 到字节集 (列组 [n]), { 0, 0 })<br />         .判断结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> <br /> <br /> 超级列表框.表项 ＝ 字节集.取字节集 (, )<br /> 超级列表框.允许重画 ()<br /> 字节集.清除字节集 ()<br /> 超级列表框.可视 ＝ 真

最快的方法是用虚表

wtflxk

用虚表模块显示超级列表框就好了