XLIFFFile.AddTransUnit

Adds a translation unit to the node with the given node number of the new translation unit.

Syntax:

AddTransUnit( ParentNodeNumber As Long, SourceLanguage As String, SourceText As String, TargetText As String ) As Long

Return: Long

Parameters: ParentNodeNumber Node number of the parent node.
SourceLanguage Source language of the translation unit.
SourceText Source text of the translation unit.
TargetText Target text of the translation unit.

Example:
Dim File As XliffFile Dim FileNo As Long Dim GroupNo As Long Dim TUNo As Long Dim RetVal As Boolean Set File = Tools.XMLTool.CreateXLIFFFile("C:\test.xlf") FileNo = File.AddFileSection("en-us", "database.mdb", "database") GroupNo = File.AddGroup(FileNo) TUNo = File.AddTransUnit(GroupNo, "en-us", "Text", "") RetVal = File.AddProperty(TUNo, "resname", "", "IDS_TEXT") If (RetVal) Then File.Save End If

Syntax:	AddTransUnit( ParentNodeNumber As Long, SourceLanguage As String, SourceText As String, TargetText As String ) As Long
Return:	Long
Parameters:	ParentNodeNumber Node number of the parent node. SourceLanguage Source language of the translation unit. SourceText Source text of the translation unit. TargetText Target text of the translation unit.
Example:	Dim File As XliffFile Dim FileNo As Long Dim GroupNo As Long Dim TUNo As Long Dim RetVal As Boolean Set File = Tools.XMLTool.CreateXLIFFFile("C:\test.xlf") FileNo = File.AddFileSection("en-us", "database.mdb", "database") GroupNo = File.AddGroup(FileNo) TUNo = File.AddTransUnit(GroupNo, "en-us", "Text", "") RetVal = File.AddProperty(TUNo, "resname", "", "IDS_TEXT") If (RetVal) Then File.Save End If