很简单的文本去除重复

易语言 2020-08-31 21:25:47

很简单的文本去除重复

本来很简单轻松的事情,但是却被写的很复杂很复杂,

觉得易语言源码越简单越好,那样也节省时间不是吗?

而且写源码区域也不会变得乱七八糟的,

wb = 分割文本 (编辑框1.内容, #换行符, )
sz = 取数组成员数 (wb)
.计次循环首 (sz, i)
.如果真 (寻找文本 (编辑框2.内容, wb [i], , 假) = -1)
编辑框2.加入文本 (wb [i] + #换行符)
.如果真结束
标签1.标题 = “数据文本” + 到文本 (sz) + “项/去除重复” + 到文本 (sz - sz1) + “项” + #换行符 + #换行符 + “得到文本” + 到文本 (sz1) + “项”
.计次循环尾 ()