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

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)

APPLEUFO

易语飞扬 发表于 2025-6-9 09:46
下面的代码更快：

.版本 2

高,实在是高啊,大师啊 经过测试  ,比那个最快的还快15-17倍

  

子程序名	返回值类型	公开	备 注
转换模块_文本数组转文本型_临时文件和字节集对象	文本型		迄今为止最快的，不行的话换备用的（转换模块_文本数组转文本型_快速字节集对象）、、、网友黑咖啡写的
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

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

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

局变_临时文件名 ＝ 磁盘模块_取临时文件夹目录 () ＋ 时间模块_取年月日时分秒 () ＋ “文本数组转换为文本.txt”  ' 每次文件名加上了时间，这样不一样，防止万一被占用的情况
局变_文件号 ＝ 打开文件 (局变_临时文件名, #重写, )
写出数据 (局变_文件号, 参数_文本数组)
关闭文件 (局变_文件号)
局变_字节集对象.从文件读 (局变_临时文件名)
局变_字节集对象.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )
局变_结果 ＝ 到文本 (局变_字节集对象.取字节集 (, 局变_字节集对象.取长度 () － 取文本长度 (参数_分隔符)))
返回 (局变_结果)

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

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 转换模块_文本数组转文本型_临时文件和字节集对象, 文本型, 公开, 迄今为止最快的，不行的话换备用的（转换模块_文本数组转文本型_快速字节集对象）、、、网友黑咖啡写的<br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 局变_临时文件名, 文本型<br /> .局部变量 局变_文件号, 整数型<br /> .局部变量 局变_结果, 文本型<br /> .局部变量 局变_字节集对象, 快速字节集对象<br /> <br /> .如果 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .否则<br />     ' 用它自己传入的 参数_分隔符<br /> .如果结束<br /> <br /> 局变_临时文件名 ＝ 磁盘模块_取临时文件夹目录 () ＋ 时间模块_取年月日时分秒 () ＋ “文本数组转换为文本.txt”  ' 每次文件名加上了时间，这样不一样，防止万一被占用的情况<br /> 局变_文件号 ＝ 打开文件 (局变_临时文件名, #重写, )<br /> 写出数据 (局变_文件号, 参数_文本数组)<br /> 关闭文件 (局变_文件号)<br /> <br /> 局变_字节集对象.从文件读 (局变_临时文件名)<br /> 局变_字节集对象.替换子字节集 ({ 0 }, 到字节集 (参数_分隔符), , )<br /> 局变_结果 ＝ 到文本 (局变_字节集对象.取字节集 (, 局变_字节集对象.取长度 () － 取文本长度 (参数_分隔符)))<br /> <br /> 返回 (局变_结果)

  

子程序名	返回值类型	公开	备 注
快速合并文本组	文本型		2025.6.9日  迄今为止最快的网友 易语飞扬写的
参数名	类 型	参考	可空	数组	备 注
参数_文本数组	文本型
参数_分隔符	文本型

变量名	类 型	静态	数组	备 注
长度组	整数型		0	参数_文本数组的长度。
总文本	文本型
总长度	整数型
总指针
分隔符长度	整数型
当前位置
I

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

重定义数组 (长度组, 假, 取数组成员数 (参数_文本数组))
分隔符长度 ＝ 取文本长度 (参数_分隔符)
计次循环首 (取数组成员数 (参数_文本数组), I)
长度组 [I] ＝ 取文本长度 (参数_文本数组 [I])
总长度 ＝ 总长度 ＋ 长度组 [I] ＋ 分隔符长度
计次循环尾 ()
总文本 ＝ 取空白文本 (总长度)
总指针 ＝ 取变量数据地址 (总文本)
当前位置 ＝ 总指针
计次循环首 (取数组成员数 (参数_文本数组), I)
RtlMoveMemory (当前位置, 参数_文本数组 [I], 长度组 [I])
当前位置 ＝ 当前位置 ＋ 长度组 [I]
RtlMoveMemory (当前位置, 参数_分隔符, 分隔符长度)
当前位置 ＝ 当前位置 ＋ 分隔符长度
计次循环尾 ()
' 调试输出 (总文本)
总文本 ＝ 取文本左边 (总文本, 取文本长度 (总文本) － 取文本长度 (参数_分隔符))  ' 加了这一行  最后一个分隔符就不用添加进去了
返回 (总文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 快速合并文本组, 文本型, 公开, 2025.6.9日  迄今为止最快的网友 易语飞扬写的<br /> .参数 参数_文本数组, 文本型, 数组<br /> .参数 参数_分隔符, 文本型, 可空<br /> .局部变量 长度组, 整数型, , "0", 参数_文本数组的长度。<br /> .局部变量 总文本, 文本型<br /> .局部变量 总长度, 整数型<br /> .局部变量 总指针<br /> .局部变量 分隔符长度, 整数型<br /> .局部变量 当前位置<br /> .局部变量 I<br /> <br /> .如果 (是否为空 (参数_分隔符) ＝ 真)<br />     参数_分隔符 ＝ #换行符<br /> .否则<br />     ' 用它自己传入的 参数_分隔符<br /> .如果结束<br /> <br /> 重定义数组 (长度组, 假, 取数组成员数 (参数_文本数组))<br /> 分隔符长度 ＝ 取文本长度 (参数_分隔符)<br /> .计次循环首 (取数组成员数 (参数_文本数组), I)<br />     长度组 [I] ＝ 取文本长度 (参数_文本数组 [I])<br />     总长度 ＝ 总长度 ＋ 长度组 [I] ＋ 分隔符长度<br /> .计次循环尾 ()<br /> 总文本 ＝ 取空白文本 (总长度)<br /> 总指针 ＝ 取变量数据地址 (总文本)<br /> 当前位置 ＝ 总指针<br /> .计次循环首 (取数组成员数 (参数_文本数组), I)<br />     RtlMoveMemory (当前位置, 参数_文本数组 [I], 长度组 [I])<br />     当前位置 ＝ 当前位置 ＋ 长度组 [I]<br />     RtlMoveMemory (当前位置, 参数_分隔符, 分隔符长度)<br />     当前位置 ＝ 当前位置 ＋ 分隔符长度<br /> .计次循环尾 ()<br /> ' 调试输出 (总文本)<br /> <br /> 总文本 ＝ 取文本左边 (总文本, 取文本长度 (总文本) － 取文本长度 (参数_分隔符))  ' 加了这一行  最后一个分隔符就不用添加进去了<br /> 返回 (总文本)

易语飞扬

下面的代码更快：

.版本 2
.支持库 spec

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

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

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

.版本 2

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

易语飞扬

感谢分享

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)