[闲的蛋疼]易语言版28w结构化数据读取优化到1100ms

dnxl

睡醒一觉，上汇编给你优化一下，

  

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

变量名	类 型	静态	数组	备 注
time	整数型
TmpBin	字节型		0
dat	字节集
pDat	整数型
Count	整数型
_Pos	整数型
_pStruct	整数型

time ＝ 取启动时间 ()
dat ＝ 读入文件 (“C:\Users\Administrator\Desktop\xx.dat”)
_pStruct ＝ 1
Count ＝ 取字节集长度 (dat) ＼ 28
重定义数组 (TmpBin, 假, 取字节集长度 (dat) × 3)
计次循环首 (Count, )
pDat ＝ Pint (dat [_pStruct])
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 4))  ' V1
TmpBin [_Pos] ＝ 9
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 6))  ' V2
TmpBin [_Pos] ＝ 9
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 8))  ' V3
TmpBin [_Pos] ＝ 9
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 10))  ' V4
TmpBin [_Pos] ＝ 9
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 12))  ' V5
TmpBin [_Pos] ＝ 9
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 16))  ' V6
TmpBin [_Pos] ＝ 9
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 20))  ' V7
TmpBin [_Pos] ＝ 9
_Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 24))  ' V8
TmpBin [_Pos] ＝ 13
TmpBin [Inc (_Pos)] ＝ 10
_Pos ＝ Inc (_Pos)
_pStruct ＝ _pStruct ＋ 28
计次循环尾 ()
重定义数组 (TmpBin, 真, _Pos)
写到文件 (“C:\Users\Administrator\Desktop\xx.txt”, 到字节集 (TmpBin))
输出调试文本 (“耗时: ” ＋ 到文本 (取启动时间 () － time) ＋ “ 毫秒”)

子程序名	返回值类型	公开	备 注
整数转文本	整数型		文本长度
参数名	类 型	参考	可空	数组	备 注
缓冲区	字节型
_整数	整数型

' __asm{
' ; sub esp,4
' ; push ecx
' ; push esi
' ; push edi
' ; mov ecx,10
' ; xor edi,edi
' ; mov dword ptr[ebp-4],edi
' ; mov esi,dword ptr[ebp+8]
' ; mov eax,dword ptr[ebp+0ch]
' ; mov edx,eax
' ; and edx,80000000h
' ; test edx,edx
' ; je label1
' ; mov byte ptr[esi],'-'
' ; inc esi
' ; mov dword ptr[ebp-4],1
' ; imul eax,-1
' ; label1:
' ; xor edx,edx
' ; div ecx
' ; add edx,48
' ; dec esp
' ; mov byte ptr[esp],dl
' ; inc edi
' ; test eax,eax
' ; jne label1
' ; mov eax,edi
' ; add eax,dword ptr[ebp-4]
' ; label2:
' ; test edi,edi
' ; je label3
' ; dec edi
' ; mov dl,byte ptr[esp+edi]
' ; mov byte ptr[esi+edi],dl
' ; jmp label2
' ; label3:
' ; inc eax
' ; pop edi
' ; pop esi
' ; pop ecx
' ; leave
' ; ret 8
置入代码 ({ 131, 236, 4, 81, 86, 87, 185, 10, 0, 0, 0, 49, 255, 137, 125, 252, 139, 117, 8, 139, 69, 12, 137, 194, 129, 226, 0, 0, 0, 128, 133, 210, 116, 14, 198, 6, 45, 70, 199, 69, 252, 1, 0, 0, 0, 107, 192, 255, 49, 210, 247, 241, 131, 194, 48, 76, 136, 20, 36, 71, 133, 192, 117, 240, 137, 248, 3, 69, 252, 133, 255, 116, 9, 79, 138, 20, 60, 136, 20, 62, 235, 243, 64, 95, 94, 89, 201, 194, 8, 0 })
' }
返回 (0)

子程序名	返回值类型	公开	备 注
Inc	整数型
参数名	类 型	参考	可空	数组	备 注
Integer	整数型

' __asm{
' ; mov eax,dword ptr[ebp+8]
' ; inc eax
' ; leave
' ; ret 4
置入代码 ({ 139, 69, 8, 64, 201, 194, 4, 0 })
' }
返回 (0)

子程序名	返回值类型	公开	备 注
Pint	整数型
参数名	类 型	参考	可空	数组	备 注
Value	字节型

