精易命令。文本_插入文本到某字后源码

Cand

[e].版本 2
.子程序 文本_插入文本到某字后1, 文本型, 公开, 插入文本到某字后，返回插入后的文本。
.参数 原文本, 文本型
.参数 某字, 文本型
.参数 被插在某字后的文本, 文本型
.参数 插入次数, 整数型, 可空, 如果省略，默认进行所有可能的插入
.局部变量 欲查找文本长度, 整数型
.局部变量 找到位置, 整数型
.局部变量 i, 整数型
.局部变量 临时位置数组, 整数型, , "0"
.局部变量 临时位置, 整数型
.局部变量 i1, 整数型

欲查找文本长度 ＝ 取文本长度 (某字)
找到位置 ＝ 寻找文本 (原文本, 某字, 3, 假)
加入成员 (临时位置数组, 找到位置)
.判断开始 (找到位置 ≠ -1)
    .判断循环首 (找到位置 ≠ -1 或 插入次数 ＝ 取数组成员数 (临时位置数组))
        找到位置 ＝ 寻找文本 (原文本, 某字, 找到位置 ＋ 欲查找文本长度, 假)
        加入成员 (临时位置数组, 找到位置)
    .判断循环尾 ()
    .判断开始 (插入次数 ＝ 0 或 插入次数 ≥ 取数组成员数 (临时位置数组))
        .计次循环首 (取数组成员数 (临时位置数组) － 1, i)
            临时位置 ＝ 临时位置数组 ＋ 欲查找文本长度 × i
            原文本 ＝ 取文本左边 (原文本, 临时位置 － 1) ＋ 被插在某字后的文本 ＋ 取文本右边 (原文本, 取文本长度 (原文本) － 临时位置 ＋ 1)
        .计次循环尾 ()
    .默认
        .计次循环首 (插入次数, i1)
            临时位置 ＝ 临时位置数组 [i1] ＋ 欲查找文本长度 × i
            原文本 ＝ 取文本左边 (原文本, 临时位置 － 1) ＋ 被插在某字后的文本 ＋ 取文本右边 (原文本, 取文本长度 (原文本) － 临时位置 ＋ 1)
        .计次循环尾 ()
    .判断结束

.默认

.判断结束

返回 (原文本)
[/e]
一句 多余的代码找到给你评精币+1哦，仅限第一个