超级列表框显示问题

108937101

如何把下列数据，按每例20行，分列显示？
https://bbs.125.la/forum.php?mod=viewthread&tid=14768033
(出处: 精易论坛)

这是昨天发的一个求助贴，效率基本满意，就是有一点小问题。

当第一次点击按钮载入数据时，超级列表框是可以按我的需求太到效果。但再点一次，问题就来了，它会在前面显示的列后面再增加一列这样显示。



test.e (894.73 KB, 下载次数: 10)

2023-3-20 08:01 上传

点击文件名下载附件

wanpl2006

超级列表框文本分页显示.e (7.21 KB, 下载次数: 6)

2023-3-22 14:44 上传

点击文件名下载附件


算法优化了一会，请给最佳。

乐鱼驴

点击按钮第一行写上下面的
超级列表框1.全部删除（）

108937101

乐鱼驴 发表于 2023-3-20 08:11
点击按钮第一行写上下面的
超级列表框1.全部删除（）

试了，没用

u871

试试这个可不可以

fengshixiaohu

按钮被单击下面 加入 超级列表框1.删除列 (1)

钥匙key

有几个疑问没有弄清楚。。

钥匙key

你的文本总计66行。分割完成后。只能分成2列。
现有代码添加逻辑是
第一列覆盖写入。
第一列之后的全部以新增列形式写入。

不明白你需要的问题。想要什么样的。

钥匙key

  

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

变量名	类 型	静态	数组	备 注
文本	文本型		0
i	整数型
文本1	文本型
表项索引	整数型
列索引	整数型
行数限制	整数型

文本 ＝ 分割文本 ( #常量1, #换行符, )
超级列表框1.全部删除 ()
计次循环首 (超级列表框1.取列数 (), i)
超级列表框1.删除列 (1)
计次循环尾 ()
行数限制 ＝ 20
计次循环首 (取数组成员数 (文本), i)
如果真 (i ≤ 行数限制)
超级列表框1.插入表项 (-1, , , , , )
超级列表框1.置标题 (表项索引, 列索引, 到文本 (i) ＋ 文本 [i])
表项索引 ＝ 表项索引 ＋ 1
如果真 (i ％ 行数限制 ＝ 0)
列索引 ＝ 列索引 ＋ 1
超级列表框1.插入列 (列索引, “第” ＋ 到文本 (列索引 ＋ 1) ＋ “列”, , , , )
表项索引 ＝ 0

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文本1, 文本型<br /> .局部变量 表项索引, 整数型<br /> .局部变量 列索引, 整数型<br /> .局部变量 行数限制, 整数型<br /> <br /> 文本 ＝ 分割文本 (#常量1, #换行符, )<br /> 超级列表框1.全部删除 ()<br /> .计次循环首 (超级列表框1.取列数 (), i)<br />     超级列表框1.删除列 (1)<br /> .计次循环尾 ()<br /> 行数限制 ＝ 20<br /> .计次循环首 (取数组成员数 (文本), i)<br />     .如果真 (i ≤ 行数限制)<br />         超级列表框1.插入表项 (-1, , , , , )<br />     .如果真结束<br />     超级列表框1.置标题 (表项索引, 列索引, 到文本 (i) ＋ 文本 <i>)<br />     表项索引 ＝ 表项索引 ＋ 1<br />     .如果真 (i ％ 行数限制 ＝ 0)<br />         列索引 ＝ 列索引 ＋ 1<br />         超级列表框1.插入列 (列索引, “第” ＋ 到文本 (列索引 ＋ 1) ＋ “列”, , , , )<br />         表项索引 ＝ 0<br />     .如果真结束

这样能绝对保持第一次的结果。不会重复出现。

Suky

超级列表框分页显示例程
https://bbs.125.la/forum.php?mod=viewthread&tid=14750272
(出处: 精易论坛)

按照这个模版    理清思路就可以完成你的源码了