VB汉字转拼音！！紧急！！ 参考：http：//www.vbgood.com/viewthread.php？tid=84369&highlight=
VB如何把汉字和字母转换成utf8字符？求代码 参考方法如下： 面的两段VB代码分别针对UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行了编码的转换。。
VB如何把汉字和字母转换成utf8字符？ ^参考方法如下2113：面的两段VB代码分别针对5261UTF-8（UTF8EncodeURI）和GB2312（GBKEncodeURI）进行了编码4102的转换。Private Sub command1_click()Debug.Print(UTF8EncodeURI(\"汉字1653\"))Debug.Print(GBKEncodeURI(\"汉字\"))End SubFunction UTF8EncodeURI(szInput)Dim wch，uch，szRetDim xDim nAsc，nAsc2，nAsc3If szInput=\"\"ThenUTF8EncodeURI=szInputExit FunctionEnd IfFor x=1 To Len(szInput)wch=Mid(szInput，x，1)nAsc=AscW(wch)If nAscIf(nAsc And&HFF80)=0 ThenszRet=szRet&wchElseIf(nAsc And&HF000)=0 Thenuch=\"%\"&Hex(((nAsc \\ 2^6))Or&HC0)&Hex(nAsc And&H3F Or&H80)szRet=szRet&uchElseuch=\"%\"&Hex((nAsc \\ 2^12)Or&HE0)&\"%\"&_Hex((nAsc \\ 2^6)And&H3F Or&H80)&\"%\"&_Hex(nAsc And&H3F Or&H80)szRet=szRet&uchEnd IfEnd IfNextUTF8EncodeURI=szRetEnd FunctionFunction GBKEncodeURI(szInput)Dim i As LongDim x()As ByteDim szRet As StringszRet=\"x=StrConv(szInput，vbFromUnicode)For i=LBound(x)To UBound(x)szRet=szRet&\"%\"&Hex(x(i))NextGBKEncodeURI=szRetEnd Function
