|
发表于 2011-8-16 01:11:53
|
显示全部楼层
浙江省嘉兴市
本帖最后由 qq793359277 于 2011-8-16 01:58 编辑
.版本 2
.支持库 RegEx
.子程序 功能_匹配正则
.参数 源文本, 文本型, , 欲被匹配的文本
.参数 存放结果, 文本型, 参考 数组
.局部变量 局_正则, 正则表达式
.局部变量 局_搜索结果, 搜索结果, 静态, "0"
.局部变量 a, 整数型
.如果真 (局_正则.创建 (“[0-9][0-9][0-9][0-9]年(.*?)+[0-9][0-9]]”, 真) = 假)
信息框 (“正则创建失败”, 0, )
返回 (“”)
.如果真结束
局_搜索结果 = 局_正则.搜索全部 (源文本)
.如果真 (取数组成员数 (局_搜索结果) = 0)
信息框 (“匹配文本数量为0”, 0, )
返回 (“”)
.如果真结束
.如果真 (取数组成员数 (局_搜索结果) > 0)
.计次循环首 (取数组成员数 (局_搜索结果), a)
加入成员 (存放结果, 局_搜索结果 [a].取子匹配文本 (源文本, 0, ))
.计次循环尾 ()
|
|