本帖最后由 小人国历险记 于 2015-10-19 12:58 编辑
分享一段自已常用高效、快速的数组去重复代码可用于超列快速去重
附EXUI超列小技巧：需清空超列多数据时用 “计次循环”单行删 会比“全部清空”更快一些 限EXUI
主要命令：
1、计次循环
2、变量循环
3、删除成员 其它：适合新手参考
楼主只是易语言爱好者一位“业余选手”
配色：
e_暗色亮码配色.zip
(319 Bytes, 下载次数: 45)
@繁华落幕
[C++] 纯文本查看 复制代码 .版本 2
.支持库 iext
.子程序 去除重复
.局部变量 n, 整数型
.局部变量 n1, 整数型
.局部变量 删除数, 整数型
.局部变量 索引, 整数型
.局部变量 临时标记0, 文本型, , 0
重定义数组 (临时标记2, 假, _启动窗口.超级列表框1.取表项数 ())
.计次循环首 (_启动窗口.超级列表框1.取表项数 (), n)
.如果真 (删全部空 (_启动窗口.超级列表框1.取标题 (n － 1, 1)) ≠ “”)
临时标记0 [n] ＝ 删全部空 (_启动窗口.超级列表框1.取标题 (n － 1, 1))
.如果真结束
.计次循环尾 ()
_启动窗口.超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (临时标记0), n)
.如果真 (取数组成员数 (临时标记0) ＜ n)
跳出循环 ()
.如果真结束
.变量循环首 (取数组成员数 (临时标记0), n ＋ 1, -1, n1)
.如果真 (临时标记0 [n] ＝ 临时标记0 [n1])
删除成员 (临时标记0, n1, )
删除数 ＝ 删除数 ＋ 1
.如果真结束
.变量循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (临时标记0), n)
处理事件 ()
索引 ＝ _启动窗口.超级列表框1.插入表项 (-1, , , , , )
_启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (_启动窗口.超级列表框1.取表项数 ()))
_启动窗口.超级列表框1.置标题 (索引, 1, 临时标记0 [n])
_启动窗口.进度条1.位置 ＝ n
.计次循环尾 ()
| 
发表于 2015-10-18 15:01
发表于 2015-10-18 15:20
膜拜这么好看的易语言皮肤233
