【已更新】快速字节集类 快速文本类，替代通用对象库

350246356

感谢分享，很给力！~

天下唯商

学习学习学习学习学习学习学习

lrmsdyjd

6666666666666666666

static101

比支持库更快的吗，look一下

wsslcj

感谢分享，很给力！~

incwin

6666666666666666666666666

不苦小和尚

试试看看

果心豆腐酱

咸鱼666 发表于 2024-4-25 16:45
大量添加内容的时候，速度差别很大的，bug没复现处理，你发个例子把

这是测试源码。。

多次测试下来，支持库的更好一点
添加文本，在长度超过4百万以后，优势开始体现出来。

从文件读如内容，。会导致清除文本，也会残留8个字节的内容
总的来说，如果不是超大文本，支持库好，
使用上，支持库简单一点，

  

子程序名	返回值类型	公开	备 注
快速对象测试

变量名	类 型	静态	数组	备 注
内容	文本型
结果	文本型
启动
样本2	长整数型		0
样本3	整数型		0
快速	快速文本类YZC
数组	文本型		0
数组2	文本型		0
快速2	快速文本对象
文件号	整数型

文件号 ＝ 打开文件 (取运行目录 () ＋ “\232.txt”, 4, )
计次循环首 (200000, )
写出字节集 (文件号, 到字节集 (“16845696711465489,”))
计次循环尾 ()
关闭文件 (文件号)
快速.从文件读_ (取运行目录 () ＋ “\232.txt”)
启动 ＝ 取启动时间 ()
快速.分割文本 (“,”, 数组, , )
调试输出 (“快速文本类YZC_分割文本”, 取启动时间 () － 启动, 快速.取文本 (, 20), 取数组成员数 (数组))
快速2.从文件读 (取运行目录 () ＋ “\232.txt”)
启动 ＝ 取启动时间 ()
数组2 ＝ 快速2.分割文本 (“,”, )
调试输出 (“快速文本对象_分割文本”, 取启动时间 () － 启动, 快速.取文本 (, 20), 取数组成员数 (数组2))
清除数组 (数组2)
内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\232.txt”))
启动 ＝ 取启动时间 ()
数组2 ＝ 分割文本 (内容, “,”, )
调试输出 (“核心库_分割文本”, 取启动时间 () － 启动, 取数组成员数 (数组2))
快速.清除文本 ()
调试输出 (快速.取文本 (, ))
启动 ＝ 取启动时间 ()
计次循环首 (100000, )
快速.添加 (“16845696711465489,”)
计次循环尾 ()
调试输出 (“快速文本类YZC_添加文本”, 取启动时间 () － 启动, 快速.取长度 ())
' 清除数组 (数组)
启动 ＝ 取启动时间 ()
快速.分割文本 (“,”, 数组, , )
调试输出 (“快速文本类YZC_分割文本”, 取启动时间 () － 启动, 取数组成员数 (数组), )
快速2.清除文本 ()
调试输出 (快速2.取文本 (, ))
启动 ＝ 取启动时间 ()
计次循环首 (100000, )
快速2.添加 (“16845696711465489,”)
计次循环尾 ()
调试输出 (“快速文本对象_添加文本”, 取启动时间 () － 启动, 快速2.取长度 (), )
' 清除数组 (数组2)
启动 ＝ 取启动时间 ()
数组2 ＝ 快速2.分割文本 (“,”, )
调试输出 (“快速文本对象_分割文本”, 取启动时间 () － 启动, 取数组成员数 (数组2), )

i支持库列表	支持库注释
commobj	通用对象支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .子程序 快速对象测试<br /> .局部变量 内容, 文本型<br /> .局部变量 结果, 文本型<br /> .局部变量 启动<br /> .局部变量 样本2, 长整数型, , "0"<br /> .局部变量 样本3, 整数型, , "0"<br /> .局部变量 快速, 快速文本类YZC<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 数组2, 文本型, , "0"<br /> .局部变量 快速2, 快速文本对象<br /> .局部变量 文件号, 整数型<br /> <br /> 文件号 ＝ 打开文件 (取运行目录 () ＋ “\232.txt”, 4, )<br /> .计次循环首 (200000, )<br />     写出字节集 (文件号, 到字节集 (“16845696711465489,”))<br /> .计次循环尾 ()<br /> 关闭文件 (文件号)<br /> 快速.从文件读_ (取运行目录 () ＋ “\232.txt”)<br /> 启动 ＝ 取启动时间 ()<br /> 快速.分割文本 (“,”, 数组, , )<br /> 调试输出 (“快速文本类YZC_分割文本”, 取启动时间 () － 启动, 快速.取文本 (, 20), 取数组成员数 (数组))<br /> 快速2.从文件读 (取运行目录 () ＋ “\232.txt”)<br /> 启动 ＝ 取启动时间 ()<br /> 数组2 ＝ 快速2.分割文本 (“,”, )<br /> 调试输出 (“快速文本对象_分割文本”, 取启动时间 () － 启动, 快速.取文本 (, 20), 取数组成员数 (数组2))<br /> 清除数组 (数组2)<br /> 内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\232.txt”))<br /> 启动 ＝ 取启动时间 ()<br /> 数组2 ＝ 分割文本 (内容, “,”, )<br /> 调试输出 (“核心库_分割文本”, 取启动时间 () － 启动, 取数组成员数 (数组2))<br /> 快速.清除文本 ()<br /> 调试输出 (快速.取文本 (, ))<br /> 启动 ＝ 取启动时间 ()<br /> .计次循环首 (100000, )<br />     快速.添加 (“16845696711465489,”)<br /> .计次循环尾 ()<br /> 调试输出 (“快速文本类YZC_添加文本”, 取启动时间 () － 启动, 快速.取长度 ())<br /> ' 清除数组 (数组)<br /> 启动 ＝ 取启动时间 ()<br /> 快速.分割文本 (“,”, 数组, , )<br /> 调试输出 (“快速文本类YZC_分割文本”, 取启动时间 () － 启动, 取数组成员数 (数组), )<br /> 快速2.清除文本 ()<br /> 调试输出 (快速2.取文本 (, ))<br /> 启动 ＝ 取启动时间 ()<br /> .计次循环首 (100000, )<br />     快速2.添加 (“16845696711465489,”)<br /> .计次循环尾 ()<br /> 调试输出 (“快速文本对象_添加文本”, 取启动时间 () － 启动, 快速2.取长度 (), )<br /> ' 清除数组 (数组2)<br /> 启动 ＝ 取启动时间 ()<br /> 数组2 ＝ 快速2.分割文本 (“,”, )<br /> 调试输出 (“快速文本对象_分割文本”, 取启动时间 () － 启动, 取数组成员数 (数组2), )

幽靈家族

感谢分享，很给力

D名俾人改晒

6666666666666666666666666