Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Create and add (append) child element node to parent with the tagname and inner text specified.

Implementation

Public Function CreateChildElementByName(ByRef objXMLParent, ByVal sTagName, ByVal sInnerText)
 Dim boolRC, intRC
 Dim objXMLDoc, objXMLNode, objTextNode
 If objXMLParent is Nothing Then
 Set CreateChildElementByName = Nothing
 Exit Function
 End If
 Set objXMLDoc = objXMLParent.OwnerDocument
 On Error Resume Next
 Set objXMLNode = objXMLDoc.CreateElement(sTagName)
 intRC = Err.Number
 On Error GoTo 0
 boolRC = isNull(objXMLNode) OR (intRC <> 0) 
 If boolRC Then
 Set CreateChildElementByName = Nothing
 Exit Function
 End If 
 Set objTextNode = objXMLDoc.CreateTextNode(sInnerText)
 objXMLNode.AppendChild(objTextNode)
 objXMLParent.AppendChild(objXMLNode)
 Set CreateChildElementByName = objXMLNode
End Function

Test Code

 Set objXMLParent = CreateChildElementByName(objXMLDoc.DocumentElement, "case", "test case")
 If objXMLParent is Nothing Then
 Log.Error "CreateChildElementByName failed"
 End If
 Set objXMLNode = CreateChildElementByName(objXMLParent, "step", "test step")
 If objXMLParent is Nothing Then
 Log.Error "CreateChildElementByName failed"
 End If
 If objXMLNode.BaseName <> "step" Then
 Log.Error "CreateChildElementByName failed"
 End If
 If objXMLNode.Text <> "test step" Then
 Log.Error "CreateChildElementByName failed"
 End If