超级列表框去重复行

为仁者真存世也

看源码，帮我写一个 去重复的，是取标题（，1、2、3、4、5）{意思就是整行都一样}都一样的就删掉好了， 注意是去重复行！！，不是去重复标题

是TM老子给的币少，没人来？老子就TM就多点币给你.

大表舅

发多了 刚才也有个

为仁者真存世也

大表舅 发表于 2014-7-7 21:34
发多了  刚才也有个

刚刚没人回，就是我的

Arbitrary

新建 易程序 (3).zip (1.99 KB, 下载次数: 46)

2014-7-7 21:38 上传

点击文件名下载附件

E族x鬼才

lz的口气不小

臭臭臭臭臭Bitch

口气这么大我不知道该不该教

补充内容 (2014-7-7 21:40):
教不会会不会打我？

ma8803

其实是论坛已经有的代码    很简单的啊

  

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
c	文本型		0
a	整数型
欲加入	文本型
结果数组	文本型		0
欲判断	文本型
存在数据	逻辑型
b	整数型
结果文本	文本型

计次循环首 (超级列表框1.取表项数 (), a)
加入成员 (c, 超级列表框1.取标题 (a － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 4))
计次循环尾 ()
计次循环首 (取数组成员数 (c), a)
欲判断 ＝ c [a]
计次循环首 (取数组成员数 (结果数组), b)
如果真 (结果数组 [b] ＝ 欲判断)
存在数据 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (存在数据 ＝ 假)
存在数据 ＝ 假
加入成员 (结果数组, 欲判断)

计次循环尾 ()
超级列表框1.全部删除 ()
重定义数组 (c, 假, 0)
计次循环首 (取数组成员数 (结果数组), a)
c ＝ 分割文本 (结果数组 [a], “,”, )
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (a － 1, 0, c [1])
超级列表框1.置标题 (a － 1, 1, c [2])
超级列表框1.置标题 (a － 1, 2, c [3])
超级列表框1.置标题 (a － 1, 3, c [4])
超级列表框1.置标题 (a － 1, 4, c [5])
计次循环尾 ()
_启动窗口.标题 ＝ “现在还有 ” ＋ 到文本 (超级列表框1.取表项数 ())

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 c, 文本型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 欲加入, 文本型<br /> .局部变量 结果数组, 文本型, , "0"<br /> .局部变量 欲判断, 文本型<br /> .局部变量 存在数据, 逻辑型<br /> .局部变量 b, 整数型<br /> .局部变量 结果文本, 文本型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), a)<br />     加入成员 (c, 超级列表框1.取标题 (a － 1, 0) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 1) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 2) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 3) ＋ “,” ＋ 超级列表框1.取标题 (a － 1, 4))<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (c), a)<br />     欲判断 ＝ c [a]<br />     .计次循环首 (取数组成员数 (结果数组), b)<br />         .如果真 (结果数组 <strong> ＝ 欲判断)<br />             存在数据 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (存在数据 ＝ 假)<br />         存在数据 ＝ 假<br />         加入成员 (结果数组, 欲判断)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 超级列表框1.全部删除 ()<br /> 重定义数组 (c, 假, 0)<br /> .计次循环首 (取数组成员数 (结果数组), a)<br />     c ＝ 分割文本 (结果数组 [a], “,”, )<br />     超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (a － 1, 0, c [1])<br />     超级列表框1.置标题 (a － 1, 1, c [2])<br />     超级列表框1.置标题 (a － 1, 2, c [3])<br />     超级列表框1.置标题 (a － 1, 3, c [4])<br />     超级列表框1.置标题 (a － 1, 4, c [5])<br /> .计次循环尾 ()<br /> _启动窗口.标题 ＝ “现在还有 ” ＋ 到文本 (超级列表框1.取表项数 ())

剩下我de孩子气

http://www.5a5x.com/06/201304/04078754.html

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