易语言过滤重复
『壹』 易语言去掉编辑框内的重复数
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
调试输出 (子程序1 (“9135632417”))
结束 ()
.子程序 子程序1, 文本型
.参数 文本, 文本型
.局部变量 str, 文本型
.局部变量 intarr, 整数型, , "0"
.局部变量 str_2, 文本型
.局部变量 tem, 整数型
.局部变量 cycle_2, 整数型
.局部变量 return, 文本型
.局部变量 cycle, 整数型
str ＝ 文本
.判断循环首 (取文本长度 (str) ＞ 0) ' 去除重复
str_2 ＝ 取文本左边 (str, 1)
加入成员 (intarr, 到整数 (str_2))
str ＝ 子文本替换 (str, str_2, “”, , , 假)
.判断循环尾 ()
.计次循环首 (取数组成员数 (intarr), cycle) ' 从小到大排序
.变量循环首 (cycle ＋ 1, 取数组成员数 (intarr), 1, cycle_2)
.如果真 (intarr [cycle_2] ＜ intarr [cycle_2 － 1])
tem ＝ intarr [cycle_2]
intarr [cycle_2] ＝ intarr [cycle_2 － 1]
intarr [cycle_2 － 1] ＝ tem
.如果真结束
.变量循环尾 ()
.计次循环尾 ()
.计次循环首 (取数组成员数 (intarr), cycle) ' 转换成文本输出
return ＝ return ＋ 到文本 (intarr [cycle])
.计次循环尾 ()
返回 (return)
『贰』 易语言高级表格插入数据自动过滤重复
.版本 2
.支持库抄 eGrid
.程序 _按钮袭1_单击
.局部变量 n, 整数型
.局部变量 m, 整数型
.局部变量 a, 文本型
.计循环首 (_启窗口.高级表格1.行数 － 1, n)
a ＝ _启窗口.高级表格1.取数据 (n, 1)
.真 (a ＝ 嘻嘻嘻嘻)
m ＝ m ＋ 1
高级表格1.插入行 (, )
高级表格1.置数据 (m, 1, 1, a)
高级表格1.置数据 (m, 2, 1, _启窗口.高级表格1.取数据 (n, 2))
.真结束
.计循环尾 ()
『叁』 易语言 去除编辑框内重复的文本
.版本 2
.子程序 _按钮1_被单击
.局部变量 成员, 文本型内, , "0"
.局部变量 文本位置, 整数型容
.局部变量 计次, 整数型
.如果真 (编辑框1.内容 ≠ “”)
成员 ＝ 分割文本 (编辑框1.内容, “ ”, )
.计次循环首 (取数组成员数 (成员), 计次)
文本位置 ＝ 寻找文本 (编辑框2.内容, 成员 [计次], , 假)
.如果真 (文本位置 ＝ -1)
到循环尾 ()
.如果真结束
编辑框2.内容 ＝ 文本替换 (编辑框2.内容, 文本位置, 3, )
.计次循环尾 ()
.如果真结束
『肆』 [易语言]重复的数据只记录1次，其余的删除。
『伍』 易语言超级列表框去除表项重复求助
计次循环搜索第一列.如果有超过一行一样“代码”的就取二三行的“内容”添加到第一次搜索到的那一行，最后再删除掉除第一行之外的行.
『陆』 易语言提取重复数
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
_按钮2_被单击 ()
.子程序 _按钮1_被单击
.局部变量 分割数据, 文本型, , "0"
.局部变量 数字分割, 文本型, , "0"
.局部变量 重复次数, 整数型
.局部变量 判断结果, 文本型
.局部变量 ii, 整数型
.局部变量 i, 整数型
编辑框2.内容 ＝ “”
分割数据 ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (分割数据), i)
清除数组 (数字分割)
.计次循环首 (取文本长度 (分割数据 [i]), ii)
加入成员 (数字分割, 取文本中间 (分割数据 [i], ii, 1))
.计次循环尾 ()
判断结果 ＝ “”
.判断循环首 (取数组成员数 (数字分割) ＞ 0)
重复次数 ＝ 1
.变量循环首 (取数组成员数 (数字分割), 2, -1, ii)
.如果真 (数字分割 [ii] ＝ 数字分割 [1])
删除成员 (数字分割, ii, 1)
重复次数 ＝ 重复次数 ＋ 1
.如果真结束
.变量循环尾 ()
.如果真 (重复次数 ＞ 1)
判断结果 ＝ 判断结果 ＋ 数字分割 [1] ＋ “重复=” ＋ 到文本 (重复次数) ＋ “次，”
.如果真结束
删除成员 (数字分割, 1, 1)
.判断循环尾 ()
.如果 (判断结果 ＝ “”)
编辑框2.加入文本 (“无重复” ＋ #换行符)
.否则
编辑框2.加入文本 (判断结果 ＋ #换行符)
.如果结束
.计次循环尾 ()
.子程序 _按钮2_被单击
.局部变量 加入文本, 文本型
编辑框1.内容 ＝ “”
编辑框2.内容 ＝ “”
置随机数种子 ()
.计次循环首 (10, )
加入文本 ＝ “”
.计次循环首 (5, )
加入文本 ＝ 加入文本 ＋ 到文本 (取随机数 (0, 9))
.计次循环尾 ()
编辑框1.加入文本 (加入文本 ＋ #换行符)
.计次循环尾 ()
『柒』 易语言过滤多余重复的空格
文本替换，把【两个空格】换成【一个空格】，直到没有【两个空格】存在。代码很简短。在此不码，可以追问。
『捌』 易语言超级列表框 关键词过滤之后结果重复了好多遍 怎么办
自己去网络吧。
或者加入易语言群
最好去精易论坛。
然后，我没有太多时间。
你先检查先代码又没有错误。
『玖』 易语言去除编辑框重复内容
.版本 2
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量专 I, 整数型
.局部变量 局_内容属1, 文本型
.局部变量 P, 整数型
.局部变量 数组2, 文本型, , "0"
.局部变量 局_内容2, 文本型
数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框1.内容 ＝ “”
.计次循环首 (取数组成员数 (数组), I)
局_内容1 ＝ 数组 [I]
加入成员 (数组2, 局_内容1)
.计次循环首 (取数组成员数 (数组), P)
局_内容2 ＝ 数组 [P]
.如果真 (数组2 [I] ＝ 局_内容2)
删除成员 (数组, P, )
插入成员 (数组, P, “”)
.如果真结束
.计次循环尾 ()
.计次循环尾 ()
『拾』 易语言如何重复取指定内容
.版本来 2
.程序集自 窗口程序集1
.程序集变量 文本, 文本型, , "0"
.程序集变量 文本1, 文本型, , "0"
.子程序 _按钮1_被单击
.局部变量 q, 整数型
列表框1.清空 ()
文本 ＝ 分割文本 (“努力学习” ＋ 到全角 (编辑框1.内容) ＋ “易语言”, “（”, )
.计次循环首 (取数组成员数 (文本) － 1, q)
文本1 ＝ 分割文本 (文本 [q ＋ 1], “）”, )
.如果真 (取数组成员数 (文本1) ＞ 1)
列表框1.加入项目 (到半角 (文本1 [1]), )
.如果真结束
.计次循环尾 ()
' 解释一下，为什么在上面写上：努力学习易语言，呵呵，这个东西纯属随便写的，可以写任何东西。
' 不过需要注意的就是，在代码不变的情况下，必须写，是为了防止括号在前面或者在最后面。
' 用正则的话可能比较更方便，不过我不会，哈哈，在学习中。努力。