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

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

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

                           ByVal 0&, _
                           dwActualUsed) = 0 Then
         Err.Raise &H80044100, "FromHex", _
                  "CryptStringToBinary failed, error " & CStr(Err.LastDllError)
      Else
         FromHex = bytBinary
      End If
End If
End Function

Public Function FromUtf8(ByRef Utf8() As Byte) As String
Const CP_UTF8 As Long = 65001
Dim lngBytes As Long
Dim lngResult As Long

On Error Resume Next
lngBytes = UBound(Utf8) - LBound(Utf8) + 1
If Err Then
      Err.Clear
      On Error GoTo 0
      Err.Raise 5, "FromUtf8", "Invalid parameter: must be a dimensioned array"
End If
On Error GoTo 0
lngResult = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf8(LBound(Utf8))), _
                                 lngBytes, 0, 0)
FromUtf8 = String$(lngResult, 0)
MultiByteToWideChar CP_UTF8, 0, VarPtr(Utf8(LBound(Utf8))), _
                     lngBytes, StrPtr(FromUtf8), lngResult
End Function

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

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