易语言汇编置入代码实现极速比较两个文本型字符串是否一致、等于的方法 (返回逻辑型)

QAQ

1. 
   
2. .版本 2
   
3. 
   
4. .程序集 程序集1
   
5. 
   
6. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
7. 
   
8. 
   
9. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
10. 返回 (0)  ' 可以根据您的需要返回任意数值
    
11. 
    
12. .子程序 _临时子程序
    
13. 
    
14. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
15. 输出调试文本 (文本等于 (“123”, “123”))
    
16. 输出调试文本 (文本等于 (“A”, “A”))
    
17. 输出调试文本 (文本等于 (“”, “”))
    
18. 输出调试文本 (文本等于 (“100”, “200”))
    
19. 输出调试文本 (文本等于 (“001”, “002”))
    
20. 输出调试文本 (文本等于 (“中文测试”, “中文测试”))
    
21. 输出调试文本 (文本等于 (“1中文测试”, “2中文测试”))
    
22. 输出调试文本 (文本等于 (“中文测试1”, “中文测试2”))
    
23. 输出调试文本 (文本等于 (“中文测试1”, “中文测试1”))
    
24. 
    
25. 
    
26. 
    
27. 
    
28. 
    
29. 
    
30. 
    
31. .子程序 文本等于, 逻辑型, 公开
    
32. .参数 被比较文本, 文本型
    
33. .参数 比较文本, 文本型
    
34. 
    
35. 置入代码 ({ 81, 82, 139, 69, 8, 139, 85, 12, 139, 0, 139, 18, 232, 23, 0, 0, 0, 128, 249, 1, 117, 7, 184, 1, 0, 0, 0, 235, 5, 184, 0, 0, 0, 0, 90, 89, 201, 194, 8, 0, 80, 82, 83, 138, 24, 58, 26, 116, 6, 177, 0, 235, 14, 235, 8, 10, 219, 117, 4, 177, 1, 235, 4, 64, 66, 235, 232, 91, 90, 88, 195 })
    
36. ' push ecx
    
37. ' push edx
    
38. ' mov eax,[ebp+8]  ;文本1地址
    
39. ' mov edx,[ebp+12] ;文本2地址
    
40. ' mov eax,[eax]  ;文本1数据地址
    
41. ' mov edx,[edx]  ;文本2数据地址
    
42. ' CALL TEXT_EQU  ;执行文本比较程序
    
43. ' .if CL == 1  ;CL为1返回真，0为假
    
44. ' mov eax,1
    
45. ' .else
    
46. ' mov eax,0
    
47. ' .endif
    
48. ' pop edx
    
49. ' pop ecx
    
50. ' leave
    
51. ' retn 8
    
52. ' TEXT_EQU: ;EAX:文本指针1 EDX:文本指针2 比较等于CL为1，否则为0
    
53. ' push eax
    
54. ' push edx
    
55. ' push ebx
    
56. ' TEXT_EQU_LOOP:
    
57. ' mov bl,[eax]
    
58. ' .if bl != [edx]
    
59. ' mov cl,0
    
60. ' jmp TEXT_EQU_END
    
61. ' .elseif bl == 0
    
62. ' mov cl,1
    
63. ' jmp TEXT_EQU_END
    
64. ' .endif
    
65. ' inc eax
    
66. ' inc edx
    
67. ' JMP TEXT_EQU_LOOP
    
68. ' TEXT_EQU_END:
    
69. ' pop ebx
    
70. ' pop edx
    
71. ' pop eax
    
72. ' ret
    
73. 
    
74. 返回 (假)
    
75. 
    
76. 
    

复制代码

小莉今年7岁

原来这个就能查出bug