Question

求一个易语言清除文本重复内容的源码。

Answer 1

.版本 2

.子程序 __启动窗口_创建完毕

.局部变量 文本, 文本型

.局部变量 文本组, 文本型, , "0"

.局部变量 数1, 整数型

.局部变量 数2, 整数型

文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\文本.txt”))

文本组 ＝ 分割文本 (文本, “,”, )

文本 ＝ “”

.如果真 (取数组成员数 (文本组) ＝ 0)

    信息框 (“在运行目录下没有” ＋ #引号 ＋ “文本.txt” ＋ #引号 ＋ “文件!”, 0, )

    结束 ()

.如果真结束

.计次循环首 (取数组成员数 (文本组), 数1)

    .如果真 (文本组 [数1] ＝ “”)

        到循环尾 ()

    .如果真结束

    .变量循环首 (数1 ＋ 1, 取数组成员数 (文本组), 1, 数2)

        .如果真 (文本组 [数1] ＝ 文本组 [数2])

            文本组 [数2] ＝ “”

        .如果真结束

    .变量循环尾 ()

    文本 ＝ 文本 ＋ 文本组 [数1] ＋ “,”

.计次循环尾 ()

写到文件 (取运行目录 () ＋ “\文本.txt”, 到字节集 (文本))