|
[e]
.版本 2
.子程序 文本_寻找出文本并删除, 文本型, 公开, 比如:欲寻找的全文本为<12345789>,现在要删除2到5之间的全部字符,包括2跟5,成功返回真 结果文本,失败返回空文本!
.参数 欲寻找的全文本, 文本型, , 比如:欲寻找的全文本为 12345789
.参数 前面文本, 文本型, , 前面为“2”
.参数 后面文本, 文本型, , 后面为“5”
.局部变量 前面位置, 整数型
.局部变量 后面位置, 整数型
.局部变量 共多少字符, 整数型
.局部变量 前面字符, 文本型
.局部变量 后面字符, 文本型
.如果真 (寻找文本 (欲寻找的全文本, 前面文本, , 真) ≠ -1)
前面位置 = 寻找文本 (欲寻找的全文本, 前面文本, , 真)
后面位置 = 寻找文本 (欲寻找的全文本, 后面文本, 前面位置, 真)
共多少字符 = 后面位置 + 取文本长度 (后面文本) - 前面位置
前面字符 = 取文本左边 (欲寻找的全文本, 前面位置 - 1)
后面字符 = 取文本右边 (欲寻找的全文本, 取文本长度 (欲寻找的全文本) - (后面位置 - 1 + 取文本长度 (后面文本)))
返回 (前面字符 + 后面字符)
.如果真结束
返回 (前面字符 + 后面字符)
[/e]
代码如上所示,最后一行代码,应该是如果不存在前后字条,那么返回原文本,正确代码: 返回 (欲寻找的全文本)
同时,此命令可以修改一下,并修正命令名称,以达到可删除\可替换的功能,修改后代码如下:
[e]
.版本 2
.子程序 文本_寻找出文本并替换, 文本型, 公开, 比如:欲寻找的全文本为<12345789>,现在要删除2到5之间的全部字符,包括2跟5,成功返回真 结果文本,失败返回空文本!
.参数 欲寻找的全文本, 文本型, , 比如:欲寻找的全文本为 12345789
.参数 前面文本, 文本型, , 前面为“2”
.参数 后面文本, 文本型, , 后面为“5”
.参数 欲替换的内容, 文本型, 可空, 为空,则替换
.局部变量 前面位置, 整数型
.局部变量 后面位置, 整数型
.局部变量 共多少字符, 整数型
.局部变量 前面字符, 文本型
.局部变量 后面字符, 文本型
.如果真 (寻找文本 (欲寻找的全文本, 前面文本, , 真) ≠ -1)
前面位置 = 寻找文本 (欲寻找的全文本, 前面文本, , 真)
后面位置 = 寻找文本 (欲寻找的全文本, 后面文本, 前面位置, 真)
共多少字符 = 后面位置 + 取文本长度 (后面文本) - 前面位置
前面字符 = 取文本左边 (欲寻找的全文本, 前面位置 - 1)
后面字符 = 取文本右边 (欲寻找的全文本, 取文本长度 (欲寻找的全文本) - (后面位置 - 1 + 取文本长度 (后面文本)))
返回 (前面字符 + 欲替换的内容 + 后面字符)
.如果真结束
返回 (欲寻找的全文本)
[/e]
|
评分
-
查看全部评分
|