求优化解包速度

千面萌萌

10000次，耗时1秒多，感觉效率不高，求大佬优化

真冬

  

子程序名	返回值类型	公开	备 注
子程序2取分包MD5	整数型		失败返回负数：-1非标准包；-2非完整包。成功返回分包MD5数量。
参数名	类 型	参考	可空	数组	备 注
参数_输入包	字节集
参数_MD5数组	文本型

变量名	类 型	静态	数组	备 注
局_读取位置	整数型
局_分包长度	整数型
局_包总长度	整数型

局_读取位置 ＝ 1
清除数组 (参数_MD5数组)
局_包总长度 ＝ 取字节集长度 (参数_输入包)
判断循环首 (局_读取位置 ＜ 局_包总长度)
如果真 (参数_输入包 [局_读取位置] ≠ 192)  ' (包头HEX ≈ “C0”)
返回 (-1)  ' 非标准包，暂时发现只在登录时候出现
局_读取位置 ＝ 局_读取位置 ＋ 4
局_分包长度 ＝ 反转整数字节序 (取字节集数据 (参数_输入包, #整数型, 局_读取位置))
如果真 (局_分包长度 ＋ 局_读取位置 － 1 ＞ 局_包总长度)
返回 (-2)  ' 说明是非完整的数据包
局_读取位置 ＝ 局_读取位置 ＋ 局_分包长度
加入成员 (参数_MD5数组, 取数据摘要 (取字节集中间 (参数_输入包, 局_读取位置, 局_分包长度)))
判断循环尾 ()
返回 (取数组成员数 (参数_MD5数组))

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .子程序 子程序2取分包MD5, 整数型, , 失败返回负数：-1非标准包；-2非完整包。成功返回分包MD5数量。<br /> .参数 参数_输入包, 字节集<br /> .参数 参数_MD5数组, 文本型, 数组<br /> .局部变量 局_读取位置, 整数型<br /> .局部变量 局_分包长度, 整数型<br /> .局部变量 局_包总长度, 整数型<br /> <br /> 局_读取位置 ＝ 1<br /> 清除数组 (参数_MD5数组)<br /> 局_包总长度 ＝ 取字节集长度 (参数_输入包)<br /> .判断循环首 (局_读取位置 ＜ 局_包总长度)<br />     .如果真 (参数_输入包 [局_读取位置] ≠ 192)  ' (包头HEX ≈ “C0”)<br />         返回 (-1)  ' 非标准包，暂时发现只在登录时候出现<br />     .如果真结束<br />     局_读取位置 ＝ 局_读取位置 ＋ 4<br />     局_分包长度 ＝ 反转整数字节序 (取字节集数据 (参数_输入包, #整数型, 局_读取位置))<br />     .如果真 (局_分包长度 ＋ 局_读取位置 － 1 ＞ 局_包总长度)<br />         返回 (-2)  ' 说明是非完整的数据包<br />     .如果真结束<br />     局_读取位置 ＝ 局_读取位置 ＋ 局_分包长度<br />     加入成员 (参数_MD5数组, 取数据摘要 (取字节集中间 (参数_输入包, 局_读取位置, 局_分包长度)))<br /> .判断循环尾 ()<br /> 返回 (取数组成员数 (参数_MD5数组))

补充内容 (2025-10-5 01:07):
改错了

补充内容 (2025-10-5 01:10):
'交换一下位置
加入成员 (参数_MD5数组, 取数据摘要 (取字节集中间 (参数_输入包, 局_读取位置, 局_分包长度)))
局_读取位置 ＝ 局_读取位置 ＋ 局_分包...

汉族

大佬们估计更换模块找不到类型

真冬

  

子程序名	返回值类型	公开	备 注
子程序1取分包MD5
参数名	类 型	参考	可空	数组	备 注
参数_输入	字节集
参数_MD5	文本型

变量名	类 型	静态	数组	备 注
wid	整数型
bin1	字节集
len	整数型
bin3	字节集
i	整数型
bin2	字节集
cd	整数型
md5	文本型

清除数组 (参数_MD5)
wid ＝ 打开内存文件 ()
写出字节集 (wid, 参数_输入)
移到文件首 (wid)
cd ＝ 取文件长度 (wid)
判断循环首 (取读写位置 (wid) ＜ cd)
i ＝ i ＋ 1
. ' 如果真 (i ＞ 10)  ' 防止超长数据
' 返回 ()
bin1 ＝ 读入字节集 (wid, 4)
如果真 (bin1 [1] ≠ 192)  ' ’(包头HEX ≈ “C0”)
返回 ()  ' 非标准包，暂时发现只在登录时候出现
读入数据 (wid, len)
len ＝ 反转整数字节序 (len)
如果真 (len ＞ cd)  ' 说明是非完整的数据包
返回 ()
bin3 ＝ 读入字节集 (wid, len)
md5 ＝ 取数据摘要 (bin3)
加入成员 (参数_MD5, md5)
' 调试输出 (“模块分包”, 取数据摘要 (bin3))
判断循环尾 ()
关闭文件 (wid)

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .子程序 子程序1取分包MD5<br /> .参数 参数_输入, 字节集<br /> .参数 参数_MD5, 文本型, 数组<br /> .局部变量 wid, 整数型<br /> .局部变量 bin1, 字节集<br /> .局部变量 len, 整数型<br /> .局部变量 bin3, 字节集<br /> .局部变量 i, 整数型<br /> .局部变量 bin2, 字节集<br /> .局部变量 cd, 整数型<br /> .局部变量 md5, 文本型<br /> <br /> 清除数组 (参数_MD5)<br /> wid ＝ 打开内存文件 ()<br /> 写出字节集 (wid, 参数_输入)<br /> 移到文件首 (wid)<br /> cd ＝ 取文件长度 (wid)<br /> .判断循环首 (取读写位置 (wid) ＜ cd)<br />     i ＝ i ＋ 1<br />     .' 如果真 (i ＞ 10)  ' 防止超长数据<br />         ' 返回 ()<br />     .如果真结束<br />     bin1 ＝ 读入字节集 (wid, 4)<br />     .如果真 (bin1 [1] ≠ 192)  ' ’(包头HEX ≈ “C0”)<br />         返回 ()  ' 非标准包，暂时发现只在登录时候出现<br />     .如果真结束<br />     读入数据 (wid, len)<br />     len ＝ 反转整数字节序 (len)<br />     .如果真 (len ＞ cd)  ' 说明是非完整的数据包<br />         返回 ()<br />     .如果真结束<br />     bin3 ＝ 读入字节集 (wid, len)<br />     md5 ＝ 取数据摘要 (bin3)<br />     加入成员 (参数_MD5, md5)<br />     ' 调试输出 (“模块分包”, 取数据摘要 (bin3))<br /> .判断循环尾 ()<br /> 关闭文件 (wid)

补充内容 (2025-10-4 23:43):
把返回改成跳出循环能释放内存

真冬

  

子程序名	返回值类型	公开	备 注
子程序2取分包MD5
参数名	类 型	参考	可空	数组	备 注
参数_输入	字节集
参数_MD5	文本型

变量名	类 型	静态	数组	备 注
len	整数型
bin3	字节集
i1	整数型
cd	整数型
md5	文本型

清除数组 (参数_MD5)
i1 ＝ 1
cd ＝ 取字节集长度 (参数_输入)
判断循环首 (i1 ＜ cd)
如果真 (参数_输入 [i1] ≠ 192)  ' ’(包头HEX ≈ “C0”)
返回 ()  ' 非标准包，暂时发现只在登录时候出现
i1 ＝ i1 ＋ 4
len ＝ 反转整数字节序 (取字节集数据 (参数_输入, #整数型, i1))
如果真 (len ＞ cd)  ' 说明是非完整的数据包
返回 ()
bin3 ＝ 取字节集中间 (参数_输入, i1, len)
i1 ＝ i1 ＋ len
md5 ＝ 取数据摘要 (bin3)
加入成员 (参数_MD5, md5)
' 调试输出 (“模块分包”, 取数据摘要 (bin3))
判断循环尾 ()

i支持库列表	支持库注释
dp1	数据操作支持库一

.版本 2<br /> .支持库 dp1<br /> <br /> .子程序 子程序2取分包MD5<br /> .参数 参数_输入, 字节集<br /> .参数 参数_MD5, 文本型, 数组<br /> .局部变量 len, 整数型<br /> .局部变量 bin3, 字节集<br /> .局部变量 i1, 整数型<br /> .局部变量 cd, 整数型<br /> .局部变量 md5, 文本型<br /> <br /> 清除数组 (参数_MD5)<br /> i1 ＝ 1<br /> cd ＝ 取字节集长度 (参数_输入)<br /> .判断循环首 (i1 ＜ cd)<br />     .如果真 (参数_输入 [i1] ≠ 192)  ' ’(包头HEX ≈ “C0”)<br />         返回 ()  ' 非标准包，暂时发现只在登录时候出现<br />     .如果真结束<br />     i1 ＝ i1 ＋ 4<br />     len ＝ 反转整数字节序 (取字节集数据 (参数_输入, #整数型, i1))<br />     .如果真 (len ＞ cd)  ' 说明是非完整的数据包<br />         返回 ()<br />     .如果真结束<br />     bin3 ＝ 取字节集中间 (参数_输入, i1, len)<br />     i1 ＝ i1 ＋ len<br />     md5 ＝ 取数据摘要 (bin3)<br />     加入成员 (参数_MD5, md5)<br />     ' 调试输出 (“模块分包”, 取数据摘要 (bin3))<br /> .判断循环尾 ()

另一种写法


补充内容 (2025-10-5 00:34):
如果真 (len ＋ i1 － 1 ＞ cd)  ' 说明是非完整的数据包

千面萌萌

真冬 发表于 2025-10-4 23:20
[e=0]
.版本 2
.支持库 dp1

把返回改成跳出循环能释放内存 有什么讲究吗？  我理解的是两种方法都马上结束了当前函数，变量不是都自动清空吗

真冬

千面萌萌 发表于 2025-10-5 17:41
把返回改成跳出循环能释放内存 有什么讲究吗？  我理解的是两种方法都马上结束了当前函数，变量不是都自 ...

打开内存文件就是申请了内存区域，如果不关闭文件会增大