VB6.0 如何将text转化为UTF8

2025-05-09 15:47:01

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

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。