易语言MASM置入代码判断文本型字符串是否包含双字节字符(汉字,全角符号等,返回逻辑型)

EAX

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. 
    
13. 输出调试文本 (文本型_是否包含双字节字符 (“Hello World!”))
    
14. 输出调试文本 (文本型_是否包含双字节字符 (“Hello World! 中文测试”))
    
15. 
    
16. 
    
17. .子程序 文本型_是否包含双字节字符, 逻辑型, 公开, 找到双字节字符(汉字,全角特殊符号等)返回真，否则返回假
    
18. .参数 文本数据, 文本型
    
19. 
    
20. 置入代码 ({ 83, 139, 69, 8, 131, 248, 0, 127, 4, 51, 192, 235, 43, 139, 0, 131, 248, 0, 127, 4, 51, 192, 235, 32, 138, 24, 10, 219, 117, 6, 51, 192, 235, 22, 235, 17, 128, 251, 128, 118, 12, 128, 251, 255, 116, 7, 184, 1, 0, 0, 0, 235, 3, 64, 235, 224, 91, 201, 194, 4, 0 })
    
21. ' push ebx
    
22. ' mov eax,[ebp+8]
    
23. ' .if sdword ptr eax <= 0
    
24. ' xor eax,eax
    
25. ' jmp ASM_END
    
26. ' .endif
    
27. ' mov eax,[eax]
    
28. ' .if sdword ptr eax <= 0
    
29. ' xor eax,eax
    
30. ' jmp ASM_END
    
31. ' .endif
    
32. ' .while 1
    
33. ' mov bl,[eax]
    
34. ' .if !bl
    
35. ' xor eax,eax
    
36. ' .break
    
37. ' .elseif bl > 128 && bl != 255
    
38. ' mov eax,1
    
39. ' .break
    
40. ' .endif
    
41. ' inc eax
    
42. ' .endw
    
43. ' ASM_END:
    
44. ' pop ebx
    
45. ' leave
    
46. ' retn 4
    
47. 返回 (假)
    

复制代码