易语言去重复问题.

1733394688

写易语言软件, 通讯录去重复,分割符也不知道用什么,指同一行,名字和地址,邮编.

nauhccx

循环对比去除

冰点

看看能去掉否

[e]
.版本 2

.子程序 去重复文本, 文本型, 公开
.参数 原文本, 文本型
.参数 分割符, 文本型
.局部变量 a1, 文本型, , "0"
.局部变量 b2, 整数型
.局部变量 c3, 文本型, , "0"
.局部变量 d4, 整数型
.局部变量 e5, 逻辑型
.局部变量 文本, 文本型

a1 ＝ 分割文本 (原文本, 分割符, )
.计次循环首 (取数组成员数 (a1), b2)
    e5 ＝ 假
    .计次循环首 (取数组成员数 (c3), d4)
        .如果真 (a1 [b2] ＝ c3 [d4])
            e5 ＝ 真
            跳出循环 ()
        .如果真结束

    .计次循环尾 ()
    .如果真 (e5 ＝ 假)
        加入成员 (c3, a1 [b2])
        文本 ＝ 文本 ＋ a1 [b2] ＋ 分割符
    .如果真结束

.计次循环尾 ()
返回 (文本)
[/e]