PslTranslations.Add
Adds a translation to the collection of translations.
Syntax
Expression.Add (TransString as Variant, [optional] SourceString as Variant, [optional] Match as Variant, [optional] Origin as Variant) as PslTranslation
Expression Object of type PslTranslations
TransString the translated string
SourceString the source string
Match quality of match between translation found and SourceString
Origin Origin of translation. Can be a tool name
Example
Public Sub PSL_OnAutoTranslate(Translations As PslTranslations, _
ByVal MinMatch As Long, _
ByVal MaxCount As Long)
Dim tu As TranslationUnit, i As Integer
If TW3Mem Is Nothing Then Exit Sub
TW3Mem.Search (Translations.SourceString)
Set tu = TW3Mem.TranslationUnit
For i = 1 To TW3Mem.HitCount
Translations.Add(tu.Target, tu.Source, tu.Score, "TW2Win")
TransUnit.Next
Next i
End Sub