数组去重复

我的yyy123 · 发表于 2025-3-30 11:14:07

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

.版本 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] ＋ #换行符
.如果真结束

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

APPLEUFO · 发表于 2025-4-14 15:42:19

还删除数组，太慢了 https://bbs.125.la/forum.php?mod ... 14712534&extra= 这个

SMTHU · 发表于 2025-4-12 22:39:21

66666666666666666666666

wh1234567 · 发表于 2025-4-1 00:47:30

感谢分享

胖子葛格 · 发表于 2025-3-31 14:14:13

感谢大神分享~！

kyo9766 · 发表于 2025-3-31 14:09:18

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

xmtian · 发表于 2025-3-31 08:03:26

感谢分享。

xshn · 发表于 2025-3-31 08:00:53

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

year1970 · 发表于 2025-3-31 07:58:34

感谢分享

查过 · 发表于 2025-3-31 07:15:25

感谢楼主分享！

		自动登录	找回密码
密码			注册

[易源码分享] 数组去重复

评分