文本型数组叠加的例程 快速文本对象的使用

cf2006a

黑咖啡 发表于 2025-5-27 11:35
那当然是→ 写出数据（可直接写出文本数组）+ 快速快速字节集对象（替换分隔符），更快啦。
[e=1].版本 2
. ...

.版本 2
.支持库 commobj

.子程序 转换模块_文本数组转文本型_写数组和快速替换, 文本型
.参数 参数_文本数组, 文本型, 数组
.参数 参数_分隔符, 文本型, 可空
.局部变量 局变_结果, 文本型
.局部变量 a, 快速字节集对象

.如果真 (是否为空 (参数_分隔符))
    参数_分隔符 ＝ #换行符
.如果真结束
a.添加 (参数_文本数组)
a.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )
返回 (到文本 (a.取字节集 (, )))
还真的可以

wh1234567

谢楼主分享

查过

感谢分享，很给力！~

豆豆灰常开心

全都是大佬~

亿万

感谢分享

pipicool

学习一下

renhe2018

强大，前来学习啦。

黑咖啡

那当然是→ 写出数据（可直接写出文本数组）+ 快速快速字节集对象（替换分隔符），更快啦。

  

子程序名	返回值类型	公开	备 注
转换模块_文本数组转文本型_写数组和快速替换	文本型
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

变量名	类 型	静态	数组	备 注
局变_临时文件名	文本型
局变_文件号	整数型
n1	整数型
局变_结果	文本型
a	快速字节集对象

如果真 (是否为空 (参数_分隔符) ＝ 真)
参数_分隔符 ＝ #换行符
局变_临时文件名 ＝ 磁盘模块_取临时文件夹目录 () ＋ “文本数组转换为文本.txt”
局变_文件号 ＝ 打开文件 (局变_临时文件名, #重写, )
写出数据 (局变_文件号, 参数_文本数组)
关闭文件 (局变_文件号)
a.从文件读 (局变_临时文件名)
a.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )
局变_结果 ＝ 到文本 (a.取字节集 (, ))
返回 (局变_结果)

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 转换模块_文本数组转文本型_写数组和快速替换, 文本型<br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 局变_临时文件名, 文本型<br /> .局部变量 局变_文件号, 整数型<br /> .局部变量 n1, 整数型<br /> .局部变量 局变_结果, 文本型<br /> .局部变量 a, 快速字节集对象<br /> <br /> .如果真 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .如果真结束<br /> 局变_临时文件名 ＝ 磁盘模块_取临时文件夹目录 () ＋ “文本数组转换为文本.txt”<br /> 局变_文件号 ＝ 打开文件 (局变_临时文件名, #重写, )<br /> 写出数据 (局变_文件号, 参数_文本数组)<br /> 关闭文件 (局变_文件号)<br /> a.从文件读 (局变_临时文件名)<br /> a.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )<br /> 局变_结果 ＝ 到文本 (a.取字节集 (, ))<br /> 返回 (局变_结果)

liuweiwei

感谢您对论坛的支持！

bianyuan456

已经顶贴，感谢您对论坛的支持！