.版本 2 .支持库 iext .子程序 正则_匹配批量, 整数型 .参数 参_源文本, 文本型, , 欲被匹配的文本 .参数 参_超级列表框, 超级列表框 .参数 参_起始位置, 整数型, 可空, 为空，代表从1开始 .参数 参_结束位置, 整数型, 可空, 为空，代表总数 .局部变量 局_正则, 正则表达式类 .局部变量 局_匹配数, 整数型 .局部变量 局_计次, 整数型 .局部变量 局_位置索引, 整数型 .如果真 (局_正则.创建 (#常量_域名匹配正则, 参_源文本, 假, 假, 真) ＝ 假) 信息框 (“正则创建失败，请检查正则表达式语句是否有误！”, #错误图标, , ) 返回 (0) .如果真结束 局_匹配数 ＝ 局_正则.取匹配数量 () .如果真 (局_匹配数 ＝ 0) 信息框 (“匹配失败，请检检查正则语句是否有误，数量：0”, #错误图标, , ) 返回 (0) .如果真结束 参_超级列表框.全部删除 () .判断开始 (是否为空 (参_起始位置) 或 参_起始位置 ＝ 0 或 参_起始位置 ＜ 0) 参_起始位置 ＝ 1 .默认 .判断结束 .判断开始 (是否为空 (参_结束位置) 或 参_结束位置 ＝ 0 或 参_起始位置 ＜ 0 或 参_结束位置 ＞ 局_匹配数) 参_结束位置 ＝ 局_匹配数 .默认 ' 本源码来自三叶资源网 ' (www.sanye.cx) .判断结束 .计次循环首 (局_匹配数, 局_计次) .判断开始 (局_计次 ＜ 参_起始位置) 到循环尾 () .判断 (局_计次 ＞ 参_结束位置) 跳出循环 () .默认 局_位置索引 ＝ 参_超级列表框.插入表项 (, , , , , ) 参_超级列表框.置标题 (局_位置索引, 0, 到文本 (局_计次)) 参_超级列表框.置标题 (局_位置索引, 1, 局_正则.取子匹配文本 (局_计次, 1)) 参_超级列表框.置标题 (局_位置索引, 2, 局_正则.取子匹配文本 (局_计次, 2)) 参_超级列表框.置标题 (局_位置索引, 3, 局_正则.取子匹配文本 (局_计次, 3)) 参_超级列表框.置标题 (局_位置索引, 4, 局_正则.取子匹配文本 (局_计次, 4)) 参_超级列表框.置标题 (局_位置索引, 5, 局_正则.取子匹配文本 (局_计次, 5)) .判断结束 ' 本源码来自三叶资源网(www.sanye.cx) .计次循环尾 () 返回 (局_匹配数)