我们知道VB采用的Unicode的编码方式,在对外接口的时候就会出现一些问题,如调用API函数时或是和其它程序发送数据时就需要特别注意,因为它们不一定也是采用这样的编码方式,所以要将其转换,存储到一个Byte的数组里面,然后传递过去,才能得到正确的结果,否则一旦传递了非英文的可打印字符时,程序将不会出现你想要的结果。我在编写一个网页时就遇到这样的问题,当中文数据被Post到一个网页时(Webbrowser控件),显示了乱码。我从网上查找资料,发现了这个问题的原因所在,也找到了转换函数PackBytes(),结果却发现这个函数有问题,现将其改正如下。
第一种方法是逐字转换,因为中文汉字的编码为GB2312,需要对其进行特别处理
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
Dim iNewBytes As Long '数组预设长度
Dim intAscii As Integer '一个字符(Unicode)的Asc编码,中文字符时其值小于0
Dim mCurNo As Integer '当前操作的Byte数组下标
Dim CharHex As String '当前操作字符的十六进制字符串
mCurNo = 0
iNewBytes = LenB(PostData) - 1 '字符串长度Len(str)的两倍注意用的是LenB()函数,数组下标从0开始,要减去1
If iNewBytes < 0 Then
Exit Sub
End If
ReDim ByteArray(iNewBytes)
For i = 0 To Len(PostData)
ch = Mid(PostData, i + 1, 1) '获取一个字符
If ch = Space(1) Then 如果是空跳过
ch = "+"
End If
If ch <> "" Then
intAscii = Asc(ch) '取其Asc码
If intAscii > 0 Then '<0则为中文
ByteArray(mCurNo) = Asc(ch) '英文,直接取其Asc码
mCurNo = mCurNo + 1 '设置计数器
Else
CharHex = Hex(intAscii) '中文时先转为十六进制
ByteArray(mCurNo) = HEX_to_DEC(Left(CharHex, 2)) '将前两位转换为十进制,注意这里不用Cbyte()类型转换,因为一些非中文字符时会出现错误。
ByteArray(mCurNo + 1) = HEX_to_DEC(Right(CharHex, 2)) '将后两位转换为十进制
mCurNo = mCurNo + 2 '设置计数器
End If
End If
Next i
ReDim Preserve ByteArray(mCurNo - 1)'截掉多余的部分
End Sub
Public Function HEX_to_DEC(ByVal Hex As String) As Long '将十六进制转换为十进制
Dim i As Long
Dim B As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": B = B + 16 ^ (i - 1) * 0
Case "1": B = B + 16 ^ (i - 1) * 1
Case "2": B = B + 16 ^ (i - 1) * 2
Case "3": B = B + 16 ^ (i - 1) * 3
Case "4": B = B + 16 ^ (i - 1) * 4
Case "5": B = B + 16 ^ (i - 1) * 5
Case "6": B = B + 16 ^ (i - 1) * 6
Case "7": B = B + 16 ^ (i - 1) * 7
Case "8": B = B + 16 ^ (i - 1) * 8
Case "9": B = B + 16 ^ (i - 1) * 9
Case "A": B = B + 16 ^ (i - 1) * 10
Case "B": B = B + 16 ^ (i - 1) * 11
Case "C": B = B + 16 ^ (i - 1) * 12
Case "D": B = B + 16 ^ (i - 1) * 13
Case "E": B = B + 16 ^ (i - 1) * 14
Case "F": B = B + 16 ^ (i - 1) * 15
End Select
Next i
HEX_to_DEC = B
End Function
第二种方法比较简单,用VB的内部函数StrConV()
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
ByteArray() = StrConv(PostData , vbFromUnicode)
End Sub
还原的时候只需用函数
strconv(bytearray(),vbunicode)就可以了
第一种方法是逐字转换,因为中文汉字的编码为GB2312,需要对其进行特别处理
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
Dim iNewBytes As Long '数组预设长度
Dim intAscii As Integer '一个字符(Unicode)的Asc编码,中文字符时其值小于0
Dim mCurNo As Integer '当前操作的Byte数组下标
Dim CharHex As String '当前操作字符的十六进制字符串
mCurNo = 0
iNewBytes = LenB(PostData) - 1 '字符串长度Len(str)的两倍注意用的是LenB()函数,数组下标从0开始,要减去1
If iNewBytes < 0 Then
Exit Sub
End If
ReDim ByteArray(iNewBytes)
For i = 0 To Len(PostData)
ch = Mid(PostData, i + 1, 1) '获取一个字符
If ch = Space(1) Then 如果是空跳过
ch = "+"
End If
If ch <> "" Then
intAscii = Asc(ch) '取其Asc码
If intAscii > 0 Then '<0则为中文
ByteArray(mCurNo) = Asc(ch) '英文,直接取其Asc码
mCurNo = mCurNo + 1 '设置计数器
Else
CharHex = Hex(intAscii) '中文时先转为十六进制
ByteArray(mCurNo) = HEX_to_DEC(Left(CharHex, 2)) '将前两位转换为十进制,注意这里不用Cbyte()类型转换,因为一些非中文字符时会出现错误。
ByteArray(mCurNo + 1) = HEX_to_DEC(Right(CharHex, 2)) '将后两位转换为十进制
mCurNo = mCurNo + 2 '设置计数器
End If
End If
Next i
ReDim Preserve ByteArray(mCurNo - 1)'截掉多余的部分
End Sub
Public Function HEX_to_DEC(ByVal Hex As String) As Long '将十六进制转换为十进制
Dim i As Long
Dim B As Long
Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": B = B + 16 ^ (i - 1) * 0
Case "1": B = B + 16 ^ (i - 1) * 1
Case "2": B = B + 16 ^ (i - 1) * 2
Case "3": B = B + 16 ^ (i - 1) * 3
Case "4": B = B + 16 ^ (i - 1) * 4
Case "5": B = B + 16 ^ (i - 1) * 5
Case "6": B = B + 16 ^ (i - 1) * 6
Case "7": B = B + 16 ^ (i - 1) * 7
Case "8": B = B + 16 ^ (i - 1) * 8
Case "9": B = B + 16 ^ (i - 1) * 9
Case "A": B = B + 16 ^ (i - 1) * 10
Case "B": B = B + 16 ^ (i - 1) * 11
Case "C": B = B + 16 ^ (i - 1) * 12
Case "D": B = B + 16 ^ (i - 1) * 13
Case "E": B = B + 16 ^ (i - 1) * 14
Case "F": B = B + 16 ^ (i - 1) * 15
End Select
Next i
HEX_to_DEC = B
End Function
第二种方法比较简单,用VB的内部函数StrConV()
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
ByteArray() = StrConv(PostData , vbFromUnicode)
End Sub
还原的时候只需用函数
strconv(bytearray(),vbunicode)就可以了