易语言MASM置入代码实现获取文本型字符串的第一行 (快速截断换行符后的文本,无返回值)

EAX

1. 
   
2. 
   
3. .版本 2
   
4. .支持库 spec
   
5. 
   
6. .程序集 程序集1
   
7. 
   
8. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
9. 
   
10. 
    
11. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
12. 返回 (0)  ' 可以根据您的需要返回任意数值
    
13. 
    
14. .子程序 _临时子程序
    
15. .局部变量 文本, 文本型
    
16. 
    
17. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
18. 文本 ＝ “Hello World!” ＋ #换行符 ＋ “中文测试”
    
19. 取文本第一行_置入代码 (文本)
    
20. 调试输出 (文本)
    
21. 文本 ＝ “Hello World!” ＋ #换行符 ＋ “中文测试”
    
22. 取文本第一行_易语言 (文本)
    
23. 调试输出 (文本)
    
24. 
    
25. 
    
26. .子程序 取文本第一行_置入代码, , 公开
    
27. .参数 待处理文本, 文本型, 参考
    
28. 
    
29. 置入代码 ({ 80, 81, 139, 69, 8, 139, 0, 138, 8, 10, 201, 116, 10, 128, 249, 13, 116, 5, 128, 249, 10, 117, 6, 50, 201, 136, 8, 235, 3, 64, 235, 231, 89, 88, 201, 194, 4, 0 })
    
30. ' push eax
    
31. ' push ecx
    
32. ' mov eax,[ebp+8]
    
33. ' mov eax,[eax]
    
34. ' .while 1
    
35. ' mov cl,[eax]
    
36. ' .if cl == 0 || cl == 13 || cl == 10
    
37. ' xor cl,cl
    
38. ' mov [eax],cl
    
39. ' jmp ASM_END
    
40. ' .endif
    
41. ' inc eax
    
42. ' .endw
    
43. ' ASM_END:
    
44. ' pop ecx
    
45. ' pop eax
    
46. ' leave
    
47. ' retn 4
    
48. 
    
49. 
    
50. .子程序 取文本第一行_易语言
    
51. .参数 待处理文本, 文本型
    
52. .局部变量 分割, 文本型, , "0"
    
53. 
    
54. 分割 ＝ 分割文本 (待处理文本, #换行符, )
    
55. 待处理文本 ＝ 分割 [1]
    
56. 
    
57. 
    

复制代码

小莉今年7岁

我来瞧瞧

朵朵

我也来瞧瞧