本帖最后由 511遇见 于 2019-11-30 13:45 编辑
注意,这里我们只分享删除一段数字文本里的重复的数字,和一般不同的是,数字无需加分隔符,比如换行符,逗号,空格,能把一段数字文本中的重复的删除,剔除,这里调用了API:CallWindowProcA。部分源码:
变量名 | 类 型 | 静态 | 数组 | 备 注 | Buf | 文本型 | | | 文本 | 文本型 | | | 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 ) 文本数组 = 分割文本 (Buf, “ ”, ) 计次循环首 (取数组成员数 (文本数组 ), i ) 如果真 (寻找文本 (编辑框2.内容, 文本数组 [i ], , 假) = -1 )  asc = 取代码 (文本数组 [i ], 1 ) 调试输出 (asc, 文本数组 [i ])   如果真 (asc ≥ 48 且 asc ≤ 57 )   编辑框2. 加入文本 (文本数组 [i ])
  计次循环尾 ()
下载地址:
链接:https://pan.baidu.com/s/1QxC1kixB-oeKYODq8_yJOw
提取码:hllg
解压密码:(回复可见)
|