|
10精币
求助修改提取过滤代码
微信186299565413
QQ88112231
联系 88112232
--要下面的效果--
88112231
88112232
[e]
.版本 2
.支持库 RegEx
.子程序 _以前的代码1_被单击
.局部变量 正则, 正则表达式, , , 提取号码
.局部变量 s, 搜索结果, , "0"
.局部变量 i
.局部变量 内容, 文本型
.局部变量 N, 整数型
内容 = 提取文本 ()
.如果真 (内容 = “”)
信息框 (“读取失败”, 0, )
返回 ()
.如果真结束
编辑框2.内容 = “”
正则.创建 (“[8-9][0-9]{7}”, ) ' 应该在这里修改,但是我不会
s = 正则.搜索全部 (内容)
.计次循环首 (取数组成员数 (s), i)
.如果真 (寻找文本 (编辑框2.内容, s .取匹配文本 (内容, ), , 假) = -1)
.如果真 (寻找文本 (编辑框1.内容, s .取匹配文本 (内容, ), , 假) = -1)
N = 到整数 (取文本左边 (s .取匹配文本 (内容, ), 2))
.如果真 (N ≥ 81 且 N ≤ 88)
编辑框2.加入文本 (s .取匹配文本 (内容, ) + #换行符)
.如果真结束
.如果真结束
.如果真结束
.计次循环尾 ()
[/e] |
|