文本行插入文本

学习委员

要在随机行数的文本中插入一些新行。例如：
哈哈哈哈哈
哈哈哈哈哈哈哈
哈哈哈哈哈
哈哈哈哈哈哈哈哈哈哈哈哈哈哈

要插入两个新行，我用文本_取行数（） 取到文本的总行数，然后用 行数÷插入数量 得到多少行要插入一个新行


到这里就思路不清晰了。然后怎么写。例如插入数量=3，就是要插入3个新行到文本中。

哈哈哈哈哈
{filepath1}
哈哈哈哈哈哈哈
{filepath2}

哈哈哈哈哈
{filepath3}
哈哈哈哈哈哈哈哈哈哈哈哈哈哈


做图片上传用的

算法艺术家

  

子程序名	返回值类型	公开	备 注
平均插入文本行	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
插入数量	整数型

变量名	类 型	静态	数组	备 注
数组	文本型		0
i	整数型
几行插一个	整数型
行数	整数型
n	整数型

数组 ＝ 分割文本 (文本, #换行符, )
行数 ＝ 取数组成员数 (数组) ＋ 插入数量
几行插一个 ＝ 行数 ÷ 插入数量
如果真 (几行插一个 ＜ 2)
返回 (文本)
计次循环首 (行数, i)
如果真 (i ％ 几行插一个 ＝ 0)
n ＝ n ＋ 1
插入成员 (数组, i, “{filepath” ＋ 到文本 (n) ＋ “}”)

计次循环尾 ()
返回 (数组_合并_快速 (数组, #换行符 ))

.版本 2<br /> <br /> .子程序 平均插入文本行, 文本型, 公开<br /> .参数 文本, 文本型<br /> .参数 插入数量, 整数型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 几行插一个, 整数型<br /> .局部变量 行数, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> 行数 ＝ 取数组成员数 (数组) ＋ 插入数量<br /> 几行插一个 ＝ 行数 ÷ 插入数量<br /> .如果真 (几行插一个 ＜ 2)<br />     返回 (文本)<br /> .如果真结束<br /> .计次循环首 (行数, i)<br />     .如果真 (i ％ 几行插一个 ＝ 0)<br />         n ＝ n ＋ 1<br />         插入成员 (数组, i, “{filepath” ＋ 到文本 (n) ＋ “}”)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (数组_合并_快速 (数组, #换行符))

Zixue

你不是都说出写法了吗 , 得到插入的位置  ,就在那里插入啊

jingyi11023995

精易模块有这个命令：

.版本 2

.子程序 文本_插入新一行, 文本型, 公开, 在指定行插入文本，原文本后移，返回插入后的文本。
.参数 原文本, 文本型
.参数 行数, 整数型
.参数 新一文本行内容, 文本型
.局部变量 文本数组, 文本型, , "0"
.局部变量 输出文本, 文本型
.局部变量 计次, 整数型

文本数组 ＝ 分割文本 (原文本, #换行符, )
插入成员 (文本数组, 行数, 新一文本行内容)
.计次循环首 (取数组成员数 (文本数组), 计次)
    .如果真 (取数组成员数 (文本数组) ＝ 计次)
        输出文本 ＝ 输出文本 ＋ 文本数组 [计次]
        跳出循环 ()
    .如果真结束
    输出文本 ＝ 输出文本 ＋ 文本数组 [计次] ＋ #换行符
.计次循环尾 ()
清除数组 (文本数组)
返回 (输出文本)

萧楚楠

我来了兄弟，稍等

jingyi11023995

.版本 2
.支持库 spec

.局部变量 str, 文本型
.局部变量 i, 整数型

str ＝ “哈哈哈哈哈” ＋ #换行符 ＋ “哈哈哈哈哈哈哈” ＋ #换行符 ＋ “哈哈哈哈哈” ＋ #换行符 ＋ “哈哈哈哈哈哈哈哈哈哈哈哈哈哈”
.计次循环首 (3, i)
    str ＝ 文本_插入新一行 (str, i × 2, “{filepath” ＋ 到文本 (i) ＋ “}”)
.计次循环尾 ()
调试输出 (str)

嘿沙漠

不知道这样是不是你要的效果，插入的行完全随机，不可控

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
新文本	文本型
局_文本s	文本型		0

新文本 ＝ #常量1 ＋ #换行符 ＋ “嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿” ＋ #换行符 ＋ “嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻”
局_文本s ＝ 分割文本 (新文本, #换行符, )
新文本 ＝ 数组_打乱顺序 (局_文本s)
调试输出 (新文本, 局_文本s)

子程序名	返回值类型	公开	备 注
数组_打乱顺序	文本型		将一组随机打乱排列
参数名	类 型	参考	可空	数组	备 注
参_数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型
局_随机数	整数型
新文本	文本型

计次循环首 (取数组成员数 (参_数组), i)
置随机数种子 (到整数 (文本_取随机范围数字 (1, 99999, )))
局_随机数 ＝ 取随机数 (i, 取数组成员数 (参_数组))
交换变量 (参_数组 [i], 参_数组 [局_随机数])
新文本 ＝ 新文本 ＋ 参_数组 [i] ＋ #换行符
计次循环尾 ()
返回 (新文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 新文本, 文本型<br /> .局部变量 局_文本s, 文本型, , "0"<br /> <br /> 新文本 ＝ #常量1 ＋ #换行符 ＋ “嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿嘿” ＋ #换行符 ＋ “嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻嘻”<br /> 局_文本s ＝ 分割文本 (新文本, #换行符, )<br /> 新文本 ＝ 数组_打乱顺序 (局_文本s)<br /> 调试输出 (新文本, 局_文本s)<br /> <br /> <br /> .子程序 数组_打乱顺序, 文本型, , 将一组随机打乱排列<br /> .参数 参_数组, 文本型, 参考 数组<br /> .局部变量 i, 整数型<br /> .局部变量 局_随机数, 整数型<br /> .局部变量 新文本, 文本型<br /> <br /> .计次循环首 (取数组成员数 (参_数组), i)<br />     置随机数种子 (到整数 (文本_取随机范围数字 (1, 99999, )))<br />     局_随机数 ＝ 取随机数 (i, 取数组成员数 (参_数组))<br />     交换变量 (参_数组 <i>, 参_数组 [局_随机数])<br />     新文本 ＝ 新文本 ＋ 参_数组 <i> ＋ #换行符<br /> .计次循环尾 ()<br /> 返回 (新文本)

萧楚楠

老样子 好人做到底 给思路 给源码
你应该是想在多行文本中隔行插入 文本对吧

那么好 我们来梳理一下思路
首先我们需要找到每一行 然后每隔一行就插入一个

我看你也是这样想的 ，只是局囿于代码阶段

那么我们来思考一下 ，多行文本的特征是什么 ？或者说我们用什么来判断这段文本它是多行的 ？
是不是换行符
很好，也就是说我们需要找到每一个行符 然后用这个换行符的位置和下个换行符的位置来插入文本

可能有点烧脑 ，那我们来想一下有没有什么偷懒的办法

核心支持库里面有一个子文本替换
如果我们把换行符作为特征，换成我们的文本 岂不妙哉 ，最后再把换掉的换行符补上就可以了

思路完毕 代码开始
（见附件）
有问题在联系

算法艺术家

  

子程序名	返回值类型	公开	备 注
平均插入文本行	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
插入数量	整数型
插入文本	文本型

变量名	类 型	静态	数组	备 注
数组	文本型		0
i	整数型
几行插一个	整数型
行数	整数型

数组 ＝ 分割文本 (文本, #换行符, )
行数 ＝ 取数组成员数 (数组) ＋ 插入数量
几行插一个 ＝ 行数 ÷ 插入数量
如果真 (几行插一个 ＜ 2)
返回 (文本)
计次循环首 (行数, i)
如果真 (i ％ 几行插一个 ＝ 0)
插入成员 (数组, i, 插入文本)

计次循环尾 ()
返回 (数组_合并_快速 (数组, #换行符 ))

.版本 2<br /> <br /> .子程序 平均插入文本行, 文本型, 公开<br /> .参数 文本, 文本型<br /> .参数 插入数量, 整数型<br /> .参数 插入文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 几行插一个, 整数型<br /> .局部变量 行数, 整数型<br /> <br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> 行数 ＝ 取数组成员数 (数组) ＋ 插入数量<br /> 几行插一个 ＝ 行数 ÷ 插入数量<br /> .如果真 (几行插一个 ＜ 2)<br />     返回 (文本)<br /> .如果真结束<br /> .计次循环首 (行数, i)<br />     .如果真 (i ％ 几行插一个 ＝ 0)<br />         插入成员 (数组, i, 插入文本)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (数组_合并_快速 (数组, #换行符))

学习委员

萧楚楠 发表于 2025-4-8 23:11
老样子 好人做到底 给思路 给源码
你应该是想在多行文本中隔行插入 文本对吧

我想的是在一个几十或者几百行的文章中，插入几张图片。要先把{图片}标签插入到文章里，在post提交的时候再把图片链接替换到{图片}标签的位置。所以产生这个需求。

文本_取行数，可以取到文章的总行数，然后用文章的总行数÷图片数，就可以得出要隔多少行来插入图片标签。

我是在想怎么写更规范。