中英文在线翻译哪个软件好中英文在线翻译 _在线翻译

群里聊天，聊到中英文翻译，之前插件里面也写过中英文互译，打开一看不能使用了？what??

文章插图
群里老哥也是，他之前的翻译代码也无法使用，于是顺手看看，下面是之前的代码：
Function fy(str)Dim xmlDim url$, EngSentence$Set xml = CreateObject(&34;MSXML2.XMLHTTP&34;)EngSentence = UTF8EncodeURI(str)url1 = &34;http://translate.google.cn/m?hl=en&sl=en&tl=zh-CN&ie=UTF-8&prev=_m&q=&34; & EngSentenceurl2 = &34;http://translate.google.cn/m?hl=en&sl=zh-CN&tl=en&ie=UTF-8&prev=_m&q=&34; & EngSentenceIf Asc(Left(str, 1)) > 0 And Asc(Left(str, 1)) < 128 Then url = url1 Else url = url2With xml.Open &34;GET&34;, url, False.SendIf InStr(.ResponseText, &34;&34;) > 0 Thenfy = Split(Split(.ResponseText, &34;&34;)(1), &34;<&34;)(0)ElseMsgBox &34;Error&34;: Exit FunctionEnd IfEnd WithEnd FunctionFunction UTF8EncodeURI(szInput)Dim wch, uch, szRetDim xDim nAsc, nAsc2, nAsc3If szInput = &34;&34; ThenUTF8EncodeURI = szInputExit FunctionEnd IfFor x = 1 To Len(szInput)wch = Mid(szInput, x, 1)nAsc = AscW(wch)If nAsc < 0 Then nAsc = nAsc + 65536If (nAsc And &HFF80) = 0 ThenszRet = szRet & wchElseIf (nAsc And &HF000) = 0 Thenuch = &34;%&34; & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)szRet = szRet & uchElseuch = &34;%&34; & Hex((nAsc \ 2 ^ 12) Or &HE0) & &34;%&34; & _Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & &34;%&34; & _Hex(nAsc And &H3F Or &H80)szRet = szRet & uchEnd IfEnd IfNextUTF8EncodeURI = szRetEnd Function【中英文在线翻译哪个软件好中英文在线翻译】经过排查，不是请求错误，是返回的结果后对字符串处理出问题了，比如翻译 hello 返回结果其中一部分如下，要获取你好这2个汉字，之前的字符串处理方式不对，导致没结果。

文章插图
修改处理字符串代码为下面的即可

文章插图
最终结果：

文章插图

中英文在线翻译哪个软件好 中英文在线翻译

中英文在线翻译哪个软件好中英文在线翻译