易语言超级列表框怎样删除里面的重复项?
发布网友
发布时间：2022-04-28 17:34
共2个回答
热心网友
时间：2022-06-21 01:13
.参数 超级列表框, 超级列表框, , 对象
.参数 列索引, 整数型, ,
.参数 列索引1, 整数型,
.参数 列索引2, 整数型,
.局部变量 计次, 整数型
.局部变量 文本, 文本型
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 计次1, 整数型
.局部变量 文本3, 文本型
.局部变量 文本4, 文本型
.局部变量 文本5, 文本型
.计次循环首 (超级列表框.取表项数 (), 计次)
文本 ＝ 超级列表框.取标题 (计次 － 1, 列索引)
文本1 ＝ 超级列表框.取标题 (计次 － 1, 列索引1)
文本2 ＝ 超级列表框.取标题 (计次 － 1, 列索引2)
.计次循环首 (超级列表框.取表项数 (), 计次1)
文本3 ＝ 超级列表框.取标题 (计次1 － 1, 列索引)
文本4 ＝ 超级列表框.取标题 (计次1 － 1, 列索引1)
文本5 ＝ 超级列表框.取标题 (计次1 － 1, 列索引2)
.如果真 (文本3 ＝ 文本 且 文本4 ＝ 文本1 且 文本5 ＝ 文本2 且 计次 ≠ 计次1)
超级列表框.删除表项 (计次 － 1)
.如果真结束
处理事件 ()
.计次循环尾 ()
处理事件 ()
.计次循环尾 ()
我这个可以多条件决断，不知道是否有什么问题
热心网友
时间：2022-06-21 01:14
追答
以列表框为例写的代码： 超级列表框自己修改过来吧再。主要代码写了。测试没问题。
需要我写的一个模块，请加载进程序。
---------------------------------------------------------------
QQ：812465371
-------------------------------------------------------------------------------------------------------------
.版本 2
.子程序 _按钮1_被单击
.局部变量 n, 整数型
.局部变量 m, 整数型
.局部变量 x, 整数型
.局部变量 初始成员, 文本型
.局部变量 待进入的成员, 文本型, , "0"
.局部变量 确定的成员, 文本型, , "0"
.局部变量 y, 整数型
' ------------------------初始化变量
m ＝ 0
初始成员 ＝ “”
' --------------------------------------导出列表框内容，并清空
.计次循环首 (列表框1.取项目数 (), n)
初始成员 ＝ 初始成员 ＋ 列表框1.取项目文本 (n － 1) ＋ “#/##”
.计次循环尾 ()
列表框1.清空 ()
数组清零 (确定的成员)
' -----------------------------------------------准备列表框成员
待进入的成员 ＝ 分割文本 (初始成员, “#/##”, )
' --------------------------------------------对待进入列表框的成员逐一重复性检测
.计次循环首 (取数组成员数 (待进入的成员), m)
.如果真 (数组_是否属于数组成员_文本型 (待进入的成员 [m], 确定的成员) ＝ 假)
加入成员 (确定的成员, 待进入的成员 [m])
.如果真结束
.计次循环尾 ()
.计次循环首 (取数组成员数 (确定的成员), y)
列表框1.加入项目 (确定的成员 [y], )
.计次循环尾 ()
