网站 › 『编程语言区』 › 【小人国历险记】分享一段自已常用高效快速的数组去重复代码

小人国历险记 发表于 2015-10-18 15:01

【小人国历险记】分享一段自已常用高效快速的数组去重复代码

本帖最后由 小人国历险记 于 2015-10-19 12:58 编辑

分享一段自已常用高效、快速的数组去重复代码可用于超列快速去重
附EXUI超列小技巧：需清空超列多数据时用 “计次循环”单行删 会比“全部清空”更快一些 限EXUI
主要命令：
1、计次循环
2、变量循环
3、删除成员其它：适合新手参考
楼主只是易语言爱好者一位“业余选手”


配色：@繁华落幕

.版本 2
.支持库 iext

.子程序 去除重复
.局部变量 n, 整数型
.局部变量 n1, 整数型
.局部变量 删除数, 整数型
.局部变量 索引, 整数型
.局部变量 临时标记0, 文本型, , 0

重定义数组 (临时标记2, 假, _启动窗口.超级列表框1.取表项数 ())
.计次循环首 (_启动窗口.超级列表框1.取表项数 (), n)
    .如果真 (删全部空 (_启动窗口.超级列表框1.取标题 (n － 1, 1)) ≠ “”)
      临时标记0 ＝ 删全部空 (_启动窗口.超级列表框1.取标题 (n － 1, 1))
    .如果真结束

.计次循环尾 ()
_启动窗口.超级列表框1.全部删除 ()
.计次循环首 (取数组成员数 (临时标记0), n)
    .如果真 (取数组成员数 (临时标记0) ＜ n)
      跳出循环 ()
    .如果真结束
    .变量循环首 (取数组成员数 (临时标记0), n ＋ 1, -1, n1)
      .如果真 (临时标记0 ＝ 临时标记0 )
            删除成员 (临时标记0, n1, )
            删除数 ＝ 删除数 ＋ 1
      .如果真结束

    .变量循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (临时标记0), n)
    处理事件 ()
    索引 ＝ _启动窗口.超级列表框1.插入表项 (-1, , , , , )
    _启动窗口.超级列表框1.置标题 (索引, 0, 到文本 (_启动窗口.超级列表框1.取表项数 ()))
    _启动窗口.超级列表框1.置标题 (索引, 1, 临时标记0 )
    _启动窗口.进度条1.位置 ＝ n
.计次循环尾 ()

Hackerzch 发表于 2015-10-18 15:03

支持一下看看！早起的鸟儿

Errors 发表于 2015-10-18 15:08

学习了！

繁华落幕 发表于 2015-10-18 15:20

{:301_990:}膜拜这么好看的易语言皮肤233

xshn 发表于 2015-10-18 15:42

学习，很精彩的代码

尛龍 发表于 2015-10-18 15:51

写的不错 就是复杂化了一点

dingyin1351567 发表于 2015-10-18 15:52

支持一下看看！早起的鸟儿

叫兽丶 发表于 2015-10-18 16:55

不懂的,得杀死多少脑细胞

Say 发表于 2015-11-22 11:37

学习了，主要是看看皮肤来的

暗夜老猫 发表于 2016-3-1 12:03

配色拿走了，谢谢了。

查看完整版本: 【小人国历险记】分享一段自已常用高效快速的数组去重复代码