易语言只留重复文本(一个)，其他不要
先把文本内容放到数组
然后对它排序
写一个循环 看看连续的两个成员是否一样 如果一样 把这个文本放到另一个文本变量用于输出
判断文本组【索引】是否等于文本组【索引+1】……
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
调试输出 (取重复两次以上文本 (“3G书城 58看书网 笔下文学 品书网 官术网 少年文学 免费小说网 经典小说 00小说 19楼书包网 青豆小说 58看书网 天意文学网 思路客 追书网 看书窝 可乐小说网 给力文学 读趣网 3G书城 2345小说 免费小说网 少年文学 四库书 经典小说 吾读小说网 乐文小说网”))
.子程序 取重复两次以上文本, 文本型
.参数 文本参数, 文本型, , 以空格分割的文本
.局部变量 文本组, 文本型, , 0
.局部变量 文本返回, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型
文本组 ＝ 分割文本 (文本参数, “ ”, )
.计次循环首 (取数组成员数 (文本组) － 1, i)
.变量循环首 (i ＋ 1, 取数组成员数 (文本组), 1, j)
.如果真 (文本比较 (文本组 [i], 文本组 [j], 真) ＞ 0)
文本返回 ＝ 文本组 [i]
文本组 [i] ＝ 文本组 [j]
文本组 [j] ＝ 文本返回
.如果真结束
.变量循环尾 ()
.计次循环尾 ()
文本返回 ＝ “”
i ＝ 1
.判断循环首 (i ＜ 取数组成员数 (文本组))
.如果 (文本组 [i] ＝ 文本组 [i ＋ 1])
文本返回 ＝ 文本返回 ＋ 文本组 [i] ＋ “ ”
.判断循环首 (i ＜ 取数组成员数 (文本组) 且 文本组 [i] ＝ 文本组 [i ＋ 1])
i ＝ i ＋ 1
.判断循环尾 ()
.否则
i ＝ i ＋ 1
.如果结束
.判断循环尾 ()
返回 (删尾空 (文本返回))
最大的最齐全的小说网站?
最大的最齐全的小说网站
|
