vb中如何将字符串转换为utf-8编码

答案:2 悬赏:40 手机版

解决时间 2021-03-31 03:31

提问者网友：趣果有间
2021-03-30 04:38

vb中如何将字符串转换为utf-8编码

最佳答案

五星知识达人网友：轮獄道
2021-03-30 05:24

请查询MSDN中 MultiByteToWideChar 和 WideCharToMultiByte 这两个函数。

全部回答

1楼网友：像个废品
2021-03-30 06:18

Function UTF(ZZF)
Dim ZTEP, I, ZA, ZC
UTF = ""
ZTEP = ZZF & ""
If ZTEP = "" Then Exit Function
For I = 1 To Len(ZTEP)
ZA = Mid(ZTEP, I, 1)
ZC = Asc(ZA)
If ZC > 127 Or ZC < 0 Then
ZC = AscW(ZA)
If ZC < 0 Then ZC = &H10000 + ZC
If ZC < 2048 Then
UTF = UTF & "=" & Hex(((ZC \ &H40) And &H1F) Or &HC0) & "=" & Hex((ZC And &H3F) Or &H80)
Else
UTF = UTF & "=" & Hex(((ZC \ &H1000) And &HF) Or &HE0) & "=" & Hex(((ZC \ &H40) And &H3F) Or &H80) & "=" & Hex((ZC And &H3F) + &H80)
End If
Else
UTF = UTF & ZA
End If
Next I
End Function

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息