易语言 判断相同文本

.版本 2

.子程序 子程序
.局部变量 文本, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 文本数量, 整数型
.局部变量 计次, 整数型
.局部变量 计次2, 整数型

文本 ＝ “中国,小眀,小欣,小飞,小眀”
文本数组 ＝ 分割文本 (文本, “,”, )
文本数量 ＝ 取数组成员数 (文本数组)
.计次循环首 (文本数量, 计次)
.如果真 (文本数组 [计次] ＝ “”)
到循环尾 ()
.如果真结束

.计次循环首 (文本数量 － 计次, 计次2)
.如果真 (文本数组 [计次] ＝ 文本数组 [计次2 ＋ 计次])
文本数组 [计次2 ＋ 计次] ＝ “”
.如果真结束

.计次循环尾 ()
.计次循环尾 ()

文本 ＝ “”
.计次循环首 (文本数量, 计次)
.如果真 (文本数组 [计次] ≠ “”)
文本 ＝ 文本 ＋ “,” ＋ 文本数组 [计次]
.如果真结束

.计次循环尾 ()
文本 ＝ 取文本右边 (文本, 取文本长度 (文本) － 1)
------------------------------------------------
最后结果：文本=“中国,小眀,小欣,小飞”