易语言置入代码极速转换文本型字符串大小写的方法

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. .局部变量 字符串, 文本型
   
9. .局部变量 时间, 整数型
   
10. 
    
11. 
    
12. 字符串 ＝ 取重复文本 (2000000, “ABCDEFGHIJKLMNOPQRSTUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 Hello World! 中文测试”)
    
13. 调试输出 (“转换开始”)
    
14. 
    
15. 时间 ＝ 取启动时间 ()
    
16. 大小写转换 (字符串, 真)
    
17. 大小写转换 (字符串, 假)
    
18. 
    
19. 
    
20. 
    
21. 调试输出 (“置入代码耗时”, 取启动时间 () － 时间)
    
22. 时间 ＝ 取启动时间 ()
    
23. 
    
24. 
    
25. 字符串 ＝ 到大写 (字符串)
    
26. 字符串 ＝ 到小写 (字符串)
    
27. 调试输出 (“核心库耗时”, 取启动时间 () － 时间)
    
28. 
    
29. 
    
30. 返回 (0)  ' 可以根据您的需要返回任意数值
    
31. 
    
32. .子程序 大小写转换, , 公开, 转换文本型字符串的大小写
    
33. .参数 字符串, 文本型, 参考, 欲转换大小写的文本
    
34. .参数 到大写, 逻辑型, 可空, 真为到大写，假为到小写
    
35. 
    
36. 置入代码 ({ 96, 139, 93, 8, 138, 101, 12, 128, 228, 1, 139, 27, 138, 3, 10, 192, 117, 5, 97, 201, 194, 8, 0, 232, 5, 0, 0, 0, 136, 3, 67, 235, 235, 128, 252, 1, 117, 12, 60, 97, 114, 18, 60, 122, 119, 14, 44, 32, 235, 10, 60, 65, 114, 6, 60, 90, 119, 2, 4, 32, 195 })
    
37. ' pushad
    
38. ' mov ebx,[ebp+8] ;文本变量地址
    
39. ' mov ah,[ebp+12] ;是否到大写
    
40. ' and ah,1
    
41. ' mov ebx,[ebx]  ;文本数据地址
    
42. ' START:
    
43. ' mov al,[ebx] ;读文本Ascii码送AL
    
44. ' .if al == 0 ;遇到空字符结束转换
    
45. ' popad
    
46. ' leave
    
47. ' retn 8
    
48. ' .endif
    
49. ' call TEXT_CALC ;开始转换
    
50. ' mov [ebx],al ;转换结果写回文本
    
51. ' inc ebx ;读下一个字符
    
52. ' JMP START
    
53. ' TEXT_CALC: ;AH:大小写(0或1) AL:字符串Ascii 结果送AL
    
54. ' .if ah == 1 ;到大写
    
55. ' .if al >= 97 && al<=122 ;小写字母
    
56. ' sub al,32
    
57. ' .endif
    
58. ' .elseif  ;到小写
    
59. ' .if al >= 65 && al <=90
    
60. ' add al,32
    
61. ' .endif
    
62. ' .endif
    
63. ' ret
    

复制代码