列表框取重复项目并删除的例子给一个 求助

lvxintong

大概就是这个样子的  添加后如果项目里有重复的就自动删除最后添加的  但是我这个写的不对   在线等。。。

疯狂的马籽

.版本 2

.子程序 __启动窗口_创建完毕
.局部变量 i

.计次循环首 (20, i)
    列表框1.加入项目 (到文本 (i), )
.计次循环尾 ()

.子程序 _按钮1_被单击


子程序1 ()

.子程序 子程序1
.局部变量 i
.局部变量 k
.局部变量 全部文本, 文本型
.局部变量 测试数据, 文本型
.局部变量 重复数据, 文本型

k ＝ 列表框1.取项目数 ()
重复数据 ＝ 编辑框1.内容
.计次循环首 (k, i)
    全部文本 ＝ 全部文本 ＋ 列表框1.取项目文本 (i － 1) ＋ #换行符
    .如果真 (寻找文本 (全部文本, 重复数据, , 假) ≠ -1)
        信息框 (“重复了”, 0, )
        列表框1.删除项目 (i － 1)
        跳出循环 ()
    .如果真结束

.计次循环尾 ()

lvxintong

疯狂的马籽 发表于 2012-6-28 19:23
.版本 2

.子程序 __启动窗口_创建完毕

不好使！！！~~  无论写什么都提示重复。

疯狂的马籽

lvxintong 发表于 2012-6-28 19:40
不好使！！！~~  无论写什么都提示重复。

.版本 2
.子程序 __启动窗口_创建完毕
.局部变量 i
.计次循环首 (20, i)
    列表框1.加入项目 (到文本 (i), )
.计次循环尾 ()
.子程序 _按钮1_被单击

子程序1 ()
.子程序 子程序1
.局部变量 i
.局部变量 k
.局部变量 全部文本, 文本型
.局部变量 测试数据, 文本型
.局部变量 重复数据, 文本型
k ＝ 列表框1.取项目数 ()
重复数据 ＝ 编辑框1.内容
.计次循环首 (k, i)
    全部文本 ＝ 列表框1.取项目文本 (i － 1)
    .如果真 (重复数据 ＝ 全部文本)
        信息框 (“重复了”, 0, )
        列表框1.删除项目 (i － 1)
        跳出循环 ()
    .如果真结束
.计次循环尾 ()

素顏じ亦傾城ジ

    这个源码 以前修改的..  你看看能不能达到你要的要求

lvxintong

℡愛國々飯團 发表于 2012-6-28 20:48
这个源码 以前修改的..  你看看能不能达到你要的要求

漏洞很多啊    有很多重复的去不掉

lvxintong

原田夜舞 发表于 2012-6-28 20:39
已搞定.

实测~~不好使  还收我2精币

素顏じ亦傾城ジ

lvxintong 发表于 2012-6-28 21:03
漏洞很多啊    有很多重复的去不掉

   这个  你看看  里面的去重复功能你试试

lvxintong

℡愛國々飯團 发表于 2012-6-28 21:17
这个  你看看  里面的去重复功能你试试

实测  代码挺多的  可就是不好使呢

原田夜舞

lvxintong 发表于 2012-6-28 21:30
实测  代码挺多的  可就是不好使呢

不好意思，只测试了一个，代码没问题
在流程控制时写错了个地方，现在放到 删除或禁止重复.rar (1.38 KB, 下载次数: 20)

2012-6-28 21:53 上传

点击文件名下载附件

后面，已经解决了提示重复仍会添加的问题.