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

zhushengxi

fire9 发表于 2024-7-10 15:07
算法自己优化吧。

好吧，大佬给个优化方向呗

梦屿千寻

zhushengxi 发表于 2024-7-10 14:44
1、第一个超级列表框内容不需要删除，取过去就行了
2、都要取到第二个超级列表框不仅是下面两个重复项 ...

fire9

zhushengxi 发表于 2024-7-10 15:11
好吧，大佬给个优化方向呗

循环次数，或 循环里的代码

zhushengxi

梦屿千寻 发表于 2024-7-10 15:11

有5万条数据，能加快检测速度吗

梦屿千寻

zhushengxi 发表于 2024-7-10 15:43
有5万条数据，能加快检测速度吗

多线程呗，加个线程池。或者另起思路，处理数据还得是Excel

Suky

  

变量名	类 型	静态	数组	备 注
列文本	文本型
a	整数型
i	整数型
n	整数型
sy	整数型

超级列表框2.全部删除 ()
计次循环首 (超级列表框1.取表项数 (), i)
列文本 ＝ 超级列表框1.取标题 (i － 1, 1)
a ＝ 超级列表框1.查找表项 (列文本, , 真, 1)  ' 第一次查找，从索引0开始
a ＝ 超级列表框1.查找表项 (列文本, a ＋ 1, 真, 1)  ' 第二次查找，从第一次查找结果的下一项开始
如果真 (a ＜ 0)  ' 少于两个，跳过插入超列2的操作
到循环尾 ()
sy ＝ 超级列表框2.插入表项 (, , , , , )  ' 没被跳过，开始插入表项和置标题
计次循环首 (超级列表框1.取列数 () － 1, n)
超级列表框2.置标题 (sy, n, 超级列表框1.取标题 (i － 1, n))  ' 取除了序号列以外的内容置标题
计次循环尾 ()
计次循环尾 ()
计次循环首 (超级列表框2.取表项数 (), i)  ' 重置序号列标题
超级列表框2.置标题 (i － 1, 0, 到文本 (i))
计次循环尾 ()

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 列文本, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> .局部变量 sy, 整数型<br /> <br /> 超级列表框2.全部删除 ()<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     列文本 ＝ 超级列表框1.取标题 (i － 1, 1)<br />     a ＝ 超级列表框1.查找表项 (列文本, , 真, 1)  ' 第一次查找，从索引0开始<br />     a ＝ 超级列表框1.查找表项 (列文本, a ＋ 1, 真, 1)  ' 第二次查找，从第一次查找结果的下一项开始<br />     .如果真 (a ＜ 0)  ' 少于两个，跳过插入超列2的操作<br />         到循环尾 ()<br />     .如果真结束<br />     sy ＝ 超级列表框2.插入表项 (, , , , , )  ' 没被跳过，开始插入表项和置标题<br />     .计次循环首 (超级列表框1.取列数 () － 1, n)<br />         超级列表框2.置标题 (sy, n, 超级列表框1.取标题 (i － 1, n))  ' 取除了序号列以外的内容置标题<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> .计次循环首 (超级列表框2.取表项数 (), i)  ' 重置序号列标题<br />     超级列表框2.置标题 (i － 1, 0, 到文本 (i))<br /> .计次循环尾 ()

新月才子2

fire9 发表于 2024-7-10 14:09
，

补充内容 (2024-7-10 14:10):

他是要剪切过去,不是复制

新月才子2

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

用多线程

补充内容 (2024-7-17 15:13):
鱼刺,许可证.......