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

74 阅读 0 评论 49 点赞

我们先看下代码：

版本 2

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

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

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

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

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

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

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

返回 (返回结果)

大家可以在本地测试下，感谢大家对悠悠之家的支持。