实施谷歌翻译

问题描述

我尝试使用google translation使用c＃将名称从语言翻译为另一种语言，并且效果很好，但是现在我尝试使用ms access vba来做同样的事情，但是我尝试了很多方法但没有运气！ 这是用c＃编写的代码，并且可以正常工作

public string trans_arabic_to_english(string word)
        {
            var toLanguage = "en";//English
            var fromLanguage = "ar";//Deutsch
            var url = $"https://translate.googleapis.com/translate_a/single?client=gtx&sl={fromLanguage}&tl={toLanguage}&dt=t&q={HttpUtility.UrlEncode(word)}";
            var webClient = new WebClient
            {
                Encoding = System.Text.Encoding.UTF8
            };
            var result = webClient.DownloadString(url);
            try
            {
                result = result.Substring(4,result.IndexOf("\"",4,StringComparison.Ordinal) - 4);
                return result;
            }
            catch
            {
                return "Error";
            }
        }

这是vba中的代码

Private Sub Command0_Click()
Dim toLan As String,fromLan As String,resp As String,s As String,a_name As String,url As String

toLang = "ar"
fromlang = "en"
a_name = "omar khalil"
url = "https://translate.googleapis.com/translate_a/single?"
url = url & "client=gtx&sl={""" & toLang & """}&tl={""" & fromlang & """}&dt=t&q={""" & a_name & """}"

url = "https://translate.googleapis.com/translate_a/single?client=gtx&sl="
url = url & fromlang & "&tl=" & to_lang & "&dt=t&q=" & a_name
'==
Dim ob As Object
Set ob = CreateObject("WinHttp.WinHttpRequest.5.1")
ob.Open "POST",url,False
ob.SetRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
ob.SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
ob.Send
If ob.Status <> 200 Then
resp = ob.ResponseText
MsgBox resp
End Sub

我也曾经尝试过使用WinHttp，但没有运气！ 任何人都可以帮助我解决这个问题，谢谢。

解决方法

请尝试下一个功能，

Private Function GTranslate(strInput As String,strFromLang As String,strToLang As String) As String
    Dim strURL As String,objHTTP As Object,objHTML As Object,objDivs As Object,objDiv As Variant
    
    strURL = "https://translate.google.com/m?hl=" & strFromLang & _
        "&sl=" & strFromLang & _
        "&tl=" & strToLang & _
        "&ie=UTF-8&prev=_m&q=" & strInput
        
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    objHTTP.Open "GET",strURL,False
    objHTTP.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.Send ""
    
    Set objHTML = CreateObject("htmlfile")
    With objHTML
        .Open
        .Write objHTTP.responseText
        .Close
    End With
    
    Set objDivs = objHTML.getElementsByTagName("div")
    For Each objDiv In objDivs
        If objDiv.className = "t0" Then
            GTranslate = objDiv.innerText: Exit For
        End If
    Next objDiv
    
    Set objHTML = Nothing: Set objHTTP = Nothing
End Function

可以通过以下方式调用：

Sub testTranslateG()
  MsgBox GTranslate("Este es un libro","auto","en")
End Sub

第二个参数可以是“ auto”（例如在测试Sub中），如果需要更准确的翻译，则可以是特定的语言缩写（“ es”-西班牙语，“ ru”-俄语，“ ro”-罗马尼亚语等）

为了找到正确的缩写，您可以打开Goog​​le翻译页面，右键单击并选择“查看页面源代码”。然后尝试查找某种语言。让我们说西班牙语。在该区域中，您将看到一个脚本，其中包含类似以下字符串的字符串：“ code：'it'，name：'Italian'”。容易理解，“ it”是意大利语的缩写。