易语言MASM置入代码实现将文本型变量快速清空 清除为0字节 零字节空白文本 (无返回值)

EAX

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. .局部变量 变量, 文本型
    
14. .局部变量 时间, 整数型
    
15. .局部变量 文本, 文本型
    
16. 
    
17. 变量 ＝ 取空白文本 (500000000)
    
18. 时间 ＝ 取启动时间 ()
    
19. 文本型_清空 (变量)
    
20. 文本 ＝ “置入代码耗时(ms):” ＋ 到文本 (取启动时间 () － 时间) ＋ #换行符
    
21. 
    
22. 变量 ＝ 取空白文本 (5000000000)
    
23. 时间 ＝ 取启动时间 ()
    
24. 变量 ＝ “”
    
25. 文本 ＝ 文本 ＋ “易语言耗时(ms):” ＋ 到文本 (取启动时间 () － 时间)
    
26. 调试输出 (变量)
    
27. 信息框 (文本, 0, , )
    
28. 
    
29. 
    
30. .子程序 文本型_清空, , 公开, 将文本型变量快速清空为0字节空白文本
    
31. .参数 文本型变量, 文本型, 参考, 必须是文本型变量
    
32. 
    
33. 置入代码 ({ 80, 83, 139, 69, 8, 131, 248, 0, 127, 2, 235, 13, 139, 0, 131, 248, 0, 127, 2, 235, 4, 179, 0, 136, 24, 91, 88 })
    
34. ' push eax
    
35. ' push ebx
    
36. ' mov eax,[ebp+8]
    
37. ' .if sdword ptr eax <= 0
    
38. ' jmp ASM_END
    
39. ' .endif
    
40. ' mov eax,[eax]
    
41. ' .if sdword ptr eax <= 0
    
42. ' jmp ASM_END
    
43. ' .endif
    
44. ' mov bl,0
    
45. ' mov [eax],bl
    
46. ' ASM_END:
    
47. ' pop ebx
    
48. ' pop eax
    
49. 
    

复制代码