|
发表于 2012-8-20 15:25:36
|
显示全部楼层
福建省龙岩市
.版本 2
.程序集 窗口程序集1
.子程序 功能_匹配正则, 文本型, , 本子程序采用【精易编程助手】生成
.参数 源文本, 文本型, , 欲被匹配的文本
.参数 子匹配索引, 整数型, 可空, 0=取匹配文本 从1开始将代表为子匹配文本的索引
.局部变量 局_正则, 正则表达式类
.局部变量 i, 整数型
.局部变量 临时文本, 文本型
.如果真 (局_正则.创建 (“[^\u4e00-\u9fa5]+”, 源文本, 真) = 假)
信息框 (“正则创建失败”, 0, )
返回 (“”)
.如果真结束
.如果真 (局_正则.取匹配数量 () = 0)
信息框 (“匹配文本数量为0”, 0, )
返回 (“”)
.如果真结束
.判断开始 (子匹配索引 = 0)
.计次循环首 (局_正则.取匹配数量 (), i)
临时文本 = 临时文本 + 局_正则.取匹配文本 (i)
.计次循环尾 ()
' 返回 (局_正则.取匹配文本 (1))
返回 (临时文本)
.判断 (子匹配索引 > 0)
返回 (局_正则.取子匹配文本 (1, 子匹配索引))
.默认
.判断结束
返回 (“”)
|
|