超级列表框表项去重复问题

不停的思念

导入帐号密码时，自动把重复的表项删除掉，再次导入时把重复的表项也一样删除，然后自动排列好序列号 ，不要跟我说用模块，求纯源码 新建文件夹.rar (1.63 KB, 下载次数: 35)

2012-4-5 16:24 上传

点击文件名下载附件

kingsee

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

.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 帐号密码, 文本型, , "2"
.局部变量 总数, 整数型
.局部变量 a, 整数型
.局部变量 表项索引, 整数型
.局部变量 是否存在, 逻辑型
.局部变量 i, 整数型

通用对话框1.初始目录 ＝ 取运行目录 ()
通用对话框1.打开 ()
数组 ＝ 分割文本 (到文本 (读入文件 (通用对话框1.文件名)), #换行符, )
总数 ＝ 取数组成员数 (数组)
.计次循环首 (总数, a)
    帐号密码 ＝ 分割文本 (数组 [a], “----”, )
    .如果真 (取数组成员数 (帐号密码) ＝ 2)
        .计次循环首 (超级列表框1.取表项数 (), i)
            .如果 (超级列表框1.取标题 (i － 1, 1) ＝ 帐号密码 [1])
                是否存在 ＝ 真
                跳出循环 ()
            .否则
                是否存在 ＝ 假
            .如果结束

        .计次循环尾 ()
        .如果真 (是否存在 ＝ 假)
            表项索引 ＝ 超级列表框1.插入表项 (, , , , , )
            超级列表框1.置标题 (表项索引, 0, 到文本 (超级列表框1.取表项数 ()))
            超级列表框1.置标题 (表项索引, 1, 帐号密码 [1])
            超级列表框1.置标题 (表项索引, 2, 帐号密码 [2])


        .如果真结束

    .如果真结束

.计次循环尾 ()

[/e]

蟋蟀

是有账号重复了就删掉么？？？

不停的思念

╔⑩冄⒇╗ 发表于 2012-4-5 16:30
是有账号重复了就删掉么？？？

是的，导入时自动删掉

蟋蟀

哎。。。刚有事去了。。。楼上正解。。。