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

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

在网上找了个GB2UTF的URL函数,还有Unicode2utf函数结合使用搞定了,分就给你了,没人给出具体的代码,呵呵
展开
 我来答
周海涛_bj
2010-03-18 · TA获得超过563个赞
知道小有建树答主
回答量:584
采纳率:0%
帮助的人:657万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
果建翼
2010-03-18 · TA获得超过7923个赞
知道大有可为答主
回答量:1684
采纳率:0%
帮助的人:2425万
展开全部
请查询MSDN中 MultiByteToWideChar 和 WideCharToMultiByte 这两个函数。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式