易语言MASM置入代码实现 快速置文本长度 设置修改文本型变量为指定长度 (无返回值)

EAX

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. .局部变量 文本, 文本型
    
13. 
    
14. 文本 ＝ “Hello World!”
    
15. 置文本长度_快速 (文本, 5)
    
16. 信息框 (文本, 0, , )
    
17. 
    
18. .子程序 置文本长度_快速, , 公开, 设置修改文本型变量字符串为指定长度 文本变量 ＝ 取文本左边 (文本变量, 字节数)
    
19. .参数 文本变量, 文本型, 参考, 必须是文本型变量，通过变量传出修改结果
    
20. .参数 字节数, 整数型, , 范围:0~文本长度 本命令不会消耗大量时间去检查文本长度,严禁负数或超出文本长度,否则会导致程序内存紊乱或崩溃
    
21. 
    
22. 置入代码 ({ 80, 83, 81, 139, 69, 8, 131, 248, 0, 127, 2, 235, 24, 139, 0, 131, 248, 0, 127, 2, 235, 15, 50, 219, 139, 77, 12, 131, 249, 0, 125, 2, 235, 3, 136, 28, 1, 89, 91, 88 })
    
23. ' push eax
    
24. ' push ebx
    
25. ' push ecx
    
26. ' mov eax,[ebp+8]
    
27. ' .if sdword ptr eax <= 0
    
28. ' jmp ASM_END
    
29. ' .endif
    
30. ' mov eax,[eax]
    
31. ' .if sdword ptr eax <= 0
    
32. ' jmp ASM_END
    
33. ' .endif
    
34. ' xor bl,bl
    
35. ' mov ecx,[ebp+12]
    
36. ' .if sdword ptr ecx < 0
    
37. ' jmp ASM_END
    
38. ' .endif
    
39. ' mov [eax+ecx],bl
    
40. ' ASM_END:
    
41. ' pop ecx
    
42. ' pop ebx
    
43. ' pop eax
    
44. 
    

复制代码