Question

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

比如字符串：“微软计算机” 转换为 【%e5%be%ae%e8%bd%af%e8%ae%a1%e7%ae%97%e6%9c%ba】

请教了！

Answer 1

Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
Private Const CP_ACP = 0        ' default to ANSI code page
Private Const CP_UTF8 = 65001   ' default to UTF-8 code page

Private Sub Command1_Click()
Dim s As String, a() As Byte
s = Text1.Text
a = EncodeToBytes(s)
For i = 0 To UBound(a)
Text2.Text = Text2.Text & Hex(a(i)) & " "
Next
End Sub

Public Function EncodeToBytes(ByVal sData As String) As Byte()
Dim aRetn() As Byte, nSize As Long
nSize = WideCharToMultiByte(CP_UTF8, 0, StrPtr(sData), -1, 0, 0, 0, 0)
ReDim aRetn(0 To nSize - 1) As Byte
WideCharToMultiByte CP_UTF8, 0, StrPtr(sData), -1, VarPtr(aRetn(0)), nSize, 0, 0
EncodeToBytes = aRetn
End Function

追问

谢谢哈！楼下完美帮我解决了！

Answer 2

dim e as object
Set e=CreateObject("MSScriptControl.ScriptControl")
e.Language = "javascript"
dim d as stringd= e.Eval("encodeURI('微软计算机')") '运行javascript脚本的函数
MsgBox d
MsgBox e.Eval("decodeURI('" & d  & "')")

追问

追加悬赏 50，共计 150~

Answer 3

vb里汉字就是一个字符
MsgBox (Len("汉字"))这句显示为2