求代码优化

梦寻简单

修改点1：
将所有的【文本 ＝ UnicodeToAnsi2 (取字节集中间 (返回内容, 偏移, 64))】全部放在【ID ＝ cha询ID】这个条件成立之后。
修改点2：

  

子程序名	返回值类型	公开	备 注
反向字节集到整数	整数型
参数名	类 型	参考	可空	数组	备 注
字节集	字节集

' 返回 (进制_十六到十 (字节集_到十六进制 (字节集_反转 (字节集))))
返回 (取字节集数据 (字节集, #整数型, ))

.版本 2<br /> <br /> .子程序 反向字节集到整数, 整数型<br /> .参数 字节集, 字节集<br /> <br /> ' 返回 (进制_十六到十 (字节集_到十六进制 (字节集_反转 (字节集))))<br /> 返回 (取字节集数据 (字节集, #整数型, ))

agz618

真冬 发表于 2024-10-8 00:29
[e=0]
.版本 2
.支持库 spec

非常感谢！程序执行的也非常快，但是有个问题，cha询的数据有时不对，因为该数据文件有id重复的现象，仅在x=4 7 12 13 14 15 17等等这几个数据段中cha询的id才是对的

真冬

  

子程序名	返回值类型	公开	备 注
子程序1茶熏爱帝	文本型
参数名	类 型	参考	可空	数组	备 注
参数_文件内容	字节集
参数_茶熏爱帝	整数型

变量名	类 型	静态	数组	备 注
wjh	整数型
大小	整数型
数量	整数型
id	整数型
x	整数型
结果	文本型
记录位置	整数型
第二个	逻辑型

wjh ＝ 打开内存文件 ()
写出字节集 (wjh, 参数_文件内容)
移动读写位置 (wjh, #文件首, 8)
判断循环首 (是否在文件尾 (wjh, 真) ＝ 假)
x ＝ x ＋ 1
如果真 (x ＝ 14)
移动读写位置 (wjh, #现行位置, 22)
如果真 (x ＝ 16)
移动读写位置 (wjh, #现行位置, 8)
如果真 (x ＝ 34)
移动读写位置 (wjh, #现行位置, 139)
如果真 (x ＝ 49)
移动读写位置 (wjh, #现行位置, 16)
读入数据 (wjh, 大小)
读入数据 (wjh, 数量)
计次循环首 (数量, )
读入数据 (wjh, id)
如果真 (id ＝ 参数_茶熏爱帝)
记录位置 ＝ 取读写位置 (wjh)
如果真 (寻找字节集 (读入字节集 (wjh, 8), { 0, 0 }, ) ＝ -1)
移动读写位置 (wjh, #现行位置, -8)
' 调试输出 (取十六进制文本 (取读写位置 (wjh)))
结果 ＝ 结果 ＋ 选择 (第二个, #换行符, “”) ＋ UnicodeToAnsi2 (读入字节集 (wjh, 64))
移动读写位置 (wjh, #文件首, 记录位置)
第二个 ＝ 真
' 关闭文件 (wjh)
' 返回 (结果)
' 跳出循环 ()
移动读写位置 (wjh, #现行位置, 大小 － 4)
计次循环尾 ()
' 调试输出 (大小, 数量, id, 取十六进制文本 (取读写位置 (wjh)))
判断循环尾 ()
关闭文件 (wjh)
返回 (结果)

.版本 2<br /> <br /> .子程序 子程序1茶熏爱帝, 文本型<br /> .参数 参数_文件内容, 字节集<br /> .参数 参数_茶熏爱帝, 整数型<br /> .局部变量 wjh, 整数型<br /> .局部变量 大小, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 id, 整数型<br /> .局部变量 x, 整数型<br /> .局部变量 结果, 文本型<br /> .局部变量 记录位置, 整数型<br /> .局部变量 第二个, 逻辑型<br /> <br /> wjh ＝ 打开内存文件 ()<br /> 写出字节集 (wjh, 参数_文件内容)<br /> 移动读写位置 (wjh, #文件首, 8)<br /> .判断循环首 (是否在文件尾 (wjh, 真) ＝ 假)<br />     x ＝ x ＋ 1<br />     .如果真 (x ＝ 14)<br />         移动读写位置 (wjh, #现行位置, 22)<br />     .如果真结束<br />     .如果真 (x ＝ 16)<br />         移动读写位置 (wjh, #现行位置, 8)<br />     .如果真结束<br />     .如果真 (x ＝ 34)<br />         移动读写位置 (wjh, #现行位置, 139)<br />     .如果真结束<br />     .如果真 (x ＝ 49)<br />         移动读写位置 (wjh, #现行位置, 16)<br />     .如果真结束<br />     读入数据 (wjh, 大小)<br />     读入数据 (wjh, 数量)<br />     .计次循环首 (数量, )<br />         读入数据 (wjh, id)<br />         .如果真 (id ＝ 参数_茶熏爱帝)<br />             记录位置 ＝ 取读写位置 (wjh)<br />             .如果真 (寻找字节集 (读入字节集 (wjh, 8), { 0, 0 }, ) ＝ -1)<br />                 移动读写位置 (wjh, #现行位置, -8)<br />             .如果真结束<br />             ' 调试输出 (取十六进制文本 (取读写位置 (wjh)))<br />             结果 ＝ 结果 ＋ 选择 (第二个, #换行符, “”) ＋ UnicodeToAnsi2 (读入字节集 (wjh, 64))<br />             移动读写位置 (wjh, #文件首, 记录位置)<br />             第二个 ＝ 真<br />             ' 关闭文件 (wjh)<br />             ' 返回 (结果)<br />             ' 跳出循环 ()<br />         .如果真结束<br />         移动读写位置 (wjh, #现行位置, 大小 － 4)<br />     .计次循环尾 ()<br />     ' 调试输出 (大小, 数量, id, 取十六进制文本 (取读写位置 (wjh)))<br /> .判断循环尾 ()<br /> 关闭文件 (wjh)<br /> 返回 (结果)

这样写就能返回多个结果了

agz618

真冬 发表于 2024-10-8 11:30
[e=0]
.版本 2

不是有时，我看错了。可能是我表达不清，ID重复是指同一ID可能在几个段中出现。17432IDcha询正确的对应是“测试而已”那个
如图。

agz618

ID和文本之间，有的偏移12个字节，有的偏移4个，这个怎么弄@真冬

真冬

agz618 发表于 2024-10-8 12:52
ID和文本之间，有的偏移12个字节，有的偏移4个，这个怎么弄@真冬

哪个偏移12个？

agz618

真冬 发表于 2024-10-8 16:08
哪个偏移12个？

源代码里有。偏移量分两种，一个偏移4，一个偏移12

真冬

agz618 发表于 2024-10-8 16:29
源代码里有。偏移量分两种，一个偏移4，一个偏移12

如果真 (寻找字节集 (读入字节集 (wjh, 8), { 0, 0 }, ) ＝ -1)
移动读写位置 (wjh, #现行位置, -8)
‘这是我的解决方案’

agz618

真冬 发表于 2024-10-8 16:35
如果真 (寻找字节集 (读入字节集 (wjh, 8), { 0, 0 }, ) ＝ -1)
移动读写位置 (wjh, #现行位置, -8)
‘这 ...

  

wjh ＝ 打开内存文件 ()
写出字节集 (wjh, 文件内容)
移动读写位置 (wjh, #文件首, 8)
判断循环首 (是否在文件尾 (wjh, 真) ＝ 假)
x ＝ x ＋ 1
如果真 (x ＝ 14)
移动读写位置 (wjh, #现行位置, 22)
如果真 (x ＝ 16)
移动读写位置 (wjh, #现行位置, 8)
如果真 (x ＝ 34)
移动读写位置 (wjh, #现行位置, 139)
如果真 (x ＝ 49)
移动读写位置 (wjh, #现行位置, 16)
读入数据 (wjh, 大小)
读入数据 (wjh, 数量)
如果真 (x ＝ 1 或 x ＝ 2 或 x ＝ 3 或 x ＝ 5 或 x ＝ 6 或 x ＝ 8 或 x ＝ 9 或 x ＝ 10 或 x ＝ 11 或 x ＝ 16 或 x ＝ 18 或 x ＝ 19 或 x ＝ 20 或 x ＝ 21 或 x ＝ 22 或 x ＝ 23 或 x ＝ 24 或 x ＝ 25 或 x ＝ 26 或 x ＝ 27 或 x ＝ 28 或 x ＝ 29 或 x ＝ 30 或 x ＝ 31 或 x ＝ 32 或 x ＝ 33 或 x ＝ 34 或 x ＝ 35 或 x ＝ 36 或 x ＝ 37 或 x ＝ 38 或 x ＝ 39 或 x ＝ 40 或 x ＝ 43 或 x ＝ 44 或 x ＝ 45 或 x ＝ 46 或 x ＝ 47 或 x ＝ 49 或 x ＝ 53 或 x ＝ 54 或 x ＝ 56 或 x ＝ 59 或 x ＝ 60 或 x ＝ 61 或 x ＝ 62 或 x ＝ 68 或 x ＝ 69 或 x ＝ 70 或 x ＝ 71 或 x ＝ 92)
移动读写位置 (wjh, #现行位置, 大小 × 数量)

如果真 (x ＝ 4 或 x ＝ 7 或 x ＝ 12 或 x ＝ 55)
计次循环首 (数量, )
读入数据 (wjh, id)
如果真 (id ＝ cha询ID)
如果真 (寻找字节集 (读入字节集 (wjh, 8), { 0, 0 }, ) ＝ -1)
移动读写位置 (wjh, #现行位置, -8)
' 调试输出 (取十六进制文本 (取读写位置 (wjh)))
结果 ＝ UnicodeToAnsi2 (读入字节集 (wjh, 64))
关闭文件 (wjh)
返回 (结果)
跳出循环 ()
移动读写位置 (wjh, #现行位置, 大小 － 4)
计次循环尾 ()
如果真 (x ＝ 13 或 x ＝ 14 或 x ＝ 15 或 x ＝ 17 或 x ＝ 41 或 x ＝ 42 或 x ＝ 48 或 x ＝ 50 或 x ＝ 51 或 x ＝ 52 或 x ＝ 57 或 x ＝ 58 或 x ＝ 63 或 x ＝ 64 或 x ＝ 65 或 x ＝ 66 或 x ＝ 67 或 x ＝ 72 或 x ＝ 73 或 x ＝ 74 或 x ＝ 75 或 x ＝ 76 或 x ＝ 77 或 x ＝ 78 或 x ＝ 79 或 x ＝ 80 或 x ＝ 81 或 x ＝ 82 或 x ＝ 83 或 x ＝ 84 或 x ＝ 85 或 x ＝ 86 或 x ＝ 87 或 x ＝ 88 或 x ＝ 90 或 x ＝ 91)
计次循环首 (数量, )
读入数据 (wjh, id)
如果真 (id ＝ cha询ID)
如果真 (寻找字节集 (读入字节集 (wjh, 4), { 0, 0 }, ) ＝ -1)
移动读写位置 (wjh, #现行位置, -4)
' 调试输出 (取十六进制文本 (取读写位置 (wjh)))
结果 ＝ UnicodeToAnsi2 (读入字节集 (wjh, 64))
关闭文件 (wjh)
返回 (结果)
跳出循环 ()
移动读写位置 (wjh, #现行位置, 大小 － 4)
计次循环尾 ()
' 调试输出 (大小, 数量, id, 取十六进制文本 (取读写位置 (wjh)))
_启动窗口.编辑框4.内容 ＝ _启动窗口.编辑框4.内容 ＋ “ ||” ＋ 到文本 (x)
判断循环尾 ()
关闭文件 (wjh)
返回 (“”)

.版本 2<br /> <br /> wjh ＝ 打开内存文件 ()<br /> 写出字节集 (wjh, 文件内容)<br /> 移动读写位置 (wjh, #文件首, 8)<br /> .判断循环首 (是否在文件尾 (wjh, 真) ＝ 假)<br />     x ＝ x ＋ 1<br />     .如果真 (x ＝ 14)<br />         移动读写位置 (wjh, #现行位置, 22)<br />     .如果真结束<br />     .如果真 (x ＝ 16)<br />         移动读写位置 (wjh, #现行位置, 8)<br />     .如果真结束<br />     .如果真 (x ＝ 34)<br />         移动读写位置 (wjh, #现行位置, 139)<br />     .如果真结束<br />     .如果真 (x ＝ 49)<br />         移动读写位置 (wjh, #现行位置, 16)<br />     .如果真结束<br />     读入数据 (wjh, 大小)<br />     读入数据 (wjh, 数量)<br />     .如果真 (x ＝ 1 或 x ＝ 2 或 x ＝ 3 或 x ＝ 5 或 x ＝ 6 或 x ＝ 8 或 x ＝ 9 或 x ＝ 10 或 x ＝ 11 或 x ＝ 16 或 x ＝ 18 或 x ＝ 19 或 x ＝ 20 或 x ＝ 21 或 x ＝ 22 或 x ＝ 23 或 x ＝ 24 或 x ＝ 25 或 x ＝ 26 或 x ＝ 27 或 x ＝ 28 或 x ＝ 29 或 x ＝ 30 或 x ＝ 31 或 x ＝ 32 或 x ＝ 33 或 x ＝ 34 或 x ＝ 35 或 x ＝ 36 或 x ＝ 37 或 x ＝ 38 或 x ＝ 39 或 x ＝ 40 或 x ＝ 43 或 x ＝ 44 或 x ＝ 45 或 x ＝ 46 或 x ＝ 47 或 x ＝ 49 或 x ＝ 53 或 x ＝ 54 或 x ＝ 56 或 x ＝ 59 或 x ＝ 60 或 x ＝ 61 或 x ＝ 62 或 x ＝ 68 或 x ＝ 69 或 x ＝ 70 或 x ＝ 71 或 x ＝ 92)<br />         移动读写位置 (wjh, #现行位置, 大小 × 数量)<br />     .如果真结束<br /> <br />     .如果真 (x ＝ 4 或 x ＝ 7 或 x ＝ 12 或 x ＝ 55)<br />         .计次循环首 (数量, )<br />             读入数据 (wjh, id)<br />             .如果真 (id ＝ cha询ID)<br />                 .如果真 (寻找字节集 (读入字节集 (wjh, 8), { 0, 0 }, ) ＝ -1)<br />                     移动读写位置 (wjh, #现行位置, -8)<br />                 .如果真结束<br />                 ' 调试输出 (取十六进制文本 (取读写位置 (wjh)))<br />                 结果 ＝ UnicodeToAnsi2 (读入字节集 (wjh, 64))<br />                 关闭文件 (wjh)<br />                 返回 (结果)<br />                 跳出循环 ()<br />             .如果真结束<br />             移动读写位置 (wjh, #现行位置, 大小 － 4)<br />         .计次循环尾 ()<br /> <br />     .如果真结束<br />     .如果真 (x ＝ 13 或 x ＝ 14 或 x ＝ 15 或 x ＝ 17 或 x ＝ 41 或 x ＝ 42 或 x ＝ 48 或 x ＝ 50 或 x ＝ 51 或 x ＝ 52 或 x ＝ 57 或 x ＝ 58 或 x ＝ 63 或 x ＝ 64 或 x ＝ 65 或 x ＝ 66 或 x ＝ 67 或 x ＝ 72 或 x ＝ 73 或 x ＝ 74 或 x ＝ 75 或 x ＝ 76 或 x ＝ 77 或 x ＝ 78 或 x ＝ 79 或 x ＝ 80 或 x ＝ 81 或 x ＝ 82 或 x ＝ 83 或 x ＝ 84 或 x ＝ 85 或 x ＝ 86 或 x ＝ 87 或 x ＝ 88 或 x ＝ 90 或 x ＝ 91)<br />         .计次循环首 (数量, )<br />             读入数据 (wjh, id)<br />             .如果真 (id ＝ cha询ID)<br />                 .如果真 (寻找字节集 (读入字节集 (wjh, 4), { 0, 0 }, ) ＝ -1)<br />                     移动读写位置 (wjh, #现行位置, -4)<br />                 .如果真结束<br />                 ' 调试输出 (取十六进制文本 (取读写位置 (wjh)))<br />                 结果 ＝ UnicodeToAnsi2 (读入字节集 (wjh, 64))<br />                 关闭文件 (wjh)<br />                 返回 (结果)<br />                 跳出循环 ()<br />             .如果真结束<br />             移动读写位置 (wjh, #现行位置, 大小 － 4)<br />         .计次循环尾 ()<br />     .如果真结束<br />     ' 调试输出 (大小, 数量, id, 取十六进制文本 (取读写位置 (wjh)))<br />     _启动窗口.编辑框4.内容 ＝ _启动窗口.编辑框4.内容 ＋ “ ||” ＋ 到文本 (x)<br /> <br /> .判断循环尾 ()<br /> <br /> <br /> 关闭文件 (wjh)<br /> 返回 (“”)

我改的比较笨，取的数据都对，就是慢了很多


补充内容 (2024-10-8 16:58):
如果真那三部份代码看着较乱，有没有好的方法