Vb 如何让一个16进制的位置倒过来

来源:百度知道 编辑:UC知道 时间:2024/06/09 16:52:53
例如ABCDEFA0A1
倒过来是A1A0EFCDAB?????

有这函数没..

可以自己写一个..

Function ReHex(ss As String) As String
Dim i%, j%, tmp()
ReHex = ""
If Len(ss) = 0 Then Exit Function
For i = Len(ss) \ 2 To 1 Step -1
ReDim Preserve tmp(j)
tmp(j) = Mid(ss, i * 2 - 1, 2)
j = j + 1
Next
ReHex = Join(tmp, "")
End Function

Private Sub Command1_Click()
Dim a$
a = "ABCDEFA0A1"
Print ReHex(a)
End Sub