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
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
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