求助：修改提取过滤代码

清华博士

现在的代码是提取11位号码，过滤左边小于13大于18
请修改提取12位号码，过滤左边小于043181大于043188

[e]
.版本 2
.支持库 RegEx

.程序集 窗口程序集1

.子程序 提取文本, 文本型
.局部变量 文件号
.局部变量 编辑框内容, 文本型

.如果真 (通用对话框1.打开 () ＝ 真)
文件号 ＝ 打开文件 (通用对话框1.文件名, , )
编辑框内容 ＝ 读入文本 (文件号, )
关闭文件 (文件号)
返回 (编辑框内容)
.如果真结束
返回 (“”)


.子程序 _以前的代码_被单击
.局部变量 正则, 正则表达式, , , 提取号码
.局部变量 s, 搜索结果, , "0"
.局部变量 i
.局部变量 内容, 文本型
.局部变量 N, 整数型

内容 ＝ 提取文本 ()
.如果真 (内容 ＝ “”)
信息框 (“读取失败”, 0, )
返回 ()
.如果真结束
编辑框2.内容 ＝ “”
正则.创建 (“[1-9][0-9]{10}”, ) ' 就修改这里我不会
s ＝ 正则.搜索全部 (内容)
.计次循环首 (取数组成员数 (s), i)
.如果真 (寻找文本 (编辑框2.内容, s .取匹配文本 (内容, ), , 假) ＝ -1)
.如果真 (寻找文本 (编辑框1.内容, s .取匹配文本 (内容, ), , 假) ＝ -1)
N ＝ 到整数 (取文本左边 (s .取匹配文本 (内容, ), 2))
.如果真 (N ≥ 13 且 N ≤ 18) ' 就修改这里我不会
编辑框2.加入文本 (s .取匹配文本 (内容, ) ＋ #换行符)
.如果真结束

.如果真结束

.如果真结束

.计次循环尾 ()


[/e]

Hoibben

修改以下红色部分看看：



正则.创建 (“[\d]{12}”, ) ' 就修改这里我不会
....
N ＝ 到整数 (取文本左边 (s <i>.取匹配文本 (内容, ), 6))
.如果真 (N ≥ 43181 且 N ≤ 43188) ' 就修改这里我不会
编辑框2.加入文本 (s <i>.取匹配文本 (内容, ) ＋ #换行符)