易语言MASM置入代码实现将文本型变量字符串首字母(第一个字母)的大小写转换(无返回值)

EAX

1. .版本 2
   
2. 
   
3. .程序集 程序集1
   
4. 
   
5. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
6. 
   
7. 
   
8. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
   
9. 返回 (0)  ' 可以根据您的需要返回任意数值
   
10. 
    
11. .子程序 _临时子程序
    
12. .局部变量 文本, 文本型
    
13. 
    
14. 文本 ＝ “hello”
    
15. 文本型_首字母到大写 (文本)
    
16. 输出调试文本 (文本)
    
17. 文本 ＝ “HELLO”
    
18. 文本型_首字母到小写 (文本)
    
19. 输出调试文本 (文本)
    
20. 
    
21. 
    
22. .子程序 文本型_首字母到大写, , 公开, hello 转换为 Hello 注意本命令对首字为全角、汉字无效
    
23. .参数 文本型变量, 文本型, 参考, 仅第一个字母有效，必须是文本型变量
    
24. 
    
25. 置入代码 ({ 80, 83, 139, 69, 8, 131, 248, 0, 127, 2, 235, 26, 139, 0, 131, 248, 0, 127, 2, 235, 17, 138, 24, 128, 251, 97, 114, 8, 128, 251, 122, 119, 3, 128, 235, 32, 136, 24, 91, 88 })
    
26. ' push eax
    
27. ' push ebx
    
28. ' mov eax,[ebp+8]
    
29. ' .if sdword ptr eax <= 0
    
30. ' jmp ASM_END
    
31. ' .endif
    
32. ' mov eax,[eax]
    
33. ' .if sdword ptr eax <= 0
    
34. ' jmp ASM_END
    
35. ' .endif
    
36. ' mov bl,[eax]
    
37. ' .if bl >= 97 && bl <=122
    
38. ' sub bl,32
    
39. ' .endif
    
40. ' mov [eax],bl
    
41. ' ASM_END:
    
42. ' pop ebx
    
43. ' pop eax
    
44. 
    
45. 
    
46. .子程序 文本型_首字母到小写, , 公开, HELLO 转换为 hELLO 注意本命令对首字为全角、汉字无效
    
47. .参数 文本型变量, 文本型, 参考, 仅第一个字母有效，必须是文本型变量
    
48. 
    
49. 置入代码 ({ 80, 83, 139, 69, 8, 131, 248, 0, 127, 2, 235, 26, 139, 0, 131, 248, 0, 127, 2, 235, 17, 138, 24, 128, 251, 65, 114, 8, 128, 251, 90, 119, 3, 128, 195, 32, 136, 24, 91, 88 })
    
50. ' push eax
    
51. ' push ebx
    
52. ' mov eax,[ebp+8]
    
53. ' .if sdword ptr eax <= 0
    
54. ' jmp ASM_END
    
55. ' .endif
    
56. ' mov eax,[eax]
    
57. ' .if sdword ptr eax <= 0
    
58. ' jmp ASM_END
    
59. ' .endif
    
60. ' mov bl,[eax]
    
61. ' .if bl >=65 && bl <=90
    
62. ' add bl,32
    
63. ' .endif
    
64. ' mov [eax],bl
    
65. ' ASM_END:
    
66. ' pop ebx
    
67. ' pop eax
    
68. 
    

复制代码