数组_合并文本 将文本数组内容合并到文本中

jr21066

如果不使用快速文本对象的话,比变量不断相加应该能快一点

  

子程序名	返回值类型	公开	备 注
数组_合并文本	文本型		将文本数组的内容合并到一个文本变量中
参数名	类 型	参考	可空	数组	备 注
文本数组	文本型
添加分隔符	文本型

变量名	类 型	静态	数组	备 注
缓冲区	整数型			内存缓冲区
新缓冲区	整数型
内容长度	整数型
缓冲区大小	整数型
计数器	整数型
文本串	文本型
文本长度	整数型
返回值	文本型

' 初始化缓冲区为10M大小
缓冲区大小 ＝ 1024 × 1024 × 10
缓冲区 ＝ 申请内存 (缓冲区大小, )
计次循环首 (取数组成员数 (文本数组), 计数器)
文本串 ＝ 文本数组 [计数器]
文本长度 ＝ 取文本长度 (文本串 ＋ 添加分隔符)
' 如果缓冲区使用过半时增加缓冲区大小
如果真 (缓冲区大小 ＼ 2 ＜ 内容长度 ＋ 文本长度)
新缓冲区 ＝ 申请内存 (缓冲区大小 × 2, )
缓冲区大小 ＝ 缓冲区大小 × 2
写到内存 (指针到字节集 (缓冲区, 内容长度), 新缓冲区, )
释放内存 (缓冲区)
缓冲区 ＝ 新缓冲区
写到内存 (文本串 ＋ 添加分隔符, 缓冲区 ＋ 内容长度, )
内容长度 ＝ 内容长度 ＋ 文本长度
计次循环尾 ()
返回值 ＝ 到文本 (指针到字节集 (缓冲区, 内容长度 － 取文本长度 (添加分隔符)))
释放内存 (缓冲区)
返回 (返回值)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 数组_合并文本, 文本型, 公开, 将文本数组的内容合并到一个文本变量中<br /> .参数 文本数组, 文本型, 数组<br /> .参数 添加分隔符, 文本型, 可空<br /> .局部变量 缓冲区, 整数型, , , 内存缓冲区<br /> .局部变量 新缓冲区, 整数型<br /> .局部变量 内容长度, 整数型<br /> .局部变量 缓冲区大小, 整数型<br /> .局部变量 计数器, 整数型<br /> .局部变量 文本串, 文本型<br /> .局部变量 文本长度, 整数型<br /> .局部变量 返回值, 文本型<br /> <br /> ' 初始化缓冲区为10M大小<br /> 缓冲区大小 ＝ 1024 × 1024 × 10<br /> 缓冲区 ＝ 申请内存 (缓冲区大小, )<br /> .计次循环首 (取数组成员数 (文本数组), 计数器)<br />     文本串 ＝ 文本数组 [计数器]<br />     文本长度 ＝ 取文本长度 (文本串 ＋ 添加分隔符)<br />     ' 如果缓冲区使用过半时增加缓冲区大小<br />     .如果真 (缓冲区大小 ＼ 2 ＜ 内容长度 ＋ 文本长度)<br />         新缓冲区 ＝ 申请内存 (缓冲区大小 × 2, )<br />         缓冲区大小 ＝ 缓冲区大小 × 2<br />         写到内存 (指针到字节集 (缓冲区, 内容长度), 新缓冲区, )<br />         释放内存 (缓冲区)<br />         缓冲区 ＝ 新缓冲区<br />     .如果真结束<br />     写到内存 (文本串 ＋ 添加分隔符, 缓冲区 ＋ 内容长度, )<br />     内容长度 ＝ 内容长度 ＋ 文本长度<br /> .计次循环尾 ()<br /> 返回值 ＝ 到文本 (指针到字节集 (缓冲区, 内容长度 － 取文本长度 (添加分隔符)))<br /> 释放内存 (缓冲区)<br /> 返回 (返回值)

jr21066

Crampsr 发表于 2020-11-17 00:05
为啥需要申请内存呢？

如果使用 文本=文本+xxx  的话.会很慢.要分配几次变量的.
最快还是使用快速文本.直接数组置文本.

北冥

为啥需要申请内存呢？