文本_插入文本到关键字所在行后 未加入换行

咸鱼666

.版本 2

.子程序 文本_插入文本到关键字所在行后, 文本型, 公开, 插入文本到关键字所在行后，返回处理后的文本  [Harry· 提供]
.参数 原文本, 文本型
.参数 关键字, 文本型
.参数 插入内容, 文本型
.参数 是否换行, 逻辑型, 可空, 是否换行插入文本，默认为真
.局部变量 i, 整数型
.局部变量 临时数组, 文本型, , "0"
.局部变量 临时文本, 文本型

临时数组 ＝ 分割文本 (原文本, #换行符, )
.如果真 (是否为空 (是否换行) ＝ 真)
    是否换行 ＝ 真
.如果真结束
.计次循环首 (取数组成员数 (临时数组), i)
    .如果真 (寻找文本 (临时数组 [i], 关键字, , 假) ≠ -1)
        .如果 (是否换行 ＝ 真)
            临时数组 [i] ＝ 临时数组 [i] ＋ #换行符 ＋ 插入内容 ＋ #换行符
        .否则
            临时数组 [i] ＝ 临时数组 [i] ＋ 插入内容 ＋ #换行符
        .如果结束

    .如果真结束
    临时文本 ＝ 临时文本  ＋ #换行符＋ 临时数组 [i]'未加入换行
.计次循环尾 ()
返回 (临时文本)

rgbhje

666，