易语言源码丨超级列表框删除重复项_超级列表框如何删重重新编号的例子

熬夜

超级列表框删除重复项并重新编号的例子

  

子程序名	返回值类型	公开	备 注
删除重复

变量名	类 型	静态	数组	备 注
i3	整数型
记录	整数型
检测有没有重复	文本型
排序	整数型

i3 ＝ 1
判断循环首 (i3 ≤ 定时列表.取表项数 ())
' 输出调试文本 (i)
判断 (寻找文本 (检测有没有重复, 定时列表.取标题 (i3 － 1, 1), , 假) ＝ -1)  ' 如果没有发现重复就怎么样 发现了 就怎么样
检测有没有重复 ＝ 检测有没有重复 ＋ 定时列表.取标题 (i3 － 1, 1) ＋ #换行符
i3 ＝ i3 ＋ 1
' 输出调试文本 (检测有没有重复)


' 输出调试文本 (i)
定时列表.删除表项 (i3 － 1)
i3 ＝ i3 － 1
i3 ＝ i3 ＋ 1
' 输出调试文本 (i)
记录 ＝ 记录 ＋ 1

判断循环尾 ()
处理事件 ()
如果 (记录 ＝ 0)
' 信息框 (“没有重复的内容！”, 0, , )
' 信息框 (“共删除” ＋ 到文本 (记录) ＋ “个重复内容！”, 0, , )

排序 ＝ 定时列表.取表项数 ()  ' 重新排序
计次循环首 (排序, i3)
定时列表.置标题 (i3 － 1, 0, 到文本 (i3))
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 删除重复<br /> .局部变量 i3, 整数型<br /> .局部变量 记录, 整数型<br /> .局部变量 检测有没有重复, 文本型<br /> .局部变量 排序, 整数型<br /> <br /> i3 ＝ 1<br /> .判断循环首 (i3 ≤ 定时列表.取表项数 ())<br />     ' 输出调试文本 (i)<br />     .判断开始 (寻找文本 (检测有没有重复, 定时列表.取标题 (i3 － 1, 1), , 假) ＝ -1)  ' 如果没有发现重复就怎么样 发现了 就怎么样<br /> <br />         检测有没有重复 ＝ 检测有没有重复 ＋ 定时列表.取标题 (i3 － 1, 1) ＋ #换行符<br />         i3 ＝ i3 ＋ 1<br />         ' 输出调试文本 (检测有没有重复)<br />     .默认<br /> <br />         ' 输出调试文本 (i)<br />         定时列表.删除表项 (i3 － 1)<br />         i3 ＝ i3 － 1<br />         i3 ＝ i3 ＋ 1<br />         ' 输出调试文本 (i)<br />         记录 ＝ 记录 ＋ 1<br />     .判断结束<br /> <br /> .判断循环尾 ()<br /> 处理事件 ()<br /> .如果 (记录 ＝ 0)<br />     ' 信息框 (“没有重复的内容！”, 0, , )<br /> .否则<br />     ' 信息框 (“共删除” ＋ 到文本 (记录) ＋ “个重复内容！”, 0, , )<br /> .如果结束<br /> <br /> 排序 ＝ 定时列表.取表项数 ()  ' 重新排序<br /> .计次循环首 (排序, i3)<br />     定时列表.置标题 (i3 － 1, 0, 到文本 (i3))<br /> .计次循环尾 ()

大佬~不要喷哈  


定时列表 是列表框名字  改成自己的 比如 超级列表框1


补充内容 (2020-4-26 15:26):
可以自己改下 判断那一列 内容重复 进行删除 都有备注哈 这里默认判断的是 第一列哈

1425113841

  

变量名	类 型	静态	数组	备 注
x	整数型
OStr	文本型
AStr	文本型
count	整数型
y	整数型

变量循环首 (超级列表框3.取表项数 () － 1, 0, -1, x)
OStr ＝ 超级列表框3.取标题 (x, 1)
count ＝ 0
计次循环首 (超级列表框3.取表项数 (), y)
AStr ＝ 超级列表框3.取标题 (y － 1, 1)
如果真 (AStr ＝ OStr)
count ＝ count ＋ 1

计次循环尾 ()
如果真 (count ＞ 1)
超级列表框3.删除表项 (x)

