楼主
kevinchengcw |
Q: 如何利用vba代码实现超大十六进制数转换为十进制数？
A: 实现代码如下：
- Sub test()
- Dim Arr, Result, N&, Str$, Tmp$, T&, I&, A&, B&
- Str = "885ed7200431268c149a650011d7f86978673286c9d2f14aecf9d4fa56a7d5c8" '要转换的十六进制数
- T = 0 '初始化溢出数变量为0
- For N = 1 To Len(Str) '循环十六进制数各位
- ReDim Arr(1 To 1) '重定义位计算数组
- Arr(1) = Val("&H" & Mid(Str, N, 1)) '初始化为当前位的十六进制数的十进制值
- For I = 1 To Len(Str) - N '利用位数得出要乘16的次数(字符串长度位数-1)
- For A = LBound(Arr) To UBound(Arr) '循环位计算数组各项
- Arr(A) = Arr(A) * 16 '当前项乘以16
- If T > 0 Then '如果有溢出值存在,则相乘后结果加上溢出值,并清零溢出值变量
- Arr(A) = Arr(A) + T
- T = 0
- End If
- Tmp = CStr(Arr(A)) '将对应结果数组项转化成文本
- If Len(Tmp) > 6 Then '如果超过6位,则将超出部分赋值给溢出值变量,将6位以内部分赋值给当前数组项
- T = Val(Left(Tmp, Len(Tmp) - 6))
- Arr(A) = Val(Right(Tmp, 6))
- End If
- Next A
- If T <> 0 Then '如果循环完毕后溢出值变量仍不为空,则再为数组申请一项,用于储存溢出值
- ReDim Preserve Arr(1 To A)
- Arr(A) = T
- T = 0
- End If
- Next I
- If N = 1 Then '如果是第一位数的计算,则将位计算数组结果直接赋值给结果数组,否则与结果数组进行加和处理,处理方式同上
- Result = Arr
- Else
- T = 0
- For I = LBound(Arr) To UBound(Arr)
- Result(I) = Result(I) + Arr(I)
- If T > 0 Then
- Result(I) = Result(I) + T
- T = 0
- End If
- Tmp = CStr(Result(I))
- If Len(Tmp) > 6 Then
- T = Val(Left(Tmp, Len(Tmp) - 6))
- Result(I) = Val(Right(Tmp, 6))
- End If
- Next I
- End If
- Next N
- Str = "" '清空结果字符串
- For N = UBound(Result) To LBound(Result) Step -1 '从后向前循环结果数组各项
- If N = UBound(Result) Then '如果是最高位,则直接等于其数值转化成的字符串,否则以六位数字方式生成字符串串接在结果字符串后面
- Str = CStr(Val(Result(N)))
- Else
- Str = Str & Format(Result(N), "000000")
- End If
- Next N
- MsgBox Str '显示结果
- End Sub
因相乘数据极大,甚至部分超出了long数据类型的长度限制,故将位长改成6位来进行处理. |
这个可以有,先收下咯