易语言删除文本中的重复数字源码下载

511遇见

注意，这里我们只分享删除一段数字文本里的重复的数字，和一般不同的是，数字无需加分隔符，比如换行符，逗号，空格，能把一段数字文本中的重复的删除，剔除，这里调用了API:CallWindowProcA。部分源码：

  

子程序名	返回值类型	公开	备 注
去重复数字			' 511遇见论坛：（bbs.511yj.com）

变量名	类 型	静态	数组	备 注
Buf	文本型			' 511遇见论坛：（bbs.511yj.com）
文本	文本型
i	整数型
asc	整数型
文本数组	文本型		0

文本 ＝ 编辑框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 }, _启动窗口.取窗口句柄 (), 1025, 文本, Buf)
' 511遇见论坛：（bbs.511yj.com）
文本数组 ＝ 分割文本 (Buf, “ ”, )
计次循环首 (取数组成员数 (文本数组), i)
如果真 (寻找文本 (编辑框2.内容, 文本数组 [i], , 假) ＝ -1)
asc ＝ 取代码 (文本数组 [i], 1)
调试输出 (asc, 文本数组 [i])
' 511遇见论坛：（bbs.511yj.com）
如果真 (asc ≥ 48 且 asc ≤ 57)
编辑框2.加入文本 (文本数组 [i])
' 511遇见论坛：（bbs.511yj.com）

计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 去重复数字, , , ' 511遇见论坛：（bbs.511yj.com）<br /> .局部变量 Buf, 文本型, , , ' 511遇见论坛：（bbs.511yj.com）<br /> .局部变量 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 asc, 整数型<br /> .局部变量 文本数组, 文本型, , "0"<br /> <br /> 文本 ＝ 编辑框1.内容<br /> .如果 (文本 ＝ “”)<br />     返回 ()<br /> .否则<br /> <br /> .如果结束<br /> <br /> Buf ＝ 取空白文本 (取文本长度 (文本) × 2)<br /> 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 }, _启动窗口.取窗口句柄 (), 1025, 文本, Buf)<br /> ' 511遇见论坛：（bbs.511yj.com）<br /> 文本数组 ＝ 分割文本 (Buf, “ ”, )<br /> .计次循环首 (取数组成员数 (文本数组), i)<br />     .如果真 (寻找文本 (编辑框2.内容, 文本数组 <i>, , 假) ＝ -1)<br />         asc ＝ 取代码 (文本数组 <i>, 1)<br />         调试输出 (asc, 文本数组 <i>)<br />         ' 511遇见论坛：（bbs.511yj.com）<br />         .如果真 (asc ≥ 48 且 asc ≤ 57)<br />             编辑框2.加入文本 (文本数组 <i>)<br />         .如果真结束<br />         ' 511遇见论坛：（bbs.511yj.com）<br />     .如果真结束<br /> <br /> .计次循环尾 ()

下载地址：

链接：https://pan.baidu.com/s/1QxC1kixB-oeKYODq8_yJOw
提取码：hllg

解压密码：（回复可见）

游客，如果您要查看本帖隐藏内容请回复