自己写的文本取中间和批量，求大神指点怎么简化，差点饶晕我自己.

t459343777

.版本 2

.程序集 公用程序集

.子程序 文本取中间, 文本型
.参数 内容, 文本型
.参数 前文本, 文本型
.参数 后文本, 文本型
.局部变量 结果, 文本型
.局部变量 删除前面部分, 文本型
.局部变量 欲取文本长度, 整数型

删除前面部分 ＝ 取文本右边 (内容, 取文本长度 (内容) － 寻找文本 (内容, 前文本, , 假) － 取文本长度 (前文本) ＋ 1)
欲取文本长度 ＝ 取文本长度 (删除前面部分) － 1 － (取文本长度 (删除前面部分) － 寻找文本 (删除前面部分, 后文本, , 假))
结果 ＝ 取文本中间 (删除前面部分, 1, 欲取文本长度)
返回 (结果)


.子程序 文本取中间_批量
.参数 内容, 文本型
.参数 前文本, 文本型
.参数 后文本, 文本型
.参数 存放内容的数组, 文本型, 数组
.局部变量 a, 整数型
.局部变量 出现次数, 整数型

出现次数 ＝ (取文本长度 (内容) － 取文本长度 (子文本替换 (内容, 前文本, , , , 真))) ÷ 取文本长度 (前文本)
数组清零 (存放内容的数组)
.计次循环首 (出现次数, a)
    加入成员 (存放内容的数组, 文本取中间 (内容, 前文本, 后文本))
    内容 ＝ 子文本替换 (内容, 前文本, , , 1, 假)
.计次循环尾 ()

8657

头像亮了，没心思给你看哪里有问题了，。。。。。。。。。。。。

KeRui

这个我会，不骗你们  ！

里狠屁

面对过程也不错

请叫我大D

来看看 为了升级啊

zhanmao257

不错！！支持一下，继续继续

xinfan2468

不饶就不是编程了

badlwolf

支持一个！！！！！！！！！

易简约

厉害了噢。。。可以下载来学习下。