超级列表框去重复源码修改（去重复+去包含重复）

creaetpv

目前源码可以实现去重复，还要实现被包含了也去重复

比如列表框有四条数据：

收纳
收纳
收纳盒
内衣收纳盒

目前去重之后会剩下：

收纳
收纳盒
内衣收纳盒

要实现的效果，只剩下，内衣收纳盒，也就是被包含的要删掉

源码如下：

删除重复文本.e (4.17 KB, 下载次数: 48)

2018-10-22 21:39 上传

点击文件名下载附件

lzzolhvjye

creaetpv 发表于 2018-10-22 23:25
把这些数据粘贴进去：

内衣

都是笨方法，不过应该能达到你的要求了。

jr21066

例子来了

creaetpv

jr21066 发表于 2018-10-22 21:43
例子来了

实现不了去除被包含的，比如里面有
1
123
1234
12345
123456

只留下123456，其他删除

jr21066

看这个行不行

  

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

变量名	类 型	静态	数组	备 注
计数器	整数型
当前值	文本型
偏移	整数型

计次循环首 (超级列表框1.取表项数 (), 计数器)
当前值 ＝ 超级列表框1.取标题 (超级列表框1.取表项数 () － 计数器, 0)
循环判断首 ()
偏移 ＝ 超级列表框1.查找表项 (当前值, , 假, 0)
如果 (取文本长度 (超级列表框1.取标题 (偏移, 0)) ＞ 取文本长度 (当前值))
当前值 ＝ 超级列表框1.取标题 (偏移, 0)
超级列表框1.删除表项 (偏移)

循环判断尾 (偏移 ≠ -1)
超级列表框1.插入表项 (, 当前值, , , , )
计次循环尾 ()

i支持库列表	支持库注释
IEXT	(未知支持库)

.版本 2<br /> .支持库 IEXT<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 计数器, 整数型<br /> .局部变量 当前值, 文本型<br /> .局部变量 偏移, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), 计数器)<br />     当前值 ＝ 超级列表框1.取标题 (超级列表框1.取表项数 () － 计数器, 0)<br />     .循环判断首 ()<br />         偏移 ＝ 超级列表框1.查找表项 (当前值, , 假, 0)<br />         .如果 (取文本长度 (超级列表框1.取标题 (偏移, 0)) ＞ 取文本长度 (当前值))<br />             当前值 ＝ 超级列表框1.取标题 (偏移, 0)<br />         .否则<br />             超级列表框1.删除表项 (偏移)<br />         .如果结束<br /> <br />     .循环判断尾 (偏移 ≠ -1)<br />     超级列表框1.插入表项 (, 当前值, , , , )<br /> .计次循环尾 ()

补充内容 (2018-10-22 22:08):
这个代码不好.只是严格按要求做的.实用时非常不建议用这种

jr21066

做了个子过程.送进两个文本.相似时返回长文本.不同时返回空

  

子程序名	返回值类型	公开	备 注
比较返回文本	文本型
参数名	类 型	参考	可空	数组	备 注
参数一	文本型
参数二	文本型

变量名	类 型	静态	数组	备 注
局_文本1	文本型
局_文本2	文本型

如果 (取文本长度 (参数一) ＞ 取文本长度 (参数二))
局_文本1 ＝ 参数一
局_文本2 ＝ 参数二
局_文本2 ＝ 参数一
局_文本1 ＝ 参数二
调试输出 (局_文本2, 局_文本1, 局_文本2 ≈ 局_文本1)
如果 (局_文本1 ≈ 局_文本2)
返回 (局_文本1)
返回 (“”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 比较返回文本, 文本型<br /> .参数 参数一, 文本型<br /> .参数 参数二, 文本型<br /> .局部变量 局_文本1, 文本型<br /> .局部变量 局_文本2, 文本型<br /> <br /> .如果 (取文本长度 (参数一) ＞ 取文本长度 (参数二))<br />     局_文本1 ＝ 参数一<br />     局_文本2 ＝ 参数二<br /> .否则<br />     局_文本2 ＝ 参数一<br />     局_文本1 ＝ 参数二<br /> .如果结束<br /> 调试输出 (局_文本2, 局_文本1, 局_文本2 ≈ 局_文本1)<br /> .如果 (局_文本1 ≈ 局_文本2)<br />     返回 (局_文本1)<br /> .否则<br />     返回 (“”)

lufanjingyi

做好了   有点麻烦    想法是OK的

lzzolhvjye

应该可以达到你要的效果吧。

creaetpv

lzzolhvjye 发表于 2018-10-22 23:03
应该可以达到你要的效果吧。

666，是这个效果，刚才给你打赏了100精币，但是我新手看不太懂源码，能不能帮我修改下下面我上传的那个附件，帮我改下，然后我选你最佳

creaetpv

把这些数据粘贴进去：

内衣
内衣
内衣收纳盒
收纳盒
收纳
件套
三件套

然后去包含之后留下：

内衣收纳盒
三件套

这样的效果


去包含.e (3.2 KB, 下载次数: 7)

2018-10-22 23:23 上传

点击文件名下载附件