PslTransList.TranslateText
Returns a list of translations for one string. Depending on MinMatch it looks for pre-translations or fuzzy matches. The function will search through all translation providers as set up in the SDL Passolo options. But, in contrast to the Passolo application this function only uses translation providers that are capable of return synchronous results.
The source and target language of this translation list are used for the search.
Syntax
Expression.TranslateText (Text as String, MinMatch as Variant, MaxCount as Variant) as PslTranslations
Expression Required. Object of type PslTransList
Text String, Required. This string will be translated.
MinMatch Variant, optional. Specifies the minimum match required. The default value is 100, so that the function searches for pre-translations. A value less then 100 will look for fuzzy matches.
MaxCount Variant, optional. Specifies the maximum number of translations to be returned. The default value is 10.
Example
Sub Main
' Clear the output window
PSL.OutputWnd(pslOutputWndMessages).Clear
Dim trnlist As PslTransList
Set trnlist = PSL.ActiveTransList
If trnlist Is Nothing Then
PSL.Output("No (single) active trans list found")
Exit Sub
End If
Dim ts As PslTranslations
Dim t As PslTranslation
' Pretranslation
PSL.Output("Pre-Translation------------------")
Set ts = trnlist.TranslateText("Resources: ", 100)
For Each t In ts
PSL.Output t.TransString & " (" & t.Origin & ")"
Next
' Fuzzy Matches
PSL.Output("Fuzzy Matches-------------------")
Set ts = trnlist.TranslateText("&File", 80)
For Each t In ts
PSL.Output t.TransString & " (" & t.Origin & ")"
Next
End Sub