求1个正则的源码

蓝冰点点

源文本：
<td>余拦截 411282198102108856</td>


取3个结果：
余
拦
截


注：用系统自带的正则库就行了，别用模块，多谢

镇坛道德标杆

1. .版本 2
   
2. .支持库 RegEx
   
3. .支持库 spec
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 局_正则, 正则表达式
   
7. .局部变量 局_结果, 搜索结果, , "0"
   
8. .局部变量 局_计次, 整数型
   
9. 
   
10. 局_正则.创建 (“[\xb0-\xf7][\xa0-\xfe]”, )
    
11. 局_结果 ＝ 局_正则.搜索全部 (“<td>余拦截 411282198102108856</td>”)
    
12. .计次循环首 (取数组成员数 (局_结果), 局_计次)
    
13.     调试输出 (局_结果 [局_计次].取匹配文本 (“<td>余拦截 411282198102108856</td>”, ))
    
14. .计次循环尾 ()
    

复制代码

Lunction

[\u4e00-\u9fa5]

补充内容 (2016-5-6 17:02):
.版本 2
.支持库 RegEx

.子程序 正则_匹配批量, 整数型, , 本子程序采用【精易编程助手】生成。成功返回匹配的数量，失败返回0。
.参数 源文本, 文本型, , 欲被匹配的文本
.局部变量 局_正则, 正则表达式, , , 采用的 正则表达式 支持库，无此支持库的请到此下载：http://e.3600gz.cn/uploads/soft/zck/RegEx.rar
.局部变量 局_搜索结果, 搜索结果, 静态, "0"
.局部变量 局_匹配数, 整数型, , , 匹配数量
.局部变量 局_计次, 整数型

.如果真 (局_正则.创建 (“[\u4e00-\u9fa5]”, 假) ＝ 假)
    信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, )
    返回 (0)
.如果真结束
局_正则.多行模式 ＝ 假
局_搜索结果 ＝ 局_正则.搜索全部 (源文本)
局_匹配数 ＝ 取数组成员数 (局_搜索结果)
.如果真 (局_匹配数 ＝ 0)
    信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, )
    返回 (0)
.如果真结束
.计次循环首 (局_匹配数, 局_计次)
    输出调试文本 (“匹配文本 ” ＋ 到文本 (局_计次) ＋ “ 中的子匹配文本 1：” ＋ 局_搜索结果 [局_计次].取子匹配文本 (源文本, 1, ))
.计次循环尾 ()
返回 (局_匹配数)