变量循环尾 ()
计次循环首 (超级列表框3.取表项数 (), x)
超级列表框3.置标题 (x － 1, 0, 到文本 (x))
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 x, 整数型<br /> .局部变量 OStr, 文本型<br /> .局部变量 AStr, 文本型<br /> .局部变量 count, 整数型<br /> .局部变量 y, 整数型<br /> <br /> .变量循环首 (超级列表框3.取表项数 () － 1, 0, -1, x)<br />     OStr ＝ 超级列表框3.取标题 (x, 1)<br />     count ＝ 0<br />     .计次循环首 (超级列表框3.取表项数 (), y)<br />         AStr ＝ 超级列表框3.取标题 (y － 1, 1)<br />         .如果真 (AStr ＝ OStr)<br />             count ＝ count ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (count ＞ 1)<br />         超级列表框3.删除表项 (x)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> .计次循环首 (超级列表框3.取表项数 (), x)<br />     超级列表框3.置标题 (x － 1, 0, 到文本 (x))<br /> .计次循环尾 ()

1425113841

  

变量名	类 型	静态	数组	备 注
x	整数型
OStr	文本型
AStr	文本型
count	整数型
y	整数型

变量循环首 (超级列表框3.取表项数 () － 1, 0, -1, x)
OStr ＝ 超级列表框3.取标题 (x, 1)
count ＝ 0
计次循环首 (超级列表框3.取表项数 (), y)
AStr ＝ 超级列表框3.取标题 (y － 1, 1)
如果真 (AStr ＝ OStr)
count ＝ count ＋ 1

计次循环尾 ()
如果真 (count ＞ 1)
超级列表框3.删除表项 (x)

变量循环尾 ()
计次循环首 (超级列表框3.取表项数 (), x)
超级列表框3.置标题 (x － 1, 0, 到文本 (x))
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 x, 整数型<br /> .局部变量 OStr, 文本型<br /> .局部变量 AStr, 文本型<br /> .局部变量 count, 整数型<br /> .局部变量 y, 整数型<br /> <br /> .变量循环首 (超级列表框3.取表项数 () － 1, 0, -1, x)<br />     OStr ＝ 超级列表框3.取标题 (x, 1)<br />     count ＝ 0<br />     .计次循环首 (超级列表框3.取表项数 (), y)<br />         AStr ＝ 超级列表框3.取标题 (y － 1, 1)<br />         .如果真 (AStr ＝ OStr)<br />             count ＝ count ＋ 1<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (count ＞ 1)<br />         超级列表框3.删除表项 (x)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> .计次循环首 (超级列表框3.取表项数 (), x)<br />     超级列表框3.置标题 (x － 1, 0, 到文本 (x))<br /> .计次循环尾 ()

熬夜

1425113841 发表于 2020-4-26 16:29
[e=0].版本 2
.支持库 iext

数一数行数  是不是一样差了一行老哥

kentfung

1425113841 发表于 2020-4-26 16:29
[e=0].版本 2
.支持库 iext

用查找表项不香吗？？

1425113841

490202517 发表于 2020-4-26 16:51
数一数行数  是不是一样差了一行老哥

xx累加和这个能一样比？？

kentfung

  

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

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

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

置随机数种子 ()
计次循环首 (100, i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (i))
超级列表框1.置标题 (索引, 1, 到文本 (取随机数 (1, 10)))
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
i	整数型
temp	文本型
索引	整数型

变量循环首 (超级列表框1.取表项数 () － 1, 0, -1, i)
temp ＝ 超级列表框1.取标题 (i, 1)
索引 ＝ 超级列表框1.查找表项 (temp, , , 1)
如果真 (索引 ≠ -1 且 索引 ≠ i)
超级列表框1.删除表项 (i)

变量循环尾 ()
计次循环首 (超级列表框1.取表项数 (), i)
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 置随机数种子 ()<br /> .计次循环首 (100, i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (i))<br />     超级列表框1.置标题 (索引, 1, 到文本 (取随机数 (1, 10)))<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 temp, 文本型<br /> .局部变量 索引, 整数型<br /> <br /> .变量循环首 (超级列表框1.取表项数 () － 1, 0, -1, i)<br />     temp ＝ 超级列表框1.取标题 (i, 1)<br />     索引 ＝ 超级列表框1.查找表项 (temp, , , 1)<br />     .如果真 (索引 ≠ -1 且 索引 ≠ i)<br />         超级列表框1.删除表项 (i)<br />     .如果真结束<br /> <br /> .变量循环尾 ()<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     超级列表框1.置标题 (i － 1, 0, 到文本 (i))<br /> .计次循环尾 ()

kentfung

超级列表框去重.e (3.53 KB, 下载次数: 62)

2020-4-26 17:22 上传

点击文件名下载附件
下载积分: 精币 -2 枚

杨明煜

学习看看....................

3145741753

写的不错，但是有点复杂，