实例讲解易语言取文本中间自定义子程序

我们先看下代码：

版本 2

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

总长度 ＝ 取文本长度 (完整内容)

临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)

返回结果 ＝ 取文本中间 (完整内容, 临时位置, 总长度)

总长度 ＝ 取文本长度 (返回结果)

临时位置 ＝ 寻找文本 (返回结果, 右边文本, , 假) － 1

返回结果 ＝ 取文本中间 (返回结果, 1, 临时位置)

返回 (返回结果)