Translator

DoTranslate, FromLanguage, InputText, LoadListBoxLanguages, OutputText, OutputUnicode, ToLanguage

Translator Overview

Embedded in the TRADIUM Basic Script language is a dynamic and online translation engine, Translator, which operates as a class. Translation is performed fast and accurate, using DeepL™ technology.

Translation is easy to perform by setting the native language and foreign language, the input text and perform the translation. Response is set in both OutputText and OutputUnicode properties.

You can combine several features of the Tradium Basic Script engine to create a powerful and fast translation function, which combine Tradium´s own translation database, the online Translator engine and fast storage and easy maintenance of translated string. An example of such a high level script is printed below:

Function myTT(myText As String) As String
 
'-------------------------------------------
Const EDIT_TRANSLATIONS As Boolean = False
'-------------------------------------------
 
Dim sResult As String, EditResult As String
Dim Tr As Translator
	If ForeignLanguage <> "UK_English" Then
		myTT = myText
	Else
		sResult = Trans(myText)
		If sResult = myText Then
			sResult = GetSetting("Tradium","MyTranslations", myText, "")
			If Len(sResult) > 0 Then
				If EDIT_TRANSLATIONS Then
					EditResult = InputBox(myText,"Check Translation", sResult)
					If Len(EditResult) > 0 Then
						SaveSetting "Tradium", "MyTranslations", myText, EditResult
						sResult = EditResult
					End If
				End If
				TT = sResult
			Else
				Set Tr = New Translator
				Tr.FromLanguage = "NL"
				Tr.ToLanguage = "EN"
				Tr.InputText = myText
				Tr.DoTranslate
				TT = Tr.OutputUnicode
				If Len(Tr.OutputUnicode) > 0 Then
					SaveSetting "Tradium", "MyTranslations", myText, Tr.OutputUnicode
				End If
			End If
		Else
			myTT = sResult
		End If
	End If
 
End Function

See Also: ForeignLanguage, SaveSetting, Trans

For more information on DeepL™, visit deepl.com