超级列表框快速插入表项

果心豆腐酱

  

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

计时 ()
快速插入表项 (超级列表框1, 1000000)
超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, “这是第” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “行”)
调试输出 (超级列表框1.取表项数 ())
调试输出 (停止计时 ())

子程序名	返回值类型	公开	备 注
快速插入表项
参数名	类 型	参考	可空	数组	备 注
参_超级列表框	超级列表框
插入表项数

变量名	类 型	静态	数组	备 注
文件号	整数型
换行	字节集
计数	字节集
i	整数型
i2	整数型

文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.txt”, 4, )
换行 ＝ 到字节集 ( #换行符 )
计次循环首 (插入表项数 － 1, i)
写出字节集 (文件号, 换行)
计次循环尾 ()
写出字节集 (文件号, 计数)
关闭文件 (文件号)
参_超级列表框.加载文件 (取运行目录 () ＋ “\1.txt”, , 字符 ( #Tab键 ), , , )
删除文件 (取运行目录 () ＋ “\1.txt”)

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 计时 ()<br /> 快速插入表项 (超级列表框1, 1000000)<br /> 超级列表框1.置标题 (超级列表框1.取表项数 () － 1, 0, “这是第” ＋ 到文本 (超级列表框1.取表项数 ()) ＋ “行”)<br /> 调试输出 (超级列表框1.取表项数 ())<br /> 调试输出 (停止计时 ())<br /> <br /> .子程序 快速插入表项<br /> .参数 参_超级列表框, 超级列表框<br /> .参数 插入表项数<br /> .局部变量 文件号, 整数型<br /> .局部变量 换行, 字节集<br /> .局部变量 计数, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\1.txt”, 4, )<br /> 换行 ＝ 到字节集 (#换行符)<br /> .计次循环首 (插入表项数 － 1, i)<br />     写出字节集 (文件号, 换行)<br /> .计次循环尾 ()<br /> 写出字节集 (文件号, 计数)<br /> 关闭文件 (文件号)<br /> 参_超级列表框.加载文件 (取运行目录 () ＋ “\1.txt”, , 字符 (#Tab键), , , )<br /> 删除文件 (取运行目录 () ＋ “\1.txt”)

估计很多人，还是习惯了一边插入表项，一边置标题的方式写内容到超级列表框里面。
其实在新版的超级列表框的基础下。
我们可以把表项写入在本地，在用超级列表框.加载文件（）,直接把一个空的表项导入进超级列表框里。
同样的，与其禁止重画，还不如把内容都存在本地，再导入。

如果，数据在万行以下的，或者有更高级更快速办法的，可以无视。



补充内容 (2023-11-27 08:33):
直接使用 超级列表框1.表项数 ＝ 1000 就行了

小磊88

牛皮，支持,谢谢分享。

wolfpack

这样对本地的读写不是很多次吗？

wolfpack

谢谢。。。。。。。。。。。。。

wolfpack

谢谢。。。。。。。。。。。。。

金叶

long280556182 发表于 2023-12-5 14:51
白高兴，支持库是收费的

我还以为是源码呢

long280556182

白高兴，支持库是收费的

yuzhong

111111111111111111111111111111111

yuzhong

111111111111111111111111111111111

yuzhong

1111111111111111111111