易语言数组 去掉3个以上相同的 保留其它 源码

.版本 2

.子程序 _按钮1_被单击
.局部变量 临时数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 内部数组, 文本型, , "0"
.局部变量 内部计次, 整数型

临时数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (临时数组), 计次)
文本_逐字分割 (临时数组 [计次], 内部数组)
.计次循环首 (取数组成员数 (内部数组), 内部计次)
.判断开始 (数组_取次数 (内部数组, 内部数组 [内部计次]) ≥ 3)
临时数组 [计次] ＝ “0”
到循环尾 ()
.默认

.判断结束

.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (临时数组), 计次)
.判断开始 (临时数组 [计次] ≠ “0”)
编辑框2.加入文本 (临时数组 [计次] ＋ #换行符)
.默认

.判断结束

.计次循环尾 ()