取中间文本、取左边、右边、取中文,重启、删除自身模块

易语言 2020-09-28 18:08:05

取中间文本、取左边、右边、取中文,重启、删除自身模块

.子程序 取出中间文本, 文本型, 公开, 比如:欲取全文本为“紫枫俊影”,现在要取出“俊”,<俊>的前面为“枫”,<俊>的后面为“影”
.参数 欲取全文本, 文本型, , 比如:欲取全文本为“紫枫俊影”
.参数 前面文本, 文本型, , 待取文本前面的文本,引号直接用 #引号代替
.参数 后面文本, 文本型, , 待取文本后面的文本,引号直接用 #引号代替
.参数 起始搜寻位置, 整数型, 可空, 可空。如果被省略,则“寻找字节集”命令默认从首部开始,“倒找字节集”命令默认从尾部开始。
.参数 是否区分大小写, 逻辑型, 可空, 可空。初始值为“假”。假 = 不区分 真 = 区分大小写。
.局部变量 局_文本, 文本型
.局部变量 局_位置, 整数型

是否区分大小写 = 取反 (是否区分大小写)
.如果真 (寻找文本 (前面文本, “#引号”, , 假) ≠ -1)
前面文本 = 子文本替换 (前面文本, “#引号”, #引号, , , 真)
.如果真结束
.如果真 (寻找文本 (后面文本, “#引号”, , 假) ≠ -1)
后面文本 = 子文本替换 (后面文本, “#引号”, #引号, , , 真)
.如果真结束
局_位置 = 寻找文本 (欲取全文本, 前面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 = -1)
返回 (“”)
.如果真结束
局_文本 = 取文本右边 (欲取全文本, 取文本长度 (欲取全文本) - 局_位置 - 取文本长度 (前面文本) + 1)
局_位置 = 寻找文本 (局_文本, 后面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 = -1)
返回 (“”)
.如果真结束
局_文本 = 取文本左边 (局_文本, 局_位置 - 1)
返回 (局_文本)