在令人驚歎的VBA宏中使用Azure翻譯器

Question

5年多來，我已經使用此代碼在Excel VBA宏中將用戶輸入的英文文本轉換爲法語或德語。這是微軟Azure Marketplace，因爲我的使用很少，所以它是免費的。

Function MicrosoftTranslate(sText As String, Optional sLanguageFrom As String = "", Optional sLanguageTo As String = "en") As String 
Dim sRequest As String, sResponseText As String 
    sRequest = "Translate?from=" & sLanguageFrom & "&to=" & sLanguageTo & "&text=" & sText 
    sResponseText = MSHttpRequest(sRequest) 
    'Debug.Print sResponseText 
    MicrosoftTranslate = StringFromXML(sResponseText) 
End Function 

Function MicrosoftTranslatorDetect(sText As String) As String 
' returns lowercase two character code eg "fr" 
    MicrosoftTranslatorDetect = StringFromXML(MSHttpRequest("Detect?text=" & sText)) 
End Function 

Function MSHttpRequest(sRequest As String) As String 
Dim sURL As String, oH As Object, sToken As String 
    sURL = "http://api.microsofttranslator.com/V2/Http.svc/" & sRequest 
    sToken = GetAccessToken() 
    Set oH = CreateObject("MSXML2.XMLHTTP") 
    oH.Open "GET", sURL, False 
    oH.setRequestHeader "Authorization", "Bearer " & sToken 
    oH.send 
    MSHttpRequest = oH.responseText 
    Set oH = Nothing 
End Function 

Function GetAccessToken() As String 
Static sAccess_Token As String, dtExpiry_Time As Date 
Const OAUTH_URI As String = "https://datamarket.accesscontrol.windows.net/v2/OAuth2-13" 

'get Your Client ID and client secret from 
'https://datamarket.azure.com/developer/applications 
Const CLIENT_ID As String = "xxxxxxxxx" 
Const CLIENT_SECRET As String = "1234567890abcdefghijklmnopqrstuvwxyz" 
Dim sRequest As String, sResponse As String 
Dim webRequest As Object 

If Now() > dtExpiry_Time Then ' time for a new access token 
    Set webRequest = CreateObject("MSXML2.XMLHTTP") 

    sRequest = "grant_type=client_credentials" & _ 
     "&client_id=" & CLIENT_ID & _ 
     "&client_secret=" & URLEncode(CLIENT_SECRET) & _ 
     "&scope=http://api.microsofttranslator.com" 
    webRequest.Open "POST", OAUTH_URI, False 
    webRequest.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
    webRequest.send (sRequest) 
    sResponse = webRequest.responseText 
    Set webRequest = Nothing 

    If InStr(1, sResponse, """error:""", vbTextCompare) > 0 Then 
     Err.Raise 9999, "GetAccessToken " & sResponse 
    End If 

    sAccess_Token = NameValue("access_token", sResponse) 
    dtExpiry_Time = Now() + Val(NameValue("expires_in", sResponse))/60/60/24 ' maybe *.95 for safety margin 
    'Debug.Print "Token expires at "; Format$(dtExpiry_Time, "hh:mm:ss") 
End If 
GetAccessToken = sAccess_Token 
End Function 

現在，隨着新的微軟Azure，我的搭便車似乎已經結束了。所以現在我需要轉換我的VBA代碼。我看了，還沒有找到一個很好的參考，這將有助於轉換附加的例程。我在VBA方面並不差，但需要幫助實現這些新功能。

有人可以幫助或指向我的一些參考（像我這樣的新手），這將使我與新系統。

在我運行某些東西之後，我可以決定這個小應用程序是否值得我的錢。

感謝..... RDK

Answer 1

其實在Azure中Coginitve服務翻譯API開始與自由層。 https://www.microsoft.com/cognitive-services/en-us/pricing

新API的主要區別是獲取令牌的方式。 http://docs.microsofttranslator.com/oauth-token.html

其餘的是我想的。您可以在這裏找到參考： docs.microsofttranslator.com/text-translate.html