超级列表框去重复，回帖给最佳哦

659736472 · 发表于 2015-5-11 12:13:21

这个咋去重复哦，大神给个代码，谢谢

leiyh · 发表于 2015-5-11 12:13:22

子程序名	返回值类型	公开	备注
_超级列表框去重复
参数名	类型	参考	可空	数组	备注
超级列表框	超级列表框				对象
列索引	整数型				索引

变量名	类型	静态	数组	备注
节点	节点
已删次数	整数型
计次	整数型
临时文本	文本型
逻辑值	逻辑型

计次循环首 (超级列表框.取表项数 (), 计次)
临时文本＝超级列表框.取标题 (计次－ 1 －已删次数, 列索引)
逻辑值＝节点.加入属性 (临时文本, 临时文本)

如果真 (逻辑值＝假)
' 节点中已经存在同名的属性
超级列表框.删除表项 (计次－ 1 －已删次数)
已删次数＝已删次数＋ 1

计次循环尾 ()

i支持库列表	支持库注释
EDataStructure	数据结构支持库
iext	扩展界面支持库一

补充内容 (2015-5-11 12:42):
你这结帖率真是醉了

birdmanxp · 发表于 2015-5-11 12:50:58

leiyh 发表于 2015-5-11 12:17

[/quote]
不必太在意结贴率，重要交流吧。我还是比较推崇微凉大神的吃尾算法去重复，速度确实快
[e=0].版本 2
子程序名返回值类型公开备注
超级列表框高效去重复按照微凉大神的吃尾算法修改而成
变量名类型静态数组备注
i 整数型
i2 整数型
计次循环首 (超级列表框1.取表项数 (), i)
如果真 (超级列表框1.取表项数 () ＜ i)
跳出循环 ()

变量循环首 (超级列表框1.取表项数 (), i ＋ 1, -1, i2)
如果真 (超级列表框1.取标题 (i － 1, 1) ＝超级列表框1.取标题 (i2 － 1, 1))
超级列表框1.删除表项 (i2 － 1)

变量循环尾 ()
计次循环尾 ()
' 以下为重新生成序号，可以去掉加快速度
计次循环首 (超级列表框1.取表项数 (), i)
超级列表框1.置标题 (i － 1, 0, 到文本 (i))
计次循环尾 ()
返回 ()

i支持库列表支持库注释
EDataStructure 数据结构支持库
iext 扩展界面支持库一
.版本 2 .支持库 EDataStructure .支持库 iext</blockquote></div> 不必太在意结贴率，重要交流吧。我还是比较推崇微凉大神的吃尾算法去重复，速度确实快 [e=0].版本 2 .支持库 iext .子程序超级列表框高效去重复, , , 按照微凉大神的吃尾算法修改而成 .局部变量 i, 整数型 .局部变量 i2, 整数型 .计次循环首 (超级列表框1.取表项数 (), i) .如果真 (超级列表框1.取表项数 () ＜ i) 跳出循环 () .如果真结束 .变量循环首 (超级列表框1.取表项数 (), i ＋ 1, -1, i2) .如果真 (超级列表框1.取标题 (i － 1, 1) ＝超级列表框1.取标题 (i2 － 1, 1)) 超级列表框1.删除表项 (i2 － 1) .如果真结束 .变量循环尾 () .计次循环尾 () ' 以下为重新生成序号，可以去掉加快速度 .计次循环首 (超级列表框1.取表项数 (), i) 超级列表框1.置标题 (i － 1, 0, 到文本 (i)) .计次循环尾 () 返回 ()

剩下我de孩子气 · 发表于 2015-5-11 13:17:39

http://www.5a5x.com/06/201012/12012214.html

戒卜掉思恋 · 发表于 2015-5-11 13:43:38

说的回帖个最佳不过他们都回了这么多都没有结贴是也是醉了在看看你的结帖率我更加的醉了

		自动登录	找回密码
密码			注册

[已解决] 超级列表框去重复，回帖给最佳哦

最佳答案

评分

点评