精易论坛

标题: 文本_插入文本到关键字所在行后未加入换行 [打印本页]

作者: 咸鱼666 时间: 2022-2-8 22:04
标题: 文本_插入文本到关键字所在行后未加入换行
.版本 2

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

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

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

作者: rgbhje 时间: 2022-2-13 11:13

666，

欢迎光临精易论坛 (https://125.confly.eu.org/)