汉字及字母、数字等混合字符与16进制互相转换
近期在制作一个字符-> 16进制，16进制-> 字符 的转换中遇到点问题，请各位给帮个忙。
在字符转换16进制时没有什么问题，以下是字符-> 16进制的代码
Private Function StringToHex(ByVal MyString As String)
Dim StrAscii As String = " "
Dim ascii As Encoding = Encoding.ASCII
Dim tmpUnicode As Encoding = Encoding.Unicode
Dim unicodeBytes As Byte() = tmpUnicode.GetBytes(MyString)
Dim i As Integer
For i = 0 To UBound(unicodeBytes) - 1
StrAscii &= unicodeBytes(i)
Next
StringToHex1 = StrAscii
End Function
但是在16进制转换字符时遇到汉字和字母混合时转换出来的是乱码，在CSDN搜索了一下，找到一段jadeluo（秀峰）发的代码，可以转换汉字，但遇到半角字符时会转没了
如：16进制码：B2 E2 CA D4 D7 AA BB BB 61(应为：测试转换a)，转换后就成了：测试转换，后面的那个a没了。
以下是jadeluo（秀峰）的这段代码：
Function HexToGB(ByVal sHex As String) As String
Dim sResult As String
Dim iLoop As Integer
sResult = " "
For iLoop = 1 To Len(sHex) \ 4
sResult = sResult + Chr(Val( "&H " + Mid(sHex, iLoop * 4 - 3, 4)))
Next iLoop
HexToGB = sResult
End Function
静请各位高人指点迷津！！！！
[解决办法]
Function HexToGB(ByVal sHex As String) As String
Dim sResult As String
Dim iLoop As Integer
sResult = ""
For iLoop = 1 To Len(sHex) Step 2
If Val("&H" & Mid$(sHex, iLoop, 4)) < 0 Then
sResult = sResult & Chr(Val("&H" & Mid$(sHex, iLoop, 4)))
iLoop = iLoop + 2
Else
sResult = sResult & Chr(Val("&H" & Mid(sHex, iLoop, 2)))
End If
Next iLoop
HexToGB = sResult
End Function
'结果如下：
' Debug.Print HexToGB("B2E261CAD4D7AABBBB")
测a试转换
' Debug.Print HexToGB("B2E2CAD4D7AABBBB61")
测试转换a
[解决办法]
[code=VB.NET][/code]
Private Function URLDecode(strValue As String) As String
Dim bytAry() As Byte
Dim Flag As Boolean
Dim varAry, varElement
Dim lngCnt As Long, lngLoop As Long
ReDim bytAry(1 To 999999) As Byte
strValue = Replace(strValue, "+", " ")
varAry = Split(strValue, "%")
Flag = varAry(0) = ""
lngCnt = 1
If UBound(varAry) > 0 Then
For Each varElement In varAry
If varElement <> Empty Then
If Len(varElement) >= 2 And Flag Then
bytAry(lngCnt) = Val("&H" & Left(varElement, 2))
lngCnt = lngCnt + 1
For lngLoop = 3 To Len(varElement)
bytAry(lngCnt) = Asc(Mid(varElement, lngLoop, 1))
lngCnt = lngCnt + 1
Next
Else
For lngLoop = 1 To Len(varElement)
bytAry(lngCnt) = Asc(Mid(varElement, lngLoop, 1))
lngCnt = lngCnt + 1
Next
Flag = True
End If
End If
Next
ReDim Preserve bytAry(1 To lngCnt - 1)
URLDecode = StrConv(bytAry, vbUnicode)
Erase bytAry
Else
URLDecode = Join(varAry)
End If
End Function
[解决办法]
Function HexToGB(ByVal sHex As String) As String
Dim b() As Byte, s() As String, i As Long
While InStr(sHex, " ") > 0
sHex = Replace(sHex, " ", " ")
Wend
s = Split(sHex)
ReDim b(UBound(s))
For i = 0 To UBound(s)
b(i) = Val("&H" & s(i))
Next
HexToGB = StrConv(b, vbUnicode)
End Function
Sub 转换()
MsgBox HexToGB("B2 E2 CA D4 D7 AA BB BB 61")
End Sub
