1、'字符转 UTF8Public Function EncodeToBytes(ByVal sData As String) As Byte() ' Note: Len(sData) > 0Dim aRetn() As ByteDim nSize As LongnSize = WideCharToMultiByte(CP_UTF8, 0, StrPtr(sData), -1, 0, 0, 0, 0) - 1If nSize = 0 Then Exit FunctionReDim aRetn(0 To nSize - 1) As ByteWideCharToMultiByte CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize, 0, 0EncodeToBytes = aRetnErase aRetnEnd Function
2、' UTF8 转字符Public Function DecodeToBytes(ByVal sData As String) As Byte() ' Note: Len(sData) > 0Dim aRetn() As ByteDim nSize As LongnSize = MultiByteToWideChar(CP_UTF8, 0, StrPtr(sData), -1, 0, 0) - 1If nSize = 0 Then Exit FunctionReDim aRetn(0 To 2 * nSize - 1) As ByteMultiByteToWideChar CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSizeDecodeToBytes = aRetnErase aRetnEnd Function
3、Private Sub Command1_Click()Dim s As Strings = StrConv(EncodeToBytes("中文"), vbUnicode) '将utf编码的数组转VB可处理字符MsgBox st = DecodeToBytes(StrConv(s, vbFromUnicode))MsgBox tEnd Sub