文本1每10行插入文本2一行内容，如此循环

dat恶人

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

调试输出 (合并 ({ “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10” }, { “a”, “b”, “c” }))

子程序名	返回值类型	公开	备 注
合并	文本型
参数名	类 型	参考	可空	数组	备 注
内容1	文本型
内容2	文本型				需插入的数据

变量名	类 型	静态	数组	备 注
JS命令	类_脚本组件
结果	文本型

JS命令.执行 (“function hb(sz1,sz2){for(var i=0;i<sz2.length;i++){sz1.splice(10*(i+1)+i,0,sz2)};return(sz1)}”)
结果 ＝ JS命令.计算表达式 (“hb([” ＋ #引号 ＋ 数组_合并 (内容1, #引号 ＋ “,” ＋ #引号 ) ＋ #引号 ＋ “],[” ＋ #引号 ＋ 数组_合并 (内容2, #引号 ＋ “,” ＋ #引号 ) ＋ #引号 ＋ “])”)
返回 (结果)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 调试输出 (合并 ({ “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10”, “1”, “2”, “3”, “4”, “5”, “6”, “7”, “8”, “9”, “10” }, { “a”, “b”, “c” }))<br /> <br /> .子程序 合并, 文本型<br /> .参数 内容1, 文本型, 数组<br /> .参数 内容2, 文本型, 数组, 需插入的数据<br /> .局部变量 JS命令, 类_脚本组件<br /> .局部变量 结果, 文本型<br /> <br /> JS命令.执行 (“function hb(sz1,sz2){for(var i=0;i<sz2.length;i++){sz1.splice(10*(i+1)+i,0,sz2<i>)};return(sz1)}”)<br /> 结果 ＝ JS命令.计算表达式 (“hb([” ＋ #引号 ＋ 数组_合并 (内容1, #引号 ＋ “,” ＋ #引号) ＋ #引号 ＋ “],[” ＋ #引号 ＋ 数组_合并 (内容2, #引号 ＋ “,” ＋ #引号) ＋ #引号 ＋ “])”)<br /> 返回 (结果)

</sz2.length;i++){sz1.splice(10*(i+1)+i,0,sz2)};return(sz1)}”)



补充内容 (2023-1-30 18:27):
JS命令那里是"sz2"不是"sz2<i>"，论坛他自动改的，你改一下

补充内容 (2023-1-30 18:31):
后面我发图片了

补充内容 (2023-1-30 18:57):
后面我发例程了

dat恶人

dat恶人 发表于 2023-1-30 18:23
[e=1].版本 2
.支持库 spec

又错了，我发图片

dat恶人

dat恶人 发表于 2023-1-30 18:27
又错了，我发图片

bysy

  

子程序名	返回值类型	公开	备 注
文本	文本型
参数名	类 型	参考	可空	数组	备 注
文本1	文本型
文本2	文本型

变量名	类 型	静态	数组	备 注
长度	整数型
list	文本型		0
list2	文本型		0
p	整数型
i	整数型
i2	整数型
结果	文本型

长度 ＝ 取文本长度 (文本1) ＋ 取文本长度 (文本2) ＋ 3
list ＝ 分割文本 (文本1, #换行符, )
list2 ＝ 分割文本 (文本2, #换行符, )
p ＝ 申请内存 (长度, )  ' +几无所谓了
结果 ＝ 指针到文本s (p)
计次循环首 (取数组成员数 (list), i)
写到内存 (list [i] ＋ #换行符, p, )
p ＝ p ＋ 取文本长度 (list [i] ＋ #换行符 )
如果真 (i ％ 10 ＝ 0)
i2 ＝ i2 ＋ 1
如果真 (i2 ＞ 取数组成员数 (list2))  ' 数组二 数量不够的时候
到循环尾 ()
写到内存 (list2 [i2] ＋ #换行符, p, )
p ＝ p ＋ 取文本长度 (list2 [i] ＋ #换行符 )

计次循环尾 ()
写到内存 ({ 0 }, p, )
返回 (结果)

子程序名	返回值类型	公开	备 注
指针到文本s	文本型
参数名	类 型	参考	可空	数组	备 注
指针

置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
返回 (“”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 文本, 文本型<br /> .参数 文本1, 文本型<br /> .参数 文本2, 文本型<br /> .局部变量 长度, 整数型<br /> .局部变量 list, 文本型, , "0"<br /> .局部变量 list2, 文本型, , "0"<br /> .局部变量 p, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 i2, 整数型<br /> .局部变量 结果, 文本型<br /> <br /> <br /> 长度 ＝ 取文本长度 (文本1) ＋ 取文本长度 (文本2) ＋ 3<br /> list ＝ 分割文本 (文本1, #换行符, )<br /> list2 ＝ 分割文本 (文本2, #换行符, )<br /> p ＝ 申请内存 (长度, )  ' +几无所谓了<br /> 结果 ＝ 指针到文本s (p)<br /> .计次循环首 (取数组成员数 (list), i)<br />     写到内存 (list <i> ＋ #换行符, p, )<br />     p ＝ p ＋ 取文本长度 (list <i> ＋ #换行符)<br />     .如果真 (i ％ 10 ＝ 0)<br />         i2 ＝ i2 ＋ 1<br />         .如果真 (i2 ＞ 取数组成员数 (list2))  ' 数组二 数量不够的时候<br />             到循环尾 ()<br />         .如果真结束<br />         写到内存 (list2 [i2] ＋ #换行符, p, )<br />         p ＝ p ＋ 取文本长度 (list2 <i> ＋ #换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到内存 ({ 0 }, p, )<br /> 返回 (结果)<br /> <br /> .子程序 指针到文本s, 文本型<br /> .参数 指针<br /> <br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> 返回 (“”)

写内存大法 速度快

dat恶人

例程
快速数据合并1w 不到1秒.e (1.11 MB, 下载次数: 3)

2023-1-30 18:46 上传

点击文件名下载附件

dat恶人

bysy 发表于 2023-1-30 18:35
[e=0].版本 2
.支持库 spec

你这不行，大文本直接卡住,还是我的可以,1w文本数据750MS就处理完了,像我用javascript非常快,你翻一翻我的评论，看看例程

dat恶人

dat恶人 发表于 2023-1-30 18:23
[e=1].版本 2
.支持库 spec

后面我发例程了

moys520

就1w和1k行，咋看都不会卡死的吧........，你这一行得多少字节了

Ruang

太阳您母亲 发表于 2023-1-30 17:32
[e=0].版本 2
.支持库 spec

你这似乎不行，顺着插你没有把新插入的文本行数也算上