vb怎么把汉字转换成gbk编码

Question

如题所述

Answer 1

vb 怎么把汉字转换成gbk编码参考方法如下：面的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行了编码的转换。Private Sub command1_click()Debug.Print (UTF8EncodeURI("汉字"))Debug.Print (GBKEncodeURI("汉字"))End SubFunction UTF8EncodeURI(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3If szInput = "" ThenUTF8EncodeURI = szInputExit FunctionEnd IfFor x = 1 To Len(szInput)wch = Mid(szInput, x, 1)nAsc = AscW(wch)If nAsc 0 Then nAsc = nAsc + 65536If (nAsc And HFF80) = 0 ThenszRet = szRet wchElseIf (nAsc And HF000) = 0 Thenuch = "%" Hex(((nAsc \ 2 ^ 6)) Or HC0) Hex(nAsc And H3F Or H80)szRet = szRet uchElseuch = "%" Hex((nAsc \ 2 ^ 12) Or HE0) "%" _Hex((nAsc \ 2 ^ 6) And H3F Or H80) "%" _Hex(nAsc And H3F Or H80)szRet = szRet uchEnd IfEnd IfNextUTF8EncodeURI = szRetEnd FunctionFunction GBKEncodeURI(szInput)Dim i As LongDim x() As ByteDim szRet As StringszRet = ""x = StrConv(szInput, vbFromUnicode)For i = LBound(x) To UBound(x)szRet = szRet "%" Hex(x(i))NextGBKEncodeURI = szRetEnd Function