易语言 取文本中间 （单次） 自定义 子程序

.版本 2

.子程序 取文本中间内容, 文本型
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 返回结果, 文本型

总长度 ＝ 取文本长度 (完整内容)
临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
返回结果 ＝ 取文本中间 (完整内容, 临时位置, 总长度)
总长度 ＝ 取文本长度 (返回结果)
临时位置 ＝ 寻找文本 (返回结果, 右边文本, , 假) － 1
返回结果 ＝ 取文本中间 (返回结果, 1, 临时位置)
返回 (返回结果)