数组去重复问题请教

htsLucien

各位大佬们好，我想请教一下关于数组去重的问题
我现在有一份数据2，
我想要筛选出表格种的重复选项只保留一组，并且保留在另一个超级列表框，筛出的数据在右边写上重复数量，如果不重复则写1，

.版本 2
.支持库 iext

.子程序 _按钮39_被单击

超级列表框5.全部删除 ()
数据和 ()

.子程序 数据和
.局部变量 i, 整数型
.局部变量 数据数组, 文本型, , "0"
.局部变量 索引, 整数型
.局部变量 n, 整数型

.计次循环首 (超级列表框4.取表项数 (), i)
    加入成员 (数据数组, 超级列表框4.取标题 (i － 1, 2) ＋ 超级列表框4.取标题 (i － 1, 3) ＋ 超级列表框4.取标题 (i － 1, 4) ＋ 超级列表框4.取标题 (i － 1, 5) ＋ 超级列表框4.取标题 (i － 1, 6) ＋ 超级列表框4.取标题 (i － 1, 7))
.计次循环尾 ()
数组_去重复 (数据数组)
.计次循环首 (取数组成员数 (数据数组), i)
    索引 ＝ 超级列表框5.插入表项 (-1, , , , , )
    超级列表框5.置标题 (i － 1, 1, 超级列表框4.取标题 (i － 1, 2))
    超级列表框5.置标题 (i － 1, 2, 超级列表框4.取标题 (i － 1, 3))
    超级列表框5.置标题 (i － 1, 3, 超级列表框4.取标题 (i － 1, 4))
    超级列表框5.置标题 (i － 1, 4, 超级列表框4.取标题 (i － 1, 5))
    超级列表框5.置标题 (i － 1, 5, 超级列表框4.取标题 (i － 1, 6))
    超级列表框5.置标题 (i － 1, 6, 超级列表框4.取标题 (i － 1, 7))
    超级列表框5.置标题 (i － 1, 0, 到文本 (i))
.计次循环尾 ()
.计次循环首 (超级列表框5.取表项数 (), i)
    超级列表框5.置标题 (i － 1, 7, 子程序13 (i))

.计次循环尾 ()


.子程序 子程序13, 文本型
.参数 对应, 整数型
.局部变量 i, 整数型
.局部变量 n, 整数型
.局部变量 结果, 整数型

.计次循环首 (超级列表框5.取表项数 (), i)
    .计次循环首 (超级列表框4.取表项数 (), n)
        .如果真 (超级列表框5.取标题 (i － 1, 1) ＋ 超级列表框5.取标题 (i － 1, 2) ＋ 超级列表框5.取标题 (i － 1, 3) ＋ 超级列表框5.取标题 (i － 1, 4) ＋ 超级列表框5.取标题 (i － 1, 5) ＋ 超级列表框5.取标题 (i － 1, 6) ＝ 超级列表框4.取标题 (n － 1, 2) ＋ 超级列表框4.取标题 (n － 1, 3) ＋ 超级列表框4.取标题 (n － 1, 4) ＋ 超级列表框4.取标题 (n － 1, 5) ＋ 超级列表框4.取标题 (n － 1, 6) ＋ 超级列表框4.取标题 (n － 1, 7) 且 i ＝ 对应)
            ' 调试输出 (超级列表框5.取标题 (i － 1, 1) ＋ 超级列表框5.取标题 (i － 1, 2) ＋ 超级列表框5.取标题 (i － 1, 3) ＋ 超级列表框5.取标题 (i － 1, 4) ＋ 超级列表框5.取标题 (i － 1, 5) ＋ 超级列表框5.取标题 (i － 1, 6))
            ' 调试输出 (超级列表框4.取标题 (n － 1, 2) ＋ 超级列表框4.取标题 (n － 1, 3) ＋ 超级列表框4.取标题 (n － 1, 4) ＋ 超级列表框4.取标题 (n － 1, 5) ＋ 超级列表框4.取标题 (n － 1, 6) ＋ 超级列表框4.取标题 (n － 1, 7))
            结果 ＝ 结果 ＋ 1
        .如果真结束

    .计次循环尾 ()
.计次循环尾 ()
返回 (到文本 (结果))


这是我自己写的，在数组去重这块，没能筛选出正确的数据，麻烦大佬帮我看看哪里出现了问题
附件中的数据2是待筛选数据，数据1是我筛选出来的数据，
数据1的结果是我想要的结果，但是去重这块没有去干净，麻烦大佬帮忙看看

cherryy

https://bbs.125.la/forum.php?mod=viewthread&tid=14744511用这个例子改改就能用，一样的思路

Suky

你应该在读取超列文本进行组合的时候，应该每列文本之间添加一下分隔符；去重之后用分隔符分割后置入新超列l里；不能用去重后的不重复项目数从原超列里逐一取数据，那样取出来的数据并不是不重复的内容

liantan

例子.e (846.62 KB, 下载次数: 1)

2023-7-21 13:42 上传

点击文件名下载附件
例子

43156060

看看大神