超级列表框去重复，速度要快些，求算法

熊猫巴布

如图。有很多列。  ：如果有相同的商品ID  只保留一个表项。我自己写的话就会用计次循环   这样太浪费时间。  有没有快的算法。

剩下我de孩子气

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 清除重复IP
   
5. .局部变量 i, 整数型
   
6. .局部变量 jl, 整数型
   
7. .局部变量 没有重复的文本, 文本型
   
8. .局部变量 列表框标题, 整数型, , "0"
   
9. 
   
10. i ＝ 1
    
11. .判断循环首 (i ≤ 列表_代理.取表项数 ())
    
12.     .判断开始 (寻找文本 (没有重复的文本, 列表_代理.取标题 (i － 1, 1) ＋ “:” ＋ 列表_代理.取标题 (i － 1, 2), , 假) ＝ -1)
    
13.         没有重复的文本 ＝ 没有重复的文本 ＋ 列表_代理.取标题 (i － 1, 1) ＋ “:” ＋ 列表_代理.取标题 (i － 1, 2) ＋ #换行符  ' 没有重复的文本用变量来保存没有重复的表项
    
14.         i ＝ i ＋ 1  ' i+1表示循环下一个表项
    
15.     .默认
    
16.         列表_代理.删除表项 (i － 1)
    
17.         i ＝ i － 1  ' 删除的时候删除的是i-1，则超级列表框表项数少了一个，这个时候必须减去一个，
    
18.         i ＝ i ＋ 1  ' 当你减去一个之后必须再加上I+1，否则会一直保存I-1的状态
    
19.         jl ＝ jl ＋ 1  ' 记录重复的文本数量
    
20.     .判断结束
    
21. 
    
22. .判断循环尾 ()
    
23. .如果 (jl ＝ 0)
    
24.     提示框 (“没有重复的代理！”)
    
25.     返回 ()
    
26. .否则
    
27.     提示框 (“共删除” ＋ 到文本 (jl) ＋ “个重复代理！”)
    

复制代码

Antool

先排序，然后再去除应该会快点

H裸奔的鸭子C

超级列表框去除重复项.rar (3.08 KB, 下载次数: 131)

2014-9-13 19:36 上传

点击文件名下载附件
参考看看