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

huxiaocun23

文本1：
1
2
3
4
5
6
7
8
9
0
。
。
。
文本2：
a
b
c
d...

合并后：
1
2
3
4
5
6
7
8
9
0
a
1
2
3
4
5
6
7
8
9
0
b
....



合并后整个文本有1.1万条左右

bysy

dat恶人 发表于 2023-1-30 18:56
你这不行，大文本直接卡住,还是我的可以,1w文本数据750MS就处理完了,像我用javascript非常快,你翻一翻我 ...

102m是否算 大文本 一半时间都消耗在分割文本


补充内容 (2023-1-30 19:14):
目前数组长度为110w

兰色的夜晚

如果真( i %10 = 1)
插入

这样呢?

cqcc

  

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

变量名	类 型	静态	数组	备 注
a	文本型		0
ai	整数型
b	文本型		0
bi	整数型

b ＝ 分割文本 ( #常量1, #换行符, )
a ＝ 分割文本 (编辑框1.内容, #换行符, )
编辑框2.内容 ＝ “”
计次循环首 (取数组成员数 (b), bi)
计次循环首 (取数组成员数 (a), ai)
编辑框2.加入文本 (“第” ＋ 到文本 (ai) ＋ “条：” ＋ a [ai] ＋ #换行符 )
' 编辑框2.加入文本 (#换行符 ＋ “======” ＋ 到文本 (b [bi]) ＋ “======” ＋ #换行符)
如果真 (ai ％ 10 ＝ 0)
编辑框2.加入文本 ( #换行符 ＋ “======” ＋ 到文本 (b [bi]) ＋ “======” ＋ #换行符 )

计次循环尾 ()
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型, , "0"<br /> .局部变量 ai, 整数型<br /> .局部变量 b, 文本型, , "0"<br /> .局部变量 bi, 整数型<br /> <br /> b ＝ 分割文本 (#常量1, #换行符, )<br /> a ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> 编辑框2.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (b), bi)<br />     .计次循环首 (取数组成员数 (a), ai)<br />         编辑框2.加入文本 (“第” ＋ 到文本 (ai) ＋ “条：” ＋ a [ai] ＋ #换行符)<br />         ' 编辑框2.加入文本 (#换行符 ＋ “======” ＋ 到文本 (b [bi]) ＋ “======” ＋ #换行符)<br />         .如果真 (ai ％ 10 ＝ 0)<br />             编辑框2.加入文本 (#换行符 ＋ “======” ＋ 到文本 (b [bi]) ＋ “======” ＋ #换行符)<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()

huxiaocun23

cqcc 发表于 2023-1-30 16:57
[e=2].版本 2

.子程序 _按钮1_被单击

1w行电脑卡死了  怎么解决呢
一边9000多行一边1000行，合并后卡死了

太阳您母亲

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
内容	文本型
行数	整数型
i	整数型

内容= #常量1 ‘常量1 就是你的文本
行数 ＝ 文本_取行数 ()
计次循环首 (行数 ÷ 10, i)
内容 ＝ 文本_插入新一行 (内容, i × 10, 文本2)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 内容, 文本型<br /> .局部变量 行数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 内容=#常量1 ‘常量1 就是你的文本<br /> 行数 ＝ 文本_取行数 ()<br /> .计次循环首 (行数 ÷ 10, i)<br />     内容 ＝ 文本_插入新一行 (内容, i × 10, 文本2)<br /> .计次循环尾 ()

太阳您母亲

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
内容	文本型
行数	整数型
i	整数型

内容 ＝ #常量1
行数 ＝ 文本_取行数 (内容)
计次循环首 (行数 ÷ 10, i)
内容 ＝ 文本_插入新一行 (内容, i × 10, “文本2”)
计次循环尾 ()
调试输出 (内容)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 内容, 文本型<br /> .局部变量 行数, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 内容 ＝ #常量1<br /> 行数 ＝ 文本_取行数 (内容)<br /> .计次循环首 (行数 ÷ 10, i)<br />     内容 ＝ 文本_插入新一行 (内容, i × 10, “文本2”)<br /> .计次循环尾 ()<br /> 调试输出 (内容)

写错了 是这样

huxiaocun23

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

哈哈 也是卡死那，有没有办法多线程

huxiaocun23

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

文本2也是有1000多行，都是不同数据的

Dana

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
文本1	文本型
文本数组1	文本型		0
i	整数型
快速文本对象	快速文本对象
文本2	文本型
文本数组2	文本型		0
索引2	整数型
结果文本	文本型

文本1 ＝ 生成测试A文本 ()
文本数组1 ＝ 分割文本 (文本1, #换行符, )
' * 成员数 10000 ' 调试输出 (取数组成员数 (文本数组1))
文本2 ＝ “a、b、c、d、e、f、g、h、i、j、k、l、m、n、o、p、q、r、s、t、u、v、w、x、y、z”
文本数组2 ＝ 分割文本 (文本2, “、”, )
' * 成员数 26 '调试输出 (取数组成员数 (文本数组2))
索引2 ＝ 1
计次循环首 (取数组成员数 (文本数组1), i)
如果真 (i ＞ 1 且 i ％ 10 ＝ 1)
如果真 (索引2 ＞ 取数组成员数 (文本数组2))
索引2 ＝ 1
快速文本对象.添加 (文本数组2 [索引2], #换行符 )
索引2 ＝ 索引2 ＋ 1

快速文本对象.添加 (文本数组1 [i], #换行符 )
计次循环尾 ()
结果文本 ＝ 快速文本对象.取文本 (, )
' * 文本长度 32997 '调试输出 (取文本长度 (结果文本))

子程序名	返回值类型	公开	备 注
生成测试A文本	文本型

变量名	类 型	静态	数组	备 注
快速文本对象	快速文本对象
i	整数型
k	整数型

计次循环首 (1000, i)
计次循环首 (10, k)
如果真 (k ＝ 10)
k ＝ 0
快速文本对象.添加 (到文本 (k), #换行符 )
计次循环尾 ()
计次循环尾 ()
返回 (快速文本对象.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 子程序1<br /> .局部变量 文本1, 文本型<br /> .局部变量 文本数组1, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 快速文本对象, 快速文本对象<br /> .局部变量 文本2, 文本型<br /> .局部变量 文本数组2, 文本型, , "0"<br /> .局部变量 索引2, 整数型<br /> .局部变量 结果文本, 文本型<br /> <br /> 文本1 ＝ 生成测试A文本 ()<br /> 文本数组1 ＝ 分割文本 (文本1, #换行符, )<br /> ' * 成员数 10000 ' 调试输出 (取数组成员数 (文本数组1))<br /> 文本2 ＝ “a、b、c、d、e、f、g、h、i、j、k、l、m、n、o、p、q、r、s、t、u、v、w、x、y、z”<br /> 文本数组2 ＝ 分割文本 (文本2, “、”, )<br /> ' * 成员数 26 '调试输出 (取数组成员数 (文本数组2))<br /> <br /> 索引2 ＝ 1<br /> .计次循环首 (取数组成员数 (文本数组1), i)<br />     .如果真 (i ＞ 1 且 i ％ 10 ＝ 1)<br />         .如果真 (索引2 ＞ 取数组成员数 (文本数组2))<br />             索引2 ＝ 1<br />         .如果真结束<br />         快速文本对象.添加 (文本数组2 [索引2], #换行符)<br />         索引2 ＝ 索引2 ＋ 1<br />     .如果真结束<br /> <br />     快速文本对象.添加 (文本数组1 <i>, #换行符)<br /> .计次循环尾 ()<br /> 结果文本 ＝ 快速文本对象.取文本 (, )<br /> ' * 文本长度 32997 '调试输出 (取文本长度 (结果文本))<br /> <br /> <br /> .子程序 生成测试A文本, 文本型<br /> .局部变量 快速文本对象, 快速文本对象<br /> .局部变量 i, 整数型<br /> .局部变量 k, 整数型<br /> <br /> .计次循环首 (1000, i)<br />     .计次循环首 (10, k)<br />         .如果真 (k ＝ 10)<br />             k ＝ 0<br />         .如果真结束<br />         快速文本对象.添加 (到文本 (k), #换行符)<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (快速文本对象.取文本 (, ))