十进制整数到十六进制文本转换置入代码实现 支持大小写 自带补0 比核心库快20~40倍

CNWTEPRG

1. 
   
2. .版本 2
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. 
   
7. .子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
   
8. 
   
9. 
   
10. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
11. 返回 (0)  ' 可以根据您的需要返回任意数值
    
12. 
    
13. .子程序 _临时子程序
    
14. .局部变量 结果, 文本型
    
15. .局部变量 计数, 整数型
    
16. .局部变量 时间, 整数型
    
17. 
    
18. ' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
    
19. 
    
20. 结果 ＝ 取空白文本 (8)
    
21. 
    
22. 时间 ＝ 取启动时间 ()
    
23. .计次循环首 (1000000, 计数)
    
24.     十到十六 (计数, 真, 结果)
    
25. .计次循环尾 ()
    
26. 调试输出 (“置入代码耗时:”, 取启动时间 () － 时间)
    
27. 
    
28. 时间 ＝ 取启动时间 ()
    
29. .计次循环首 (1000000, 计数)
    
30.     取十六进制文本 (计数)
    
31. 
    
32. .计次循环尾 ()
    
33. 调试输出 (“支持库耗时:”, 取启动时间 () － 时间)
    
34. 时间 ＝ 取启动时间 ()
    
35. .计次循环首 (1000000, 计数)
    
36.     十到十六_旧 (计数, 真, 结果)
    
37. .计次循环尾 ()
    
38. 调试输出 (“易代码耗时:”, 取启动时间 () － 时间)
    
39. 校验 ()
    
40. 调试输出 (“校验完成”)
    
41. 
    
42. .子程序 校验
    
43. .局部变量 置入代码结果, 文本型
    
44. .局部变量 易代码结果, 文本型
    
45. .局部变量 计数, 整数型
    
46. .局部变量 大写, 逻辑型
    
47. 
    
48. 置入代码结果 ＝ 取空白文本 (8)
    
49. .变量循环首 (-50000, 50000, 1, 计数)
    
50.     大写 ＝ 位与 (计数, 1) ＝ 1
    
51. 
    
52.     十到十六 (计数, 大写, 置入代码结果)
    
53.     十到十六_旧 (计数, 大写, 易代码结果)
    
54.     检查 (置入代码结果 ＝ 易代码结果)
    
55. 
    
56.     十到十六 (计数, 大写 ＝ 假, 置入代码结果)
    
57.     十到十六_旧 (计数, 大写 ＝ 假, 易代码结果)
    
58.     检查 (置入代码结果 ＝ 易代码结果)
    
59. 
    
60. .变量循环尾 ()
    
61. 
    
62. .子程序 十到十六, , 公开, 将十进制整数型转换成十六进制的文本(开头为0则补0)，比核心库快20多倍。
    
63. .参数 值, 整数型, , 欲转换成十六进制的整数值
    
64. .参数 大写, 逻辑型, , 是否对结果文本以大写输出
    
65. .参数 结果文本, 文本型, 参考, 此文本必须为8字节的文本型，操作前必须对变量进行 取空白文本(8)，否则会出错。
    
66. 
    
67. 置入代码 ({ 139, 69, 8, 138, 77, 12, 128, 229, 1, 128, 249, 1, 114, 4, 177, 55, 235, 2, 177, 87, 139, 93, 16, 139, 27, 139, 211, 131, 195, 7, 235, 15, 80, 36, 15, 232, 15, 0, 0, 0, 136, 3, 88, 75, 193, 232, 4, 59, 211, 118, 237, 201, 194, 12, 0, 36, 15, 60, 0, 114, 8, 60, 9, 119, 4, 4, 48, 235, 2, 2, 193, 195 })
    
68. ' mov eax,[ebp+8]
    
69. ' mov cl,[ebp+12]
    
70. ' and ch,1
    
71. ' .if cl >= 1
    
72. ' mov cl,037H
    
73. ' .elseif
    
74. ' mov cl,057H
    
75. ' .endif
    
76. ' mov ebx,[ebp+16]
    
77. ' mov ebx,[ebx]
    
78. ' mov edx,ebx
    
79. ' add ebx,7
    
80. ' .while edx <= ebx
    
81. ' push eax
    
82. ' and al,15
    
83. ' CALL DEC2HEX
    
84. ' mov [ebx],al
    
85. ' pop eax
    
86. ' dec ebx
    
87. ' shr eax,4
    
88. ' .endw
    
89. ' leave
    
90. ' retn 12
    
91. ' DEC2HEX:
    
92. ' AND AL,0FH
    
93. ' .if al >=0 && al <=9
    
94. ' ADD AL,30H
    
95. ' .else
    
96. ' ADD AL,CL
    
97. ' .endif
    
98. ' RET
    
99. 
    
100. .子程序 十到十六_旧, , , 新版比旧版快300多倍
     
101. .参数 值, 整数型
     
102. .参数 大写, 逻辑型
     
103. .参数 结果, 文本型, 参考
     
104. 
     
105. 结果 ＝ 取十六进制文本 (值)
     
106. 结果 ＝ 取重复文本 (8 － 取文本长度 (结果), “0”) ＋ 结果
     
107. 结果 ＝ 选择 (大写, 到大写 (结果), 到小写 (结果))
     

复制代码