正则_取单文本

杨辰浩

这样是不是方便多了！



.版本 2
.子程序 正则_取单文本, 整数型, 公开, 返回匹配数量
.参数 原文本, 文本型
.参数 表达式文本, 文本型
.参数 子文本数组, 文本型, 数组
.参数 子文本起始位置, 整数型, 可空, 默认为1
.参数 返回匹配文本, 逻辑型, 可空, 默认为假
.局部变量 局_正则, 正则表达式类
.局部变量 局_计次, 整数型
.局部变量 局_匹配数, 整数型
.如果真 (局_正则.创建 (表达式文本, 原文本, 假, 假, 真, 真) ＝ 假)
    返回 (0)
.如果真结束
局_匹配数 ＝ 局_正则.取匹配数量 ()
.如果真 (局_匹配数 ＝ 0)
    返回 (0)
.如果真结束
清除数组 (子文本数组)
.如果真 (子文本起始位置 ＜ 1)
    子文本起始位置 ＝ 1
.如果真结束
.计次循环首 (局_匹配数, 局_计次)
    .如果 (返回匹配文本 ＝ 真)
        加入成员 (子文本数组, 局_正则.取匹配文本 (局_计次))
    .否则
        加入成员 (子文本数组, 局_正则.取子匹配文本 (局_计次, 子文本起始位置))
    .如果结束
.计次循环尾 ()
返回 (局_匹配数)

simpledas

没看懂这是干嘛的

冰棍好烫啊

杨辰浩 发表于 2020-8-25 09:34
子程序里改一下,多加几个子文本数组不就行了！

这样没有效率,文本少的话有点用....可以用回调

杨辰浩

冰棍好烫啊 发表于 2020-8-25 09:25
数量多的话太慢

子程序里改一下,多加几个子文本数组不就行了！

冰棍好烫啊

数量多的话太慢