PassoloApp.GetConcordances
Returns a list of concordances for one string. The function will search through all concordance 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.
Syntax
Expression.TranslateText (Text as String ,LanguageFrom as Variant, LanguageTo as Variant, MinMatch as Variant, MaxCount as Variant) as PslTranslations
Expression Required. Object of type PslTransList
Text String, Required. Concordances of this string are searched.
LanguageFrom Required. The source language for the translation. Specify the language by its ID (1033 for English(USA)) or by its name ("enu")
LanguageTo Required. The source language for the translation
MinMatch Variant, optional. Specifies the minimum match required. The default value is 100, so that the function searches for exact matches by default.
MaxCount Variant, optional. Specifies the maximum number of segments to be returned.
Example
Sub Main
' Clear the output window
PSL.OutputWnd(pslOutputWndMessages).Clear
Dim ts As PslTranslations
Dim t As PslTranslation
' Concordances
PSL.Output("Concordances-------------------")
Set ts = PSL.GetConcordances("Open", 1033, 1031, 100)
For Each t In ts
PSL.Output t.TransString & " (" & t.Origin & ")"
Next
End Sub