易语言去重复。两个或多个重复的只留一个,写成源码,或者直接发到这上面来,
展开全部
.版本 2
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计数, 整数型
编辑框2.内容 = “”
数组 = 分割文本 (编辑框1.内容, “,”, )
.计次循环首 (取数组成员数 (数组), 计次)
.如果真 (数组 [计次] = “-1”)
到循环尾 ()
.如果真结束
.变量循环首 (计次 + 1, 取数组成员数 (数组), 1, 计数)
.如果真 (数组 [计次] = 数组 [计数])
数组 [计数] = “-1”
.如果真结束
.变量循环尾 ()
编辑框2.加入文本 (数组 [计次], “,”)
.计次循环尾 ()
.子程序 _按钮1_被单击
.局部变量 数组, 文本型, , "0"
.局部变量 计次, 整数型
.局部变量 计数, 整数型
编辑框2.内容 = “”
数组 = 分割文本 (编辑框1.内容, “,”, )
.计次循环首 (取数组成员数 (数组), 计次)
.如果真 (数组 [计次] = “-1”)
到循环尾 ()
.如果真结束
.变量循环首 (计次 + 1, 取数组成员数 (数组), 1, 计数)
.如果真 (数组 [计次] = 数组 [计数])
数组 [计数] = “-1”
.如果真结束
.变量循环尾 ()
编辑框2.加入文本 (数组 [计次], “,”)
.计次循环尾 ()
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询