下面的代码更快：

.版本 2
.支持库 spec

.子程序 快速合并文本组, 文本型
.参数 参数_文本数组, 文本型, 数组
.参数 参数_分隔符, 文本型, 可空
.局部变量 长度组, 整数型, , "0", 参数_文本数组的长度。
.局部变量 总文本, 文本型
.局部变量 总长度, 整数型
.局部变量 总指针
.局部变量 分隔符长度, 整数型
.局部变量 当前位置
.局部变量 I

.如果 (是否为空 (参数_分隔符) ＝ 真)
    参数_分隔符 ＝ #换行符
.否则
    ' 用它自己传入的 参数_分隔符
.如果结束

重定义数组 (长度组, 假, 取数组成员数 (参数_文本数组))
分隔符长度 ＝ 取文本长度 (参数_分隔符)
.计次循环首 (取数组成员数 (参数_文本数组), I)
    长度组 [I] ＝ 取文本长度 (参数_文本数组 [I])
    总长度 ＝ 总长度 ＋ 长度组 [I] ＋ 分隔符长度
.计次循环尾 ()
总文本 ＝ 取空白文本 (总长度)
总指针 ＝ 取变量数据地址 (总文本)
当前位置 ＝ 总指针
.计次循环首 (取数组成员数 (参数_文本数组), I)
    RtlMoveMemory (当前位置, 参数_文本数组 [I], 长度组 [I])
    当前位置 ＝ 当前位置 ＋ 长度组 [I]
    RtlMoveMemory (当前位置, 参数_分隔符, 分隔符长度)
    当前位置 ＝ 当前位置 ＋ 分隔符长度
.计次循环尾 ()
' 调试输出 (总文本)
返回 (总文本)

.版本 2

.DLL命令 RtlMoveMemory, 整数型, "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 文本型
    .参数 Length, 整数型

感谢分享

#在这里快速回复#文本型数组叠加的例程 快速文本对象的使用 [

感谢分享

感谢发布原创作品，精易因你更精彩！6666666666666

全都是大佬~

cf2006a 发表于 2025-5-28 21:03
.版本 2
.支持库 commobj

好多种都可以传数组，写文件的比较快

cf2006a 发表于 2025-5-28 21:03
.版本 2
.支持库 commobj

a.添加 (参数_文本数组)
a.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )
返回 (到文本 (a.取字节集 (, )))


试了下添加改成   a..置字节集 (参数_文本数组)  效果也一样

  

子程序名	返回值类型	公开	备 注
转换模块_文本数组转文本型_快速字节集对象	文本型		。
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

变量名	类 型	静态	数组	备 注
n1	整数型
局变_字节集	快速字节集对象
ls	文本型

如果 (是否为空 (参数_分隔符) ＝ 真)
参数_分隔符 ＝ #换行符


' 用它自己传入的 参数_分隔符

局变_字节集.置字节集 (参数_文本数组)
局变_字节集.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )
ls ＝ 到文本 (局变_字节集.取字节集 (, 局变_字节集.取长度 () － 取文本长度 (参数_分隔符)))
返回 (ls)

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 转换模块_文本数组转文本型_快速字节集对象, 文本型, 公开, 。<br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 n1, 整数型<br /> .局部变量 局变_字节集, 快速字节集对象<br /> .局部变量 ls, 文本型<br /> <br /> .如果 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .否则<br /> <br />     ' 用它自己传入的 参数_分隔符<br /> .如果结束<br /> <br /> <br /> 局变_字节集.置字节集 (参数_文本数组)<br /> 局变_字节集.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )<br /> ls ＝ 到文本 (局变_字节集.取字节集 (, 局变_字节集.取长度 () － 取文本长度 (参数_分隔符)))<br /> <br /> 返回 (ls)