XLIFFFile.AddProperty

Adds a property to the node withe the given node number. The function returns whether the "Add" method was successful.

Syntax:

AddProperty( ParentNodeNumber As Long, PropertyName As String, NamespaceURI As String, Value As String ) As Boolean

Return: Boolean

Parameters: ParentNodeNumber Node number of the parent node.
PropertyName Name of the property to be added.
NamespaceURI Namespace URI of the property. For XLIFF attributes the "NamespaceURI" parameter is an empty string.
Value Value of the property.

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:	AddProperty( ParentNodeNumber As Long, PropertyName As String, NamespaceURI As String, Value As String ) As Boolean
Return:	Boolean
Parameters:	ParentNodeNumber Node number of the parent node. PropertyName Name of the property to be added. NamespaceURI Namespace URI of the property. For XLIFF attributes the "NamespaceURI" parameter is an empty string. Value Value of the property.
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