AU3十六进制转换十进制函数--自己制作的

1. Func _ch10to16($t_10)
   
2.         $ch16 = ""
   
3.         If StringLen($t_10) > 0 And StringIsInt($t_10) And $tt > 0 Then
   
4.                 $i = 0
   
5.                 Local $t_16[2]
   
6.                 If $t_10 > 15 Then
   
7.                         While $t_10 / 16 > 1
   
8.                                 $t_16[$i] = Mod($t_10, 16)
   
9.                                 $t_10 = Floor($t_10 / 16)
   
10.                                
    
11.                                 $i += 1
    
12.                                 ReDim $t_16[$i + 1]
    
13.                         WEnd
    
14.                         $t_16[$i] = $t_10
    
15.                        
    
16.                 Else
    
17.                         $t_16[$i] = _zh16($t_10)
    
18.                 EndIf
    
19.                
    
20.                 For $i = UBound($t_16) - 1 To 0 Step -1
    
21.                        
    
22.                         $ch16 &= _zh16($t_16[$i])
    
23.                 Next
    
24.                
    
25.         Else
    
26.                 $ch16 = "-1"
    
27.         EndIf
    
28.         Return $ch16
    
29.        
    
30. EndFunc   ;==>_ch10to16
    
31. 
    
32. Func _zh16($ch16)
    
33.         Switch $ch16
    
34.                 Case "10"
    
35.                         $ch16 = "A"
    
36.                 Case "11"
    
37.                         $ch16 = "B"
    
38.                 Case "12"
    
39.                         $ch16 = "C"
    
40.                 Case "13"
    
41.                         $ch16 = "D"
    
42.                 Case "14"
    
43.                         $ch16 = "E"
    
44.                 Case "15"
    
45.                         $ch16 = "F"
    
46.         EndSwitch
    
47.        
    
48.         Return $ch16
    
49. EndFunc   ;==>_zh16
    
50. 
    
51. 
    
52. Func _ch16to10($t_txt)
    
53.         $_jieguo = 0
    
54.         $t_len = StringLen($t_txt)
    
55.         If $t_len > 0 Then
    
56.                 If StringIsXDigit($t_txt) Then
    
57.                         Dim $t_n[1]
    
58.                         $k = $t_len
    
59.                         ReDim $t_n[$t_len]
    
60.                         For $i = $t_len To 1 Step -1
    
61.                                 $t_n[$k - $i] = StringUpper(StringMid($t_txt, $i, 1))
    
62.                                 Switch $t_n[$k - $i]
    
63.                                         Case "A"
    
64.                                                 $t_n[$k - $i] = "10"
    
65.                                         Case "B"
    
66.                                                 $t_n[$k - $i] = "11"
    
67.                                         Case "C"
    
68.                                                 $t_n[$k - $i] = "12"
    
69.                                         Case "D"
    
70.                                                 $t_n[$k - $i] = "13"
    
71.                                         Case "E"
    
72.                                                 $t_n[$k - $i] = "14"
    
73.                                         Case "F"
    
74.                                                 $t_n[$k - $i] = "15"
    
75.                                 EndSwitch
    
76.                         Next
    
77.                        
    
78.                         For $i = 0 To UBound($t_n) - 1
    
79.                                 $_jieguo += $t_n[$i] * 16 ^ $i
    
80.                         Next
    
81.                        
    
82.                 Else
    
83.                         MsgBox(16, "检查字符串", "请检查字符串是否为十六进制" & @CR & "十六进制数只有（0-9）（A-F)")
    
84.                         $_jieguo = 0
    
85.                 EndIf
    
86.         Else
    
87.                 MsgBox(16, "检查字符串", "没有检测到要转换的字符串")
    
88.                 $_jieguo = 0
    
89.         EndIf
    
90.         Return $_jieguo
    
91. EndFunc   ;==>_ch16to10
    

复制代码

找了半天没有找到AU3的十六进制转换函数，自己写了一个 方便使用
调用方法  十进制转换十六进制 $变量=_ch10to16("十进制数字") 成功返回十六进制字符  错误返回-1 十进制数字只能是正数
十六进制转换十进制  $变量=_ch16to10("十六进制数字")成功返回十进制字符 错误返回0

1. _Main()
   
2. Exit
   
3. 
   
4. Func _Main()
   
5.         
   
6.         Local $iNum = 10
   
7.         
   
8.         Local $sHex = Hex($iNum, 4)
   
9.         ConsoleWrite('$sHex = ' & $sHex & @CRLF)
   
10.         
    
11.         $iNum = Dec($sHex)
    
12.         ConsoleWrite('$iNum = ' & $iNum & @CRLF)
    
13.         
    
14. EndFunc   ;==>_Main

复制代码

参见 Hex 函数和 Dec 函数，按需索取

额。。。刚接触一个新语言。。好多东西没仔细看，自己重建了函数。。。。

nyjy_hx 发表于 2020-12-14 18:17
额。。。刚接触一个新语言。。好多东西没仔细看，自己重建了函数。。。。

有轮子就不要再写轮子了……

继续学习学习