【原创】模糊寻找文本并替换或删除

笑红尘゛ · 发表于 2014-4-26 22:24:21

本帖最后由笑红尘゛于 2014-4-26 22:26 编辑

本命令需要用到正则表达式
适合会正则表达式的人使用

[e]

.版本 2

.子程序文本_寻找文本并替换_正则, 文本型
.参数被搜寻的文本, 文本型
.参数欲寻找的文本, 文本型, , 正则表达式
.参数起始搜寻位置, 整数型, 可空
.参数是否区分大小写, 逻辑型, 可空, 可空；初始值为“假”不区分大小写；为真区分大小写。
.参数欲被替换成的文本, 文本型, 可空
.参数替换进行的次数, 整数型, 可空, 可空；参数值指定对子文本进行替换的次数。如果省略，默认进行所有可能的替换。
.局部变量局_正则, 正则表达式类
.局部变量局_文本, 文本型
.局部变量局_位置, 整数型

.如果真 (起始搜寻位置＝ 0)
起始搜寻位置＝ 1
.如果真结束
局_文本＝取文本右边 (被搜寻的文本, 取文本长度 (被搜寻的文本) －起始搜寻位置)
局_正则.创建 (欲寻找的文本, 被搜寻的文本, 是否区分大小写, 假, 假, 真)
.如果真 (替换进行的次数＝ 0 且是否为空 (替换进行的次数) ＝假)
局_文本＝子文本替换 (被搜寻的文本, 局_正则.取匹配文本 (1), 欲被替换成的文本, 起始搜寻位置, , 是否区分大小写)
.如果真结束
.如果真 (是否为空 (替换进行的次数))
替换进行的次数＝ 1
.如果真结束
局_文本＝子文本替换 (被搜寻的文本, 局_正则.取匹配文本 (1), 欲被替换成的文本, 起始搜寻位置, 替换进行的次数, 是否区分大小写)
返回 (局_文本)

.子程序文本_寻找文本并删除_正则, 文本型
.参数被搜寻的文本, 文本型
.参数欲寻找的文本, 文本型, , 正则表达式
.参数起始搜寻位置, 整数型, 可空
.参数是否区分大小写, 逻辑型, 可空, 可空；初始值为“假”不区分大小写；为真区分大小写。
.参数替换进行的次数, 整数型, 可空, 可空；参数值指定对子文本进行替换的次数。如果省略，默认进行所有可能的替换。

返回 (文本_寻找文本并替换_正则 (被搜寻的文本, 欲寻找的文本, 起始搜寻位置, 是否区分大小写, “”, 替换进行的次数))

[/e]

如果觉得这个命令好用就去顶顶把

http://bbs.125.la/thread-13712936-1-1.html