Question

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

VB6.0当中有没有像PHP的mb_convert_encoding函数，可以把一段字符串从UTF-8转换为GB2312，或者反过来转换
PHP中自带这个函数mb_convert_encoding("中文","utf-8","gb2312")可以把汉字由GB2312转换为UTF-8编码，VB中怎么实现这样的函数功能啊？？

在网上找了个GB2UTF的URL函数，还有Unicode2utf函数结合使用搞定了，分就给你了，没人给出具体的代码，呵呵

Answer 1

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

Answer 2

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