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

APPLEUFO

有时候把一个文本型数组
"a","b","cv"，”t“
叠加成  abcvt   。一般用  A=A+1这样的叠加  ，这样速度不够快   后面用快速文本对象。速度就稳定的块了
也不像其他操作内存，指针的例子一样，到底要申请多大空间，还得自己选，大概估算，选错了，数据大了，就程序挂掉

  

子程序名	返回值类型	公开	备 注
转换模块_文本数组转文本型_变量叠加	文本型		这是一个文本数组，转为方便对比的文本，中间用字符串隔开。参数2不写默认换行符。  数据量大的话，会很慢,不推荐使用
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

变量名	类 型	静态	数组	备 注
n1	整数型
ls	文本型

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

计次循环首 (取数组成员数 (参数_文本数组), n1)
ls ＝ ls ＋ 参数_文本数组 [n1] ＋ 参数_分隔符
计次循环尾 ()
ls ＝ 取文本左边 (ls, 取文本长度 (ls) － 取文本长度 (参数_分隔符))
返回 (ls)

.版本 2<br /> <br /> .子程序 转换模块_文本数组转文本型_变量叠加, 文本型, 公开, 这是一个文本数组，转为方便对比的文本，中间用字符串隔开。参数2不写默认换行符。  数据量大的话，会很慢,不推荐使用<br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 n1, 整数型<br /> .局部变量 ls, 文本型<br /> <br /> .如果真 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (参数_文本数组), n1)<br />     ls ＝ ls ＋ 参数_文本数组 [n1] ＋ 参数_分隔符<br /> .计次循环尾 ()<br /> <br /> ls ＝ 取文本左边 (ls, 取文本长度 (ls) － 取文本长度 (参数_分隔符))<br /> <br /> 返回 (ls)

  

子程序名	返回值类型	公开	备 注
转换模块_文本数组转文本型_临时文件	文本型		用了临时文件  比叠加快很多。数据多的话，很稳定比内存叠加快。参数2不写默认换行符。
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

变量名	类 型	静态	数组	备 注
局变_临时文件名	文本型
局变_文件号	整数型
n1	整数型
局变_结果	文本型

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

局变_临时文件名 ＝ 磁盘模块_取临时文件夹目录 () ＋ “文本数组转换为文本.txt”
局变_文件号 ＝ 打开文件 (局变_临时文件名, #重写, )
' 计时器启动 ()
计次循环首 (取数组成员数 (参数_文本数组), n1)
写出文本 (局变_文件号, 参数_文本数组 [n1] ＋ 参数_分隔符)
计次循环尾 ()
' 计时器结束 ()
关闭文件 (局变_文件号)
' 计时器启动 ()
局变_文件号 ＝ 打开文件 (局变_临时文件名, #读入, )
' 移到文件首 (局变_文件号)
局变_结果 ＝ 读入文本 (局变_文件号, )
关闭文件 (局变_文件号)
局变_结果 ＝ 取文本左边 (局变_结果, 取文本长度 (局变_结果) － 取文本长度 (参数_分隔符))
' 局变_结果 ＝ 文本模块_删首尾换行符 (局变_结果)  ' ？？？  自定义分隔符不行
' 计时器结束 ()
返回 (局变_结果)

.版本 2<br /> <br /> .子程序 转换模块_文本数组转文本型_临时文件, 文本型, 公开, 用了临时文件  比叠加快很多。数据多的话，很稳定比内存叠加快。参数2不写默认换行符。<br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 局变_临时文件名, 文本型<br /> .局部变量 局变_文件号, 整数型<br /> .局部变量 n1, 整数型<br /> .局部变量 局变_结果, 文本型<br /> <br /> .如果真 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .如果真结束<br /> <br /> <br /> <br /> 局变_临时文件名 ＝ 磁盘模块_取临时文件夹目录 () ＋ “文本数组转换为文本.txt”<br /> <br /> 局变_文件号 ＝ 打开文件 (局变_临时文件名, #重写, )<br /> ' 计时器启动 ()<br /> .计次循环首 (取数组成员数 (参数_文本数组), n1)<br /> <br />     写出文本 (局变_文件号, 参数_文本数组 [n1] ＋ 参数_分隔符)<br /> <br /> .计次循环尾 ()<br /> ' 计时器结束 ()<br /> 关闭文件 (局变_文件号)<br /> <br /> <br /> ' 计时器启动 ()<br /> <br /> 局变_文件号 ＝ 打开文件 (局变_临时文件名, #读入, )<br /> ' 移到文件首 (局变_文件号)<br /> 局变_结果 ＝ 读入文本 (局变_文件号, )<br /> 关闭文件 (局变_文件号)<br /> <br /> 局变_结果 ＝ 取文本左边 (局变_结果, 取文本长度 (局变_结果) － 取文本长度 (参数_分隔符))<br /> <br /> ' 局变_结果 ＝ 文本模块_删首尾换行符 (局变_结果)  ' ？？？  自定义分隔符不行<br /> <br /> ' 计时器结束 ()<br /> <br /> 返回 (局变_结果)

   
转换模块_文本数组转文本型_临时文件   这个能最快我是没想到的，为啥啊，比内存和快速文本对象还块

快速文本对象很简单   添加   取回  就完事了  

  

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

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

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


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

计次循环首 (取数组成员数 (参数_文本数组), n1)
局变_文本.添加 (参数_文本数组 [n1] ＋ 参数_分隔符)
计次循环尾 ()
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 /> .计次循环首 (取数组成员数 (参数_文本数组), n1)<br /> <br />     局变_文本.添加 (参数_文本数组 [n1] ＋ 参数_分隔符)<br /> <br /> .计次循环尾 ()<br /> <br /> ls ＝ 局变_文本.取文本 (, 局变_文本.取长度 () － 取文本长度 (参数_分隔符))<br /> <br /> 返回 (ls)

914998915

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

year1970

感谢分享

查过

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

豆豆灰常开心

全都是大佬~

黑咖啡

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

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

APPLEUFO

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)

cf2006a

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

.版本 2
.支持库 commobj

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

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

wh1234567

谢楼主分享

查过

感谢分享，很给力！~