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

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

变量名	类型	静态	数组	备注
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	扩展界面支持库一

变量名	类型	静态	数组	备注
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	扩展界面支持库一

变量名	类型	静态	数组	备注
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	扩展界面支持库一

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

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

变量名	类型	静态	数组	备注
索引	整数型
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	扩展界面支持库一