Documentation Center

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