Question

易语言编辑框数字内容去重复

如图，写个源码例子出来，谢谢

Answer 1

.版本 2

.支持库 spec

.局部变量 文本, 文本型

.局部变量 Buf, 文本型

.局部变量 文本数组, 文本型, , "0"

.局部变量 i, 整数型

.局部变量 asc, 整数型

文本 ＝ 编辑框1.内容

Buf ＝ 取空白文本 (取文本长度 (文本) × 2)

CallWindowProcA ({ 87, 139, 124, 36, 16, 51, 192, 51, 201, 56, 7, 116, 54, 86, 139, 116, 36, 24, 138, 20, 56, 128, 250, 127, 118, 9, 136, 20, 49, 131, 192, 1, 131, 193, 1, 138, 20, 56, 136, 20, 49, 131, 193, 1, 198, 4, 49, 32, 131, 192, 1, 131, 193, 1, 128, 60, 56, 0, 117, 214, 198, 4, 49, 0, 94, 95, 195, 139, 84, 36, 20, 136, 4, 17, 95 }, 窗口1.取窗口句柄 (), 1025, 文本, Buf)

文本数组 ＝ 分割文本 (Buf, “ ”, )

.计次循环首 (取数组成员数 (文本数组), i)

.如果真 (寻找文本 (编辑框2.内容, 文本数组 [i], , 假) ＝ -1)

asc ＝ 取代码 (文本数组 [i], 1)

调试输出 (asc, 文本数组 [i])

.如果真 (asc ≥ 48 且 asc ≤ 57)

编辑框2.加入文本 (文本数组 [i])

.如果真结束

.如果真结束

.计次循环尾 ()

.版本 2

.DLL命令 CallWindowProcA, 整数型, "user32.dll", "CallWindowProcA"

.参数 字节集, 字节集

.参数 窗口句柄, 整数型

.参数 消息类型, 整数型

.参数 文本, 文本型

.参数 buf, 文本型

追问

不是，就是我发的图片那样

追答

什么不是呀!已经帅选了重复的数字,你把上面的代码复制下来试一试

Answer 2

可以参考冒泡排序的方法来去重