.计次循环首 (sz, i)
.如果真 (寻找文本 (sj, fg [i], , 假) = -1)
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 0, 到文本 (超级列表框1.取表项数 ()))
超级列表框1.置标题 (超级列表框1.取表项数 () - 1, 1, fg [i])
sj = sj + fg [i] + #换行符
标签1.标题 = “去除重复” + 到文本 (sz - 超级列表框1.取表项数 ()) + “条/获得” + 到文本 (超级列表框1.取表项数 ()) + “条/待去除重复” + 到文本 (sz) + “条”
.如果真结束
.计次循环尾 ()
然后你想去除导入之后的重复文本的话,把源码随便改动一两句就可以了,
不需要模块什么的直接去除重复,源码很简单,新手一看就能明白,
以前发表过编辑框去除重复的简单源码,有人总是在帖子问我超级编辑框怎么去除重复,今天有时间所以刚写了一个源码给你们,
新手要好好的看看源码哦,还是那句话用最简单的源码写程序我认为可以减少很多时间。
上一篇 易语言通讯录EDB版例程
下一篇 组件在程序窗口里面随意移动