求代码优化

agz618

  

子程序名	返回值类型	公开	备 注
E读取	文本型
参数名	类 型	参考	可空	数组	备 注
文件内容	字节集
cha询ID	整数型

变量名	类 型	静态	数组	备 注
字节起点	整数型
各段长度	文本型		0
物品总数	整数型
返回内容	字节集			段长
文本	文本型
i	整数型
X	整数型
ID	整数型
偏移	整数型
版本4022	文本型

版本4022 ＝ “88,168,618,364,68,268,148,268,168,681,568,116,100,108,96,100,80,68,604,1500”
文件内容 ＝ 读入文件 (取运行目录 () ＋ “\E.data”)
如果真 (文件内容 ＝ {  })
返回 ()

各段长度 ＝ 分割文本 (版本4022, “,”, )
字节起点 ＝ 9
变量循环首 (1, 20, 1, X)
如果真 (X ＝ 14)
字节起点 ＝ 字节起点 ＋ 22
如果真 (X ＝ 16)
字节起点 ＝ 字节起点 ＋ 8
字节起点 ＝ 字节起点 ＋ 4
物品总数 ＝ 字节集到整数 (取字节集中间 (文件内容, 字节起点, 2))
字节起点 ＝ 字节起点 ＋ 4
返回内容 ＝ 取字节集中间 (文件内容, 字节起点, 物品总数 × 到整数 (各段长度 [X]))
字节起点 ＝ 字节起点 ＋ 取字节集长度 (返回内容)
如果真 (X ＝ 4)
偏移 ＝ 1
计次循环首 (物品总数, i)
ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))
偏移 ＝ 偏移 ＋ 4
文本 ＝ 字节集到文本 (取字节集中间 (返回内容, 偏移, 64))
如果真 (ID ＝ cha询ID)
返回 (文本)
偏移 ＝ 偏移 ＋ 64
计次循环尾 ()
如果真 (X ＝ 7)
偏移 ＝ 1
计次循环首 (物品总数, i)
ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))
偏移 ＝ 偏移 ＋ 4
文本 ＝ 字节集到文本 (取字节集中间 (返回内容, 偏移, 64))
偏移 ＝ 偏移 ＋ 4
如果真 (ID ＝ cha询ID)
返回 (文本)

计次循环尾 ()
如果真 (X ＝ 12)
偏移 ＝ 1
计次循环首 (物品总数, i)
ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))
偏移 ＝ 偏移 ＋ 4
文本 ＝ 字节集到文本 (取字节集中间 (返回内容, 偏移, 64))
如果真 (ID ＝ cha询ID)
返回 (文本)
偏移 ＝ 偏移 ＋ 64
计次循环尾 ()
如果真 (X ＝ 13)
偏移 ＝ 1
计次循环首 (物品总数, i)
ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))
偏移 ＝ 偏移 ＋ 4
文本 ＝ 字节集到文本 (取字节集中间 (返回内容, 偏移, 64))
如果真 (ID ＝ cha询ID)
返回 (文本)
偏移 ＝ 偏移 ＋ 64
计次循环尾 ()

变量循环尾 ()

