.版本 2


.子程序 取出文本中间, 文本型
.参数 完整文本, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 文本左边位置, 整数型
.局部变量 文本右边位置, 整数型
.局部变量 起始取出位置, 整数型
.局部变量 中间文本内容, 文本型


文本左边位置 ＝ 寻找文本 (完整文本, 左边文本, , 假)
文本右边位置 ＝ 寻找文本 (完整文本, 右边文本, , 假)
起始取出位置 ＝ 文本左边位置 ＋ 取文本长度 (左边文本)
中间文本内容 ＝ 取文本中间 (完整文本, 起始取出位置, 文本右边位置 － 起始取出位置)
返回 (中间文本内容)
[attachment=1152]