超级列表框，分类 排序 问题~ 帮看看大佬们

zzz77f

每次只能统计过去三个，多余的就不见了，而且，还不会自动排序，还会输出空过去，

  

子程序名	返回值类型	公开	备 注
_按钮_自用测试_被单击

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

计次循环首 (超级列表框_中控显示.取表项数 (), i)
如果真 (_软件窗口.超级列表框_中控显示.取标题 (i － 1, 5) ＝ “已完成”)
index ＝ _软件窗口.超级列表框_已完成.插入表项 (, , , , , )
_软件窗口.超级列表框_已完成.置标题 (i － 1, 0, 到文本 (i))
_软件窗口.超级列表框_已完成.置标题 (i － 1, 1, 超级列表框_中控显示.取标题 (i － 1, 1))
_软件窗口.超级列表框_已完成.置标题 (i － 1, 2, 超级列表框_中控显示.取标题 (i － 1, 2))
_软件窗口.超级列表框_已完成.置标题 (i － 1, 3, 超级列表框_中控显示.取标题 (i － 1, 3))
_软件窗口.超级列表框_已完成.置标题 (i － 1, 4, 超级列表框_中控显示.取标题 (i － 1, 4))
_软件窗口.超级列表框_已完成.置标题 (i － 1, 5, 超级列表框_中控显示.取标题 (i － 1, 5))
_软件窗口.超级列表框_中控显示.删除表项 (i － 1)
透明标签_已完成.标题 ＝ “已完成” ＋ 到文本 (_软件窗口.超级列表框_已完成.取表项数 ())

如果真 (_软件窗口.超级列表框_中控显示.取标题 (i － 1, 5) ＝ “未运行”)
index ＝ _软件窗口.超级列表框_已完成.插入表项 (, , , , , )
_软件窗口.超级列表框_未运行.置标题 (i － 1, 0, 到文本 (i))
_软件窗口.超级列表框_未运行.置标题 (i － 1, 1, 超级列表框_中控显示.取标题 (i － 1, 1))
_软件窗口.超级列表框_未运行.置标题 (i － 1, 2, 超级列表框_中控显示.取标题 (i － 1, 2))
_软件窗口.超级列表框_未运行.置标题 (i － 1, 3, 超级列表框_中控显示.取标题 (i － 1, 3))
_软件窗口.超级列表框_未运行.置标题 (i － 1, 4, 超级列表框_中控显示.取标题 (i － 1, 4))
_软件窗口.超级列表框_未运行.置标题 (i － 1, 5, 超级列表框_中控显示.取标题 (i － 1, 5))
_软件窗口.超级列表框_中控显示.删除表项 (i － 1)
透明标签_已完成.标题 ＝ “未运行” ＋ 到文本 (_软件窗口.超级列表框_未运行.取表项数 ())

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮_自用测试_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> <br /> <br /> .计次循环首 (超级列表框_中控显示.取表项数 (), i)<br /> <br />     .如果真 (_软件窗口.超级列表框_中控显示.取标题 (i － 1, 5) ＝ “已完成”)<br />         index ＝ _软件窗口.超级列表框_已完成.插入表项 (, , , , , )<br />         _软件窗口.超级列表框_已完成.置标题 (i － 1, 0, 到文本 (i))<br />         _软件窗口.超级列表框_已完成.置标题 (i － 1, 1, 超级列表框_中控显示.取标题 (i － 1, 1))<br />         _软件窗口.超级列表框_已完成.置标题 (i － 1, 2, 超级列表框_中控显示.取标题 (i － 1, 2))<br />         _软件窗口.超级列表框_已完成.置标题 (i － 1, 3, 超级列表框_中控显示.取标题 (i － 1, 3))<br />         _软件窗口.超级列表框_已完成.置标题 (i － 1, 4, 超级列表框_中控显示.取标题 (i － 1, 4))<br />         _软件窗口.超级列表框_已完成.置标题 (i － 1, 5, 超级列表框_中控显示.取标题 (i － 1, 5))<br />         _软件窗口.超级列表框_中控显示.删除表项 (i － 1)<br />         透明标签_已完成.标题 ＝ “已完成” ＋ 到文本 (_软件窗口.超级列表框_已完成.取表项数 ())<br />     <br /> <br /> <br /> <br />     .如果真 (_软件窗口.超级列表框_中控显示.取标题 (i － 1, 5) ＝ “未运行”)<br />         index ＝ _软件窗口.超级列表框_已完成.插入表项 (, , , , , )<br />         _软件窗口.超级列表框_未运行.置标题 (i － 1, 0, 到文本 (i))<br />         _软件窗口.超级列表框_未运行.置标题 (i － 1, 1, 超级列表框_中控显示.取标题 (i － 1, 1))<br />         _软件窗口.超级列表框_未运行.置标题 (i － 1, 2, 超级列表框_中控显示.取标题 (i － 1, 2))<br />         _软件窗口.超级列表框_未运行.置标题 (i － 1, 3, 超级列表框_中控显示.取标题 (i － 1, 3))<br />         _软件窗口.超级列表框_未运行.置标题 (i － 1, 4, 超级列表框_中控显示.取标题 (i － 1, 4))<br />         _软件窗口.超级列表框_未运行.置标题 (i － 1, 5, 超级列表框_中控显示.取标题 (i － 1, 5))<br />         _软件窗口.超级列表框_中控显示.删除表项 (i － 1)<br /> 透明标签_已完成.标题 ＝ “未运行” ＋ 到文本 (_软件窗口.超级列表框_未运行.取表项数 ())<br />   <br /> <br /> <br /> <br /> <br /> <br /> .计次循环尾 ()