.版本 2<br /> <br /> .子程序 E读取, 文本型<br /> .参数 文件内容, 字节集<br /> .参数 cha询ID, 整数型<br /> .局部变量 字节起点, 整数型<br /> .局部变量 各段长度, 文本型, , "0"<br /> .局部变量 物品总数, 整数型<br /> .局部变量 返回内容, 字节集, , , 段长<br /> .局部变量 文本, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 X, 整数型<br /> .局部变量 ID, 整数型<br /> .局部变量 偏移, 整数型<br /> .局部变量 版本4022, 文本型<br /> <br /> 版本4022 ＝ “88,168,618,364,68,268,148,268,168,681,568,116,100,108,96,100,80,68,604,1500”<br /> 文件内容 ＝ 读入文件 (取运行目录 () ＋ “\E.data”)<br /> .如果真 (文件内容 ＝ {  })<br />     返回 ()<br /> .如果真结束<br /> <br /> 各段长度 ＝ 分割文本 (版本4022, “,”, )<br /> 字节起点 ＝ 9<br /> <br /> .变量循环首 (1, 20, 1, X)<br />     .如果真 (X ＝ 14)<br />         字节起点 ＝ 字节起点 ＋ 22<br />     .如果真结束<br />     .如果真 (X ＝ 16)<br />         字节起点 ＝ 字节起点 ＋ 8<br />     .如果真结束<br />     字节起点 ＝ 字节起点 ＋ 4<br />     物品总数 ＝ 字节集到整数 (取字节集中间 (文件内容, 字节起点, 2))<br />     字节起点 ＝ 字节起点 ＋ 4<br />     返回内容 ＝ 取字节集中间 (文件内容, 字节起点, 物品总数 × 到整数 (各段长度 [X]))<br />     字节起点 ＝ 字节起点 ＋ 取字节集长度 (返回内容)<br />     .如果真 (X ＝ 4)<br />         偏移 ＝ 1<br />         .计次循环首 (物品总数, i)<br />             ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))<br />             偏移 ＝ 偏移 ＋ 4<br />             文本 ＝ 字节集到文本 (取字节集中间 (返回内容, 偏移, 64))<br />             .如果真 (ID ＝ cha询ID)<br />                 返回 (文本)<br />             .如果真结束<br />             偏移 ＝ 偏移 ＋ 64<br />         .计次循环尾 ()<br />     .如果真结束<br />     .如果真 (X ＝ 7)<br />         偏移 ＝ 1<br />         .计次循环首 (物品总数, i)<br />             ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))<br />             偏移 ＝ 偏移 ＋ 4<br />             文本 ＝ 字节集到文本(取字节集中间 (返回内容, 偏移, 64))<br />             偏移 ＝ 偏移 ＋ 4<br />             .如果真 (ID ＝ cha询ID)<br />                 返回 (文本)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br />     .如果真 (X ＝ 12)<br />         偏移 ＝ 1<br />         .计次循环首 (物品总数, i)<br />             ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))<br />             偏移 ＝ 偏移 ＋ 4<br />             文本 ＝ 字节集到文本 (取字节集中间 (返回内容, 偏移, 64))<br />             .如果真 (ID ＝ cha询ID)<br />                 返回 (文本)<br />             .如果真结束<br />             偏移 ＝ 偏移 ＋ 64<br />         .计次循环尾 ()<br />     .如果真结束<br />     .如果真 (X ＝ 13)<br />         偏移 ＝ 1<br />         .计次循环首 (物品总数, i)<br />             ID ＝ 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))<br />             偏移 ＝ 偏移 ＋ 4<br />             文本 ＝ 字节集到文本(取字节集中间 (返回内容, 偏移, 64))<br />             .如果真 (ID ＝ cha询ID)<br />                 返回 (文本)<br />             .如果真结束<br />             偏移 ＝ 偏移 ＋ 64<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .变量循环尾 ()

写了一段cha询代码，大概有2万多条数据，查的非常慢，求大神帮优化一个，谢谢了


补充内容 (2024-10-6 21:10):
是先把数据取出来放到数组里快，还是边查边取数快呢

补充内容 (2024-10-7 05:55):
完整代码及E.data以上传在6楼，请各位大神帮忙，凡是对我有帮助的，都会打赏

真冬

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
q	整数型

q ＝ 取启动时间 ()
编辑框2.内容 ＝ e读取 (文件内容, 到整数 (编辑框1.内容))
调试输出 (“e读取耗时：”, 取启动时间 () － q)
q ＝ 取启动时间 ()
调试输出 (子程序1茶熏爱帝 (文件内容, 到整数 (编辑框1.内容)))
调试输出 (“茶熏爱帝 耗时：”, 取启动时间 () － q, )

