开源删除文本重复行

原分割文本 ＝ 分割文本 (text, #换行符, )
.如果真 (取数组成员数 (原分割文本) ＞ 0)
加入成员 (新分割文本, 原分割文本 [1])
text ＝ 原分割文本 [1] ＋ #换行符
.如果真结束
.计次循环首 (取数组成员数 (原分割文本), i1)
flag ＝ 假
.计次循环首 (取数组成员数 (新分割文本), i2)
flag ＝ 原分割文本 [i1] ＝ 新分割文本 [i2]
.如果真 (flag)
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (flag ＝ 假)
加入成员 (新分割文本, 原分割文本 [i1])
text ＝ text ＋ 原分割文本 [i1] ＋ #换行符
.如果真结束

.计次循环尾 ()
编辑框1.内容 ＝ text
输出调试文本 (取启动时间 () － time)