非原创
.版本 2
.子程序 取出中间文本, 文本型
.参数 欲取全文本, 文本型
.参数 前面文本, 文本型
.参数 后面文本, 文本型
.参数 起始搜寻位置, 整数型, 可空
.参数 是否区分大小写, 逻辑型, 可空
.局部变量 局_位置, 整数型
.局部变量 局_位置1, 整数型
.局部变量 局_前面文本, 文本型
.局部变量 局_后面文本, 文本型
局_前面文本 = 子文本替换 (前面文本, “#引号”, #引号, , , 真)
局_后面文本 = 子文本替换 (后面文本, “#引号”, #引号, , , 真)
是否区分大小写 = 取反 (是否区分大小写)
局_位置 = 寻找文本 (欲取全文本, 局_前面文本, 起始搜寻位置, 是否区分大小写)
.如果真 (局_位置 ≠ -1)
局_位置 = 局_位置 + 取文本长度 (局_前面文本)
.如果真结束
局_位置1 = 寻找文本 (欲取全文本, 局_后面文本, 局_位置, 是否区分大小写)
.如果真 (局_位置 = -1 或 局_位置1 = -1)
返回 (“”)
.如果真结束
返回 (取文本中间 (欲取全文本, 局_位置, 局_位置1 - 局_位置))