超级列表框 根据表项列 去重复和过滤 的问题

hyh8800

请问一下，超级列表框 根据表项列  去重复和过滤 的问题？我在论坛搜索过了，没有符合我的。求源码。谢谢
我之前看到一个源码 要按N次才过滤和去重复。
1、把表项列 数字  过滤掉  小于50。
2、把表项列 人数  去重复。

源码.zip (137.94 KB, 下载次数: 4)

2013-3-15 11:44 上传

点击文件名下载附件

ljmst

源码奉上。。。。。。

ljmst

请问过滤掉  50   的  那一行 删除吧

ljmst

这里是代码！！！！已经备注。。。。。

[e]
.版本 2
.支持库 iext

.程序集 窗口程序集1
.程序集变量 个数, 整数型

.子程序 __启动窗口_创建完毕
.局部变量 m, 整数型
.局部变量 n, 整数型

.计次循环首 (20, n)
    m ＝ 超级列表框1.插入表项 (, 到文本 (取随机数 (1, 200)), , , , )
    超级列表框1.置标题 (m, 1, 到文本 (取随机数 (1, 10)))
.计次循环尾 ()


.子程序 _按钮1_被单击
.局部变量 计次, 整数型

.计次循环首 (超级列表框1.取表项数 (), 计次)
    .判断开始 (到整数 (超级列表框1.取标题 (计次 － 1, 0)) ＜ 到整数 (编辑框1.内容))
        超级列表框1.置标题 (计次 － 1, 0, “”)
        ' 超级列表框1.删除表项 (计次 － 1)  ' 如果要是想删除请使用这一行！

    .默认

    .判断结束

.计次循环尾 ()

.子程序 _按钮2_被单击
.局部变量 计次, 整数型
.局部变量 文本, 文本型
.局部变量 内部计次, 整数型

.计次循环首 (超级列表框1.取表项数 (), 计次)
    个数 ＝ 0
    文本 ＝ 超级列表框1.取标题 (计次 － 1, 1)
    .计次循环首 (超级列表框1.取表项数 (), 内部计次)
        .判断开始 (超级列表框1.取标题 (内部计次 － 1, 1) ＝ 文本)
            个数 ＝ 个数 ＋ 1
            .判断开始 (个数 ＞ 1)
                超级列表框1.置标题 (内部计次 － 1, 1, “”)
                ' 超级列表框1.删除表项 (内部计次 － 1)  ' 如果要是想删除请使用这一行！

            .默认

            .判断结束

        .默认

        .判断结束

    .计次循环尾 ()

.计次循环尾 ()
[/e]

hyh8800

ljmst 发表于 2013-3-15 12:06
源码奉上。。。。。。

你的代码不可以只按一次按钮就全部过滤删除，上千行的话，要按好多次才全部过滤

末页

ljmst 发表于 2013-3-15 12:05
这里是代码！！！！已经备注。。。。。

[e]

，这样很慢的，每次都比较所有

有没有更效率的

ljmst

精测试  5000  取重复的需要8秒    去小于50 的只要 1秒   

hyh8800

ljmst 发表于 2013-3-15 13:35
精测试  5000  取重复的需要8秒    去小于50 的只要 1秒

删除要按好几次，才能全部删除完。你加个状态条试试