Access如何将二进制UTF8转成字符串_access模块-access类模块-access函数-access VBA

Access如何将二进制UTF8转成字符串

时间：2013-07-22 14:32 来源：Office中国作者：tmtony 阅读：次

分享一个utf-8转字符串的函数。解决编码带来的错误！
调用方法：
Private Sub cmdConvert_Click()
fm20TxtText.Text = FromUtf8(FromHex(fm20TxtHex.Text))
End Sub

函数如下：
Private Declare Function CryptStringToBinary Lib "Crypt32" _
Alias "CryptStringToBinaryW" ( _
ByVal pszString As Long, _
ByVal cchString As Long, _
ByVal dwFlags As Long, _
ByVal pbBinary As Long, _
ByRef pcbBinary As Long, _
ByRef pdwSkip As Long, _
ByRef pdwFlags As Long) As Long

Private Declare Function MultiByteToWideChar Lib "kernel32" ( _
ByVal CodePage As Long, _
ByVal dwFlags As Long, _
ByVal lpMultiByteStr As Long, _
ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As Long, _
ByVal cchWideChar As Long) As Long

Public Function FromHex(ByRef HexString As String) As Byte()
Const CRYPT_STRING_HEX As Long = &H4&
Dim lngOutLen As Long
Dim dwActualUsed As Long
Dim bytBinary() As Byte

If Len(HexString) < 1 Then Exit Function

'Determine output buffer length required.
If CryptStringToBinary(StrPtr(HexString), _
                        Len(HexString), _
                        CRYPT_STRING_HEX, _
                        0&, _
                        lngOutLen, _
                        ByVal 0&, _
                        dwActualUsed) = 0 Then
      Err.Raise &H80044100, "FromHex", _
               "CryptStringToBinary failed, error " & CStr(Err.LastDllError)
Else
      'Convert to binary.
      ReDim bytBinary(lngOutLen - 1)
      If CryptStringToBinary(StrPtr(HexString), _
                           Len(HexString), _
                           CRYPT_STRING_HEX, _
                           VarPtr(bytBinary(0)), _
                           lngOutLen, _

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：Access获取字符串中的数字的几个函数
下一篇：Access在函数后面加一个美元符号($)，如chr与chr$的异同