取超级列表框重复项目到另一超级列表框

zhushengxi

如题取超级列表框重复项目到另一超级列表框如：0列为序号，1列为自定义数字，2列为内容

检查条件为1列自定义数字，如果重复了，把两个重复的行都插入到另一个超级列表框中


附：1、不仅仅是两个重复而是两个以上重复
      2、重复条件不止是1个，可能是多个，比如1重复，2重复，3重复等等统一都插到另一个超级列表框中

梦屿千寻

.版本 2
.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量 表项数, 整数型
.局部变量 i, 整数型

表项数 ＝ 超级列表框1.取表项数 ()
.计次循环首 (表项数, i)
    超级列表框1.置标题 (i － 1, 0, 到文本 (i))
.计次循环尾 ()

.子程序 _按钮1_被单击
.局部变量 a, 整数型
.局部变量 表项数, 整数型
.局部变量 自定义数字, 文本型
.局部变量 内容, 文本型
.局部变量 列表框2索引, 整数型
.局部变量 列表框1表项数, 整数型
.局部变量 列表框2表项数, 整数型
.局部变量 i, 整数型


表项数 ＝ 超级列表框1.取表项数 ()
.计次循环首 (表项数, a)
    .如果真 (超级列表框1.查找表项 (超级列表框1.取标题 (a － 1, 1), , , 1) ≠ -1 且 超级列表框1.查找表项 (超级列表框1.取标题 (a － 1, 1), , , 1) ≠ a － 1)
        自定义数字 ＝ 超级列表框1.取标题 (a － 1, 1)
        内容 ＝ 超级列表框1.取标题 (a － 1, 2)
        列表框2索引 ＝ 超级列表框2.插入表项 (, , , , , )
        超级列表框2.置标题 (列表框2索引, 1, 自定义数字)
        超级列表框2.置标题 (列表框2索引, 2, 内容)
        超级列表框1.置标题 (a － 1, 1, “”)
        超级列表框1.置标题 (a － 1, 2, “”)
    .如果真结束

.计次循环尾 ()

.判断循环首 (超级列表框1.查找表项 (“”, , , 1) ≠ -1)
    超级列表框1.删除表项 (超级列表框1.查找表项 (“”, , , 1))
.判断循环尾 ()


列表框1表项数 ＝ 超级列表框1.取表项数 ()
.计次循环首 (列表框1表项数, i)
    超级列表框1.置标题 (i － 1, 0, 到文本 (i))
.计次循环尾 ()

列表框2表项数 ＝ 超级列表框2.取表项数 ()
.计次循环首 (列表框2表项数, i)
    超级列表框2.置标题 (i － 1, 0, 到文本 (i))
.计次循环尾 ()

梦屿千寻

梦屿千寻 发表于 2024-7-10 14:06
.版本 2
.支持库 iext

补充下源码

fire9

一个demo。      

补充内容 (2024-7-10 14:11):
我丢，有问题。

fire9

                              ，

补充内容 (2024-7-10 14:10):
也不知道你是不是这个意思。

fire9

那这样得了。        也不知道是不是你要的效果，，，，

梦屿千寻

梦屿千寻 发表于 2024-7-10 14:07
补充下源码

效果图。第一次帮忙回答问题哈哈哈，浅薄之见

zhushengxi

梦屿千寻 发表于 2024-7-10 14:22
效果图。第一次帮忙回答问题哈哈哈，浅薄之见

1、第一个超级列表框内容不需要删除，取过去就行了
2、都要取到第二个超级列表框不仅是下面两个重复项

zhushengxi

fire9 发表于 2024-7-10 14:15
那这样得了。        也不知道是不是你要的效果，，，，

查重速度能能不能快点，这个是符合我的想法的，就是我有5万条数据，走一遍有点慢了

fire9

zhushengxi 发表于 2024-7-10 15:02
查重速度能能不能快点，这个是符合我的想法的，就是我有5万条数据，走一遍有点慢了 ...

算法自己优化吧。