511遇见论坛

 找回密码
 立即注册
查看: 926|回复: 0

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

[复制链接]
发表于 2019-11-30 13:44:14 | 显示全部楼层 |阅读模式
本帖最后由 511遇见 于 2019-11-30 13:45 编辑

注意,这里我们只分享删除一段数字文本里的重复的数字,和一般不同的是,数字无需加分隔符,比如换行符,逗号,空格,能把一段数字文本中的重复的删除,剔除,这里调用了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特殊功能支持库


下载地址:

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

解压密码:(回复可见)
游客,如果您要查看本帖隐藏内容请回复


511遇见论坛
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|511遇见论坛 ( 鲁ICP备15039387号-1 )|网站地图

GMT+8, 2021-3-4 14:20

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表