Chilkat • HOME • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi DLL • Go • Java • Node.js • Objective-C • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(VBScript) Amazon Translate TextDemonstrates how to use the AWS Translate service to translate text from one language to another.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") 'Create a Unicode (utf-16) output text file. Set outFile = fso.CreateTextFile("output.txt", True, True) ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Rest") set rest = CreateObject("Chilkat.Rest") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.AuthAws") set authAws = CreateObject("Chilkat.AuthAws") authAws.AccessKey = "AWS_ACCESS_KEY" authAws.SecretKey = "AWS_SECRET_KEY" authAws.Region = "us-west-2" authAws.ServiceName = "translate" success = rest.SetAuthAws(authAws) ' URL: https://translate.us-west-2.amazonaws.com/ bTls = 1 port = 443 bAutoReconnect = 1 success = rest.Connect("translate.us-west-2.amazonaws.com",port,bTls,bAutoReconnect) If (success <> 1) Then outFile.WriteLine("ConnectFailReason: " & rest.ConnectFailReason) outFile.WriteLine(rest.LastErrorText) WScript.Quit End If ' Translate text from English to German ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = CreateObject("Chilkat.JsonObject") success = json.UpdateString("SourceLanguageCode","en") success = json.UpdateString("TargetLanguageCode","de") success = json.UpdateString("Text","This is the text to be translated") success = rest.AddHeader("Content-Type","application/x-amz-json-1.1") success = rest.AddHeader("X-Amz-Target","AWSShineFrontendService_20170701.TranslateText") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbRequestBody = CreateObject("Chilkat.StringBuilder") success = json.EmitSb(sbRequestBody) ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder") set sbResponseBody = CreateObject("Chilkat.StringBuilder") success = rest.FullRequestSb("POST","/",sbRequestBody,sbResponseBody) If (success <> 1) Then outFile.WriteLine(rest.LastErrorText) WScript.Quit End If respStatusCode = rest.ResponseStatusCode If (respStatusCode >= 400) Then outFile.WriteLine("Response Status Code = " & respStatusCode) outFile.WriteLine("Response Header:") outFile.WriteLine(rest.ResponseHeader) outFile.WriteLine("Response Body:") outFile.WriteLine(sbResponseBody.GetAsString()) WScript.Quit End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set jsonResponse = CreateObject("Chilkat.JsonObject") success = jsonResponse.LoadSb(sbResponseBody) jsonResponse.EmitCompact = 0 outFile.WriteLine(jsonResponse.Emit()) ' { ' "SourceLanguageCode": "en", ' "TargetLanguageCode": "de", ' "TranslatedText": "Dies ist der zu �bersetzende Text" ' } outFile.WriteLine(jsonResponse.StringOf("TranslatedText")) outFile.Close |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.