数组去重复

我的yyy123

昨天弄串口，收到的数据重复不好看，就想着去掉这些重复，应该是挺简单的，于是写了一下，结果不理想，精易模块中到是有，想这这个应该不难，于是折腾了一个小时，弄出来了，大佬门看看有没有改进的。

.版本 2

.子程序 数组_去重复, 文本型
.参数 欲去除重复的文本, 文本型
.参数 分割符, 文本型
.局部变量 最终文本, 文本型
.局部变量 文本数组1, 文本型, , "0"
.局部变量 文本数组2, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 ii, 整数型

文本数组1 ＝ 分割文本 (欲去除重复的文本, 分割符, )
文本数组2 ＝ 文本数组1
.计次循环首 (取数组成员数 (文本数组1), i)
    .计次循环首 (取数组成员数 (文本数组1), ii)
        .如果真 (i ≠ ii)
            .如果真 (文本数组1 [i] ＝ 文本数组2 [ii])
                删除成员 (文本数组2, ii, )
                删除成员 (文本数组1, ii, )
                重定义数组 (文本数组2, 真, 取数组成员数 (文本数组1) ＋ 1)
                重定义数组 (文本数组1, 真, 取数组成员数 (文本数组1) ＋ 1)
            .如果真结束

        .如果真结束

    .计次循环尾 ()
    .如果真 (文本数组1 [i] ＝ 文本数组2 [i] 且 文本数组1 [i] ≠ “”)
        最终文本 ＝ 最终文本 ＋ 文本数组1 [i] ＋ #换行符
    .如果真结束

.计次循环尾 ()
返回 (最终文本)

wh1234567

感谢分享

胖子葛格

感谢大神分享~！

kyo9766

数据多了。感觉不会很快，感谢分享

xmtian

感谢分享。

xshn

感谢分享，谁能做个取重复的，结果再从高到低排序

year1970

感谢分享

查过

感谢楼主分享！

豆豆灰常开心

感谢楼主分享！

我的yyy123

汉族 发表于 2025-3-30 12:07
[e=1].版本 2

.子程序 筛选重复

感觉这个更加简洁高效，怎么现在论坛按钮复制代码后，中刮号很大概率变成<>，