' __asm{
' ; mov eax,dword ptr[ebp+8]
' ; leave
' ; ret 4
置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })
' }
返回 (0)

子程序名	返回值类型	公开	备 注
_GetI2	整数型
参数名	类 型	参考	可空	数组	备 注
Pointer	整数型

' __asm{
' ; mov eax,dword ptr[ebp+8]
' ; movzx eax,word ptr[eax]
' ; leave
' ; ret 4
置入代码 ({ 139, 69, 8, 15, 183, 0, 201, 194, 4, 0 })
' }
返回 (0)

子程序名	返回值类型	公开	备 注
_GetI4	整数型
参数名	类 型	参考	可空	数组	备 注
Pointer	整数型

' __asm{
' ; mov eax,dword ptr[ebp+8]
' ; mov eax,dword ptr[eax]
' ; leave
' ; ret 4
置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })
' }
返回 (0)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 time, 整数型<br /> .局部变量 TmpBin, 字节型, , "0"<br /> .局部变量 dat, 字节集<br /> .局部变量 pDat, 整数型<br /> .局部变量 Count, 整数型<br /> .局部变量 _Pos, 整数型<br /> .局部变量 _pStruct, 整数型<br /> <br /> time ＝ 取启动时间 ()<br /> dat ＝ 读入文件 (“C:\Users\Administrator\Desktop\xx.dat”)<br /> _pStruct ＝ 1<br /> Count ＝ 取字节集长度 (dat) ＼ 28<br /> 重定义数组 (TmpBin, 假, 取字节集长度 (dat) × 3)<br /> .计次循环首 (Count, )<br />     pDat ＝ Pint (dat [_pStruct])<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 4))  ' V1<br />     TmpBin [_Pos] ＝ 9<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 6))  ' V2<br />     TmpBin [_Pos] ＝ 9<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 8))  ' V3<br />     TmpBin [_Pos] ＝ 9<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI2 (pDat ＋ 10))  ' V4<br />     TmpBin [_Pos] ＝ 9<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 12))  ' V5<br />     TmpBin [_Pos] ＝ 9<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 16))  ' V6<br />     TmpBin [_Pos] ＝ 9<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 20))  ' V7<br />     TmpBin [_Pos] ＝ 9<br />     _Pos ＝ _Pos ＋ 整数转文本 (TmpBin [Inc (_Pos)], _GetI4 (pDat ＋ 24))  ' V8<br />     TmpBin [_Pos] ＝ 13<br />     TmpBin [Inc (_Pos)] ＝ 10<br />     _Pos ＝ Inc (_Pos)<br />     _pStruct ＝ _pStruct ＋ 28<br /> .计次循环尾 ()<br /> 重定义数组 (TmpBin, 真, _Pos)<br /> 写到文件 (“C:\Users\Administrator\Desktop\xx.txt”, 到字节集 (TmpBin))<br /> 输出调试文本 (“耗时: ” ＋ 到文本 (取启动时间 () － time) ＋ “ 毫秒”)<br /> <br /> <br /> <br /> .子程序 整数转文本, 整数型, , 文本长度<br /> .参数 缓冲区, 字节型, 参考<br /> .参数 _整数, 整数型<br /> <br /> ' __asm{<br /> ' ; sub esp,4<br /> ' ; push ecx<br /> ' ; push esi<br /> ' ; push edi<br /> ' ; mov ecx,10<br /> ' ; xor edi,edi<br /> ' ; mov dword ptr[ebp-4],edi<br /> ' ; mov esi,dword ptr[ebp+8]<br /> ' ; mov eax,dword ptr[ebp+0ch]<br /> ' ; mov edx,eax<br /> ' ; and edx,80000000h<br /> ' ; test edx,edx<br /> ' ; je label1<br /> ' ; mov byte ptr[esi],'-'<br /> ' ; inc esi<br /> ' ; mov dword ptr[ebp-4],1<br /> ' ; imul eax,-1<br /> ' ; label1:<br /> ' ; xor edx,edx<br /> ' ; div ecx<br /> ' ; add edx,48<br /> ' ; dec esp<br /> ' ; mov byte ptr[esp],dl<br /> ' ; inc edi<br /> ' ; test eax,eax<br /> ' ; jne label1<br /> ' ; mov eax,edi<br /> ' ; add eax,dword ptr[ebp-4]<br /> ' ; label2:<br /> ' ; test edi,edi<br /> ' ; je label3<br /> ' ; dec edi<br /> ' ; mov dl,byte ptr[esp+edi]<br /> ' ; mov byte ptr[esi+edi],dl<br /> ' ; jmp label2<br /> ' ; label3:<br /> ' ; inc eax<br /> ' ; pop edi<br /> ' ; pop esi<br /> ' ; pop ecx<br /> ' ; leave<br /> ' ; ret 8<br /> 置入代码 ({ 131, 236, 4, 81, 86, 87, 185, 10, 0, 0, 0, 49, 255, 137, 125, 252, 139, 117, 8, 139, 69, 12, 137, 194, 129, 226, 0, 0, 0, 128, 133, 210, 116, 14, 198, 6, 45, 70, 199, 69, 252, 1, 0, 0, 0, 107, 192, 255, 49, 210, 247, 241, 131, 194, 48, 76, 136, 20, 36, 71, 133, 192, 117, 240, 137, 248, 3, 69, 252, 133, 255, 116, 9, 79, 138, 20, 60, 136, 20, 62, 235, 243, 64, 95, 94, 89, 201, 194, 8, 0 })<br /> ' }<br /> 返回 (0)<br /> <br /> <br /> .子程序 Inc, 整数型<br /> .参数 Integer, 整数型<br /> <br /> ' __asm{<br /> ' ; mov eax,dword ptr[ebp+8]<br /> ' ; inc eax<br /> ' ; leave<br /> ' ; ret 4<br /> 置入代码 ({ 139, 69, 8, 64, 201, 194, 4, 0 })<br /> ' }<br /> 返回 (0)<br /> <br /> .子程序 Pint, 整数型<br /> .参数 Value, 字节型, 参考<br /> <br /> ' __asm{<br /> ' ; mov eax,dword ptr[ebp+8]<br /> ' ; leave<br /> ' ; ret 4<br /> 置入代码 ({ 139, 69, 8, 201, 194, 4, 0 })<br /> ' }<br /> 返回 (0)<br /> <br /> <br /> .子程序 _GetI2, 整数型<br /> .参数 Pointer, 整数型<br /> <br /> ' __asm{<br /> ' ; mov eax,dword ptr[ebp+8]<br /> ' ; movzx eax,word ptr[eax]<br /> ' ; leave<br /> ' ; ret 4<br /> 置入代码 ({ 139, 69, 8, 15, 183, 0, 201, 194, 4, 0 })<br /> ' }<br /> 返回 (0)<br /> <br /> <br /> .子程序 _GetI4, 整数型<br /> .参数 Pointer, 整数型<br /> <br /> ' __asm{<br /> ' ; mov eax,dword ptr[ebp+8]<br /> ' ; mov eax,dword ptr[eax]<br /> ' ; leave<br /> ' ; ret 4<br /> 置入代码 ({ 139, 69, 8, 139, 0, 201, 194, 4, 0 })<br /> ' }<br /> 返回 (0)

fengyishen

感谢分享，学习看看

嫂子

dnxl 发表于 2026-5-6 21:17
这写法按每4字节转成文本占用2-12字节，8M的文件处理完最大可能会生成24M的文件。这1M缓存能存的下么 ...

1M缓存只是扩容大小。不是最终大小。

dnxl

嫂子 发表于 2026-5-6 20:49
8M 原贴内有文件

这写法按每4字节转成文本占用2-12字节，8M的文件处理完最大可能会生成24M的文件。这1M缓存能存的下么

嫂子

dnxl 发表于 2026-5-6 20:46
多大文件？
看缓存1M，最后输出的文件也没多大。那个dat文件应该不过300KB吧，就这点数据要1秒？
...

8M 原贴内有文件

dnxl

多大文件？
看缓存1M，最后输出的文件也没多大。那个dat文件应该不过300KB吧，就这点数据要1秒？

bianyuan456

已经顶贴，感谢您对论坛的支持！

jxm1010

这个话题 虽然我不是很懂 但也支持一下楼主 继续加油

嫂子

题外话  Delphi版本 也可以不拷贝内存。使用这种原始读取 不过因为拷贝总共才2ms 就没有优化的必要了。拷贝后的可读性更佳

嫂子

位与 (v1, 65535)  这个是短整转无符号端整 。这个费时花了接近500ms。如果原生支持 估计可以到700ms左右