易语言去掉编辑框内的重复数

.版本 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楼，全部加入分割加入成员后，比较

好像有一个模块有着个功能上网上找找去