鹏书

你这个删除表项要用倒序遍历啊 用变量循环首

LEOONL

这个和上个贴是一样的？

zzz77f

LEOONL 发表于 2024-8-11 00:22
这个和上个贴是一样的？

多了 一个统计的  就是

真冬

  

子程序名	返回值类型	公开	备 注
_按钮_自用测试_被单击

变量名	类 型	静态	数组	备 注
i	整数型
index	整数型
淋湿超表	超级列表框		0
中控标题5	文本型
i1	整数型
i2	整数型
进度数量	文本型

加入成员 (淋湿超表, _软件窗口.超级列表框_已完成)
加入成员 (淋湿超表, _软件窗口.超级列表框_未运行)
透明标签_已完成.是否自动折行 ＝ 真
变量循环首 (_软件窗口.超级列表框_中控显示.取表项数 () － 1, 0, -1, i)
中控标题5 ＝ _软件窗口.超级列表框_中控显示.取标题 (i, 5)
计次循环首 (取数组成员数 (淋湿超表), i1)
如果真 (寻找文本 (取组件名称 (淋湿超表 [i1]), 中控标题5, , 假) ≠ -1)  ' “已完成”“未运行”
调试输出 (取组件名称 (淋湿超表 [i1]), “找到”, 中控标题5)
index ＝ 淋湿超表 [i1].插入表项 (, 到文本 (i), , , , )
变量循环首 (1, 5, 1, i2)  ' i2既1到5
淋湿超表 [i1].置标题 (index, i2, 超级列表框_中控显示.取标题 (i, i2))
变量循环尾 ()
_软件窗口.超级列表框_中控显示.删除表项 (i)
进度数量 ＝ 进度数量 ＋ 中控标题5 ＋ 到文本 (淋湿超表 [i1].取表项数 ()) ＋ #换行符

计次循环尾 ()
透明标签_已完成.标题 ＝ 进度数量
进度数量 ＝ “”
变量循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮_自用测试_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 淋湿超表, 超级列表框, , "0"<br /> .局部变量 中控标题5, 文本型<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 进度数量, 文本型<br /> <br /> 加入成员 (淋湿超表, _软件窗口.超级列表框_已完成)<br /> 加入成员 (淋湿超表, _软件窗口.超级列表框_未运行)<br /> 透明标签_已完成.是否自动折行 ＝ 真<br /> .变量循环首 (_软件窗口.超级列表框_中控显示.取表项数 () － 1, 0, -1, i)<br />     中控标题5 ＝ _软件窗口.超级列表框_中控显示.取标题 (i, 5)<br />     .计次循环首 (取数组成员数 (淋湿超表), i1)<br />         .如果真 (寻找文本 (取组件名称 (淋湿超表 [i1]), 中控标题5, , 假) ≠ -1)  ' “已完成”“未运行”<br />             调试输出 (取组件名称 (淋湿超表 [i1]), “找到”, 中控标题5)<br />             index ＝ 淋湿超表 [i1].插入表项 (, 到文本 (i), , , , )<br />             .变量循环首 (1, 5, 1, i2)  ' i2既1到5<br />                 淋湿超表 [i1].置标题 (index, i2, 超级列表框_中控显示.取标题 (i, i2))<br />             .变量循环尾 ()<br />             _软件窗口.超级列表框_中控显示.删除表项 (i)<br />             进度数量 ＝ 进度数量 ＋ 中控标题5 ＋ 到文本 (淋湿超表 [i1].取表项数 ()) ＋ #换行符<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     透明标签_已完成.标题 ＝ 进度数量<br />     进度数量 ＝ “”<br /> .变量循环尾 ()

补充内容 (2024-8-11 01:16):
脑子里跑了一下代码发现标签可能会显示出问题

真冬

  

子程序名	返回值类型	公开	备 注
_按钮_自用测试_被单击

变量名	类 型	静态	数组	备 注
i	整数型
index	整数型
淋湿超表	超级列表框		0
中控标题5	文本型
i1	整数型
i2	整数型

加入成员 (淋湿超表, _软件窗口.超级列表框_已完成)
加入成员 (淋湿超表, _软件窗口.超级列表框_未运行)
变量循环首 (_软件窗口.超级列表框_中控显示.取表项数 () － 1, 0, -1, i)
中控标题5 ＝ _软件窗口.超级列表框_中控显示.取标题 (i, 5)
计次循环首 (取数组成员数 (淋湿超表), i1)
如果真 (寻找文本 (取组件名称 (淋湿超表 [i1]), 中控标题5, , 假) ≠ -1)  ' “已完成”“未运行”
调试输出 (取组件名称 (淋湿超表 [i1]), “找到”, 中控标题5)
index ＝ 淋湿超表 [i1].插入表项 (, 到文本 (i), , , , )
变量循环首 (1, 5, 1, i2)  ' i2既1到5
淋湿超表 [i1].置标题 (index, i2, 超级列表框_中控显示.取标题 (i, i2))
变量循环尾 ()
_软件窗口.超级列表框_中控显示.删除表项 (i)

计次循环尾 ()
变量循环尾 ()
透明标签_已完成.是否自动折行 ＝ 真
计次循环首 (取数组成员数 (淋湿超表), i1)
透明标签_已完成.标题 ＝ 透明标签_已完成.标题 ＋ 取文本右边 (取组件名称 (淋湿超表 [i1]), 2 × 3) ＋ 到文本 (淋湿超表 [i1].取表项数 ()) ＋ #换行符
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .子程序 _按钮_自用测试_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 index, 整数型<br /> .局部变量 淋湿超表, 超级列表框, , "0"<br /> .局部变量 中控标题5, 文本型<br /> .局部变量 i1, 整数型<br /> .局部变量 i2, 整数型<br /> <br /> 加入成员 (淋湿超表, _软件窗口.超级列表框_已完成)<br /> 加入成员 (淋湿超表, _软件窗口.超级列表框_未运行)<br /> .变量循环首 (_软件窗口.超级列表框_中控显示.取表项数 () － 1, 0, -1, i)<br />     中控标题5 ＝ _软件窗口.超级列表框_中控显示.取标题 (i, 5)<br />     .计次循环首 (取数组成员数 (淋湿超表), i1)<br />         .如果真 (寻找文本 (取组件名称 (淋湿超表 [i1]), 中控标题5, , 假) ≠ -1)  ' “已完成”“未运行”<br />             调试输出 (取组件名称 (淋湿超表 [i1]), “找到”, 中控标题5)<br />             index ＝ 淋湿超表 [i1].插入表项 (, 到文本 (i), , , , )<br />             .变量循环首 (1, 5, 1, i2)  ' i2既1到5<br />                 淋湿超表 [i1].置标题 (index, i2, 超级列表框_中控显示.取标题 (i, i2))<br />             .变量循环尾 ()<br />             _软件窗口.超级列表框_中控显示.删除表项 (i)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .变量循环尾 ()<br /> 透明标签_已完成.是否自动折行 ＝ 真<br /> .计次循环首 (取数组成员数 (淋湿超表), i1)<br />     透明标签_已完成.标题 ＝ 透明标签_已完成.标题 ＋ 取文本右边 (取组件名称 (淋湿超表 [i1]), 2 × 3) ＋ 到文本 (淋湿超表 [i1].取表项数 ()) ＋ #换行符<br /> .计次循环尾 ()

补充内容 (2024-8-11 01:19):
.版本 2

透明标签_已完成.是否自动折行 ＝ 真
透明标签_已完成.标题 ＝ “”
.计次循环首 (取数组成员数 (淋湿超表), i1)


补充内容 (2024-8-11 01:20):
透明标签_已完成.标题 ＝ “”  '是否自动折行下面补一个清空标签。脑子跑代码确实很费脑

熬夜

_软件窗口.超级列表框_已完成.置标题 (i － 1, 1, 超级列表框_中控显示.取标题 (i － 1, 1))  
改成

_软件窗口.超级列表框_已完成.置标题 (index, 1, 超级列表框_中控显示.取标题 (i － 1, 1))

全部改 懂？

TANC

表项索引错了吧，把置标题 i - 1 换成 index
还有 _软件窗口.超级列表框_中控显示.删除表项 (i － 1)  ，删除需要倒着删才能正常运行，不然 就会被跳过导致后面的表项被跳过
比如第一次循环 表项 = i - 1=0，中控显示.取标题 (i － 1, 5)= 已完成，把表项 0 删除了，这时候 原本的表项 1 就变成表项 0，而实际运行 第二次循环 表项=i - 1=1，实际上是执行的 原本的 表项2，因为表项1已经变成 表项0了