子程序名	返回值类型	公开	备 注
子程序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, 8), { 0, 0 }, ) ＝ -1)
移动读写位置 (wjh, #现行位置, -8)
' 调试输出 (取十六进制文本 (取读写位置 (wjh)))
结果 ＝ UnicodeToAnsi2 (读入字节集 (wjh, 64))
关闭文件 (wjh)
返回 (结果)
跳出循环 ()
移动读写位置 (wjh, #现行位置, 大小 － 4)
计次循环尾 ()
' 调试输出 (大小, 数量, id, 取十六进制文本 (取读写位置 (wjh)))
判断循环尾 ()
关闭文件 (wjh)
返回 (“”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 q, 整数型<br /> <br /> q ＝ 取启动时间 ()<br /> 编辑框2.内容 ＝ e读取 (文件内容, 到整数 (编辑框1.内容))<br /> 调试输出 (“e读取耗时：”, 取启动时间 () － q)<br /> q ＝ 取启动时间 ()<br /> 调试输出 (子程序1茶熏爱帝 (文件内容, 到整数 (编辑框1.内容)))<br /> 调试输出 (“茶熏爱帝 耗时：”, 取启动时间 () － q, )<br /> <br /> .子程序 子程序1茶熏爱帝, 文本型<br /> .参数 参数_文件内容, 字节集<br /> .参数 参数_茶熏爱帝, 整数型<br /> .局部变量 wjh, 整数型<br /> .局部变量 大小, 整数型<br /> .局部变量 数量, 整数型<br /> .局部变量 id, 整数型<br /> .局部变量 x, 整数型<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, 8), { 0, 0 }, ) ＝ -1)<br />                 移动读写位置 (wjh, #现行位置, -8)<br />             .如果真结束<br />             ' 调试输出 (取十六进制文本 (取读写位置 (wjh)))<br />             结果 ＝ UnicodeToAnsi2 (读入字节集 (wjh, 64))<br />             关闭文件 (wjh)<br />             返回 (结果)<br />             跳出循环 ()<br />         .如果真结束<br />         移动读写位置 (wjh, #现行位置, 大小 － 4)<br />     .计次循环尾 ()<br />     ' 调试输出 (大小, 数量, id, 取十六进制文本 (取读写位置 (wjh)))<br /> .判断循环尾 ()<br /> 关闭文件 (wjh)<br /> 返回 (“”)

我测试茶熏17432得到的是
   必转诸神之怒(+15)  
这个才算对的吧？而不是
测试而已^b22ae3★^ffff66★





补充内容 (2024-10-8 00:41):
判断循环首 (是否在文件尾 (wjh, 真) ＝ 假)'这里加一个 “真”  不然在找不到的爱帝的时候它不会跳出循环

明天自然醒

快速字节集

补充内容 (2024-10-6 21:22):
取缓存区，配合汇编的读指针整数，代替” 字节集到整数 (取字节集中间 (返回内容, 偏移, 4))“

shijialin99

也可使用快速文本

恶魔の佐翼

如果真 (ID ＝ cha询ID)
文本 ＝ 字节集到文本 (取字节集中间 (返回内容, 偏移, 64))
返回 (文本)

这样不好使点?也能节省一半的资源啊

真冬

把E.data发出来看看?

agz618

完整文件及代上码上传，请各位大神帮忙

agz618

真冬 发表于 2024-10-7 02:00
把E.data发出来看看?

发了，在楼下，感谢

mxy1222

把cha询ID转为16进制翻转 e读取1 (文件内容, 文本翻转 (十转十六进制 (到整数 (编辑框1.内容), 4)))
，然后修改ID ，后再传入cha询，会快很多

  

计次循环首 (物品总数, i)
ID ＝ 字节集_到十六进制1 (取字节集中间 (返回内容, 偏移, 2))
' 输出调试文本 (ID)
偏移 ＝ 偏移 ＋ 4
偏移 ＝ 偏移 ＋ 4
偏移 ＝ 偏移 ＋ 4
如果真 (文本比较 (ID, cha询ID, 真) ＝ 0)
文本 ＝ UnicodeToAnsi2 (取字节集中间 (返回内容, 偏移, 64))
返回 (文本)
偏移 ＝ 偏移 ＋ 64
偏移 ＝ 偏移 ＋ 288
计次循环尾 ()

.版本 2<br /> <br />         .计次循环首 (物品总数, i)<br />             ID ＝ 字节集_到十六进制1 (取字节集中间 (返回内容, 偏移, 2))<br />             ' 输出调试文本 (ID)<br />             偏移 ＝ 偏移 ＋ 4<br />             偏移 ＝ 偏移 ＋ 4<br />             偏移 ＝ 偏移 ＋ 4<br />             .如果真 (文本比较 (ID, cha询ID, 真) ＝ 0)<br />                 文本 ＝ UnicodeToAnsi2 (取字节集中间 (返回内容, 偏移, 64))<br />                 返回 (文本)<br />             .如果真结束<br />             偏移 ＝ 偏移 ＋ 64<br />             偏移 ＝ 偏移 ＋ 288<br />         .计次循环尾 ()

TANC

有没有 数据格式