超级列表框把重复的数据标记下

396384183

请问如果有上万个这样的数据，想做个两哥按钮，  主要做第一个按钮这个非常重要标记重复且不删除
第一个按钮是：把重复的在超级列表框后面的一列给标记下“已重复”，
第二个按钮是：在第一个按钮的基础行去重复，   

冬夏

找重复文本.e (508.4 KB, 下载次数: 29)

2022-4-7 21:16 上传

点击文件名下载附件

补充内容 (2022-4-7 21:19):
删除那里你可以再自己优化一下，比如全部删除再新加，模块你就自己在论坛找一下，都是大神们的模块，自己找Hash表类的也可以。。

396384183

想着速度越快越好，平时大概有5K-1W的数据

黄昏将至

读取数据置超级列表框时添加判断。把重复的位置添加到数组中存储 然后就可以实现你想要的功能

走一回

5K~1W的量,慢的代码也用不了两秒的.还有你的第二个按钮到底要不要把重复的删除.

补充内容 (2022-4-7 20:02):
第一个按钮作标记,不同的文本作的标记是一样还是不一样? 要用什么标记? 怎样的标记?

396384183

走一回 发表于 2022-4-7 20:02
5K~1W的量,慢的代码也用不了两秒的.还有你的第二个按钮到底要不要把重复的删除.

补充内容 (2022-4-7 20:02 ...

也不是说2秒就可以解决 能解决就行  主要是第一个按钮啦

396384183

走一回 发表于 2022-4-7 20:02
5K~1W的量,慢的代码也用不了两秒的.还有你的第二个按钮到底要不要把重复的删除.

补充内容 (2022-4-7 20:02 ...

因为只想知道重复的数据 不先删除里面的数据

Suky

396384183 发表于 2022-4-7 20:09
因为只想知道重复的数据 不先删除里面的数据

取标题加入数组
双层循环比对判断是否重复

396384183

一路生花 发表于 2022-4-7 20:39
取标题加入数组
双层循环比对判断是否重复

可以写个实例吗？

Suky

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
表项数组	文本型		0
数量	整数型
是否重复	逻辑型
n	整数型
i	整数型

' 取要比对的列每一项标题加入数组
计次循环首 (超级列表框1.取表项数 (), n)
加入成员 (表项数组, 超级列表框1.取标题 (n － 1, 1))
计次循环尾 ()
' 循环比对是否重复
数量 ＝ 取数组成员数 (表项数组)
计次循环首 (数量, n)
计次循环首 (数量 － 1, i)
如果真 (表项数组 [n] ＝ 表项数组 [i])
是否重复 ＝ 真
跳出循环 ()

计次循环尾 ()
如果真 (是否重复 ＝ 真)
超级列表框1.置标题 (n, 2, “已重复”)

是否重复 ＝ 假
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .子程序 子程序1<br /> .局部变量 表项数组, 文本型, , "0"<br /> .局部变量 数量, 整数型<br /> .局部变量 是否重复, 逻辑型<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> <br /> ' 取要比对的列每一项标题加入数组<br /> .计次循环首 (超级列表框1.取表项数 (), n)<br />     加入成员 (表项数组, 超级列表框1.取标题 (n － 1, 1))<br /> .计次循环尾 ()<br /> ' 循环比对是否重复<br /> 数量 ＝ 取数组成员数 (表项数组)<br /> .计次循环首 (数量, n)<br />     .计次循环首 (数量 － 1, i)<br />         .如果真 (表项数组 [n] ＝ 表项数组 <i>)<br />             是否重复 ＝ 真<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (是否重复 ＝ 真)<br />         超级列表框1.置标题 (n, 2, “已重复”)<br />     .如果真结束<br /> <br />     是否重复 ＝ 假<br /> .计次循环尾 ()

比对是否重复可以用别的写法    我这只是举个例子

补充内容 (2022-4-7 20:49):
去重复就更简单了      直接判断超列是否重复列的标题文本      重复的表项删除即可    用变量循环     从索引最大值往索引0处理