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

Description

Sets text value for the child XML node specified via XPath query.

Note: creates a new XML node if nothing was found.

Implementation

Public Function SetChildElementByAttr(ByRef objXMLParent, ByVal sTagName, ByVal sAttrName, ByVal sValue)
 Dim objNode
 sTagName = Trim(sTagName)
 sAttrName = Trim(sAttrName)
 sValue = CStr(sValue)
 If objXMLParent is Nothing Then
 Set SetChildElementByAttr = Nothing
 Exit Function
 End If
 Set objNode = objXMLParent.SelectSingleNode("./"&sTagName&"[@name='" & sAttrName &"']")
 If isNull(objNode) or (objNode is Nothing) Then
 Set objNode = CreateChildElementByName(objXMLParent, sTagName, sValue)
 Call SetXMLElementProperty(objNode, "#Attr:name", -1, sAttrName)
 End If
 Call SetXMLElementProperty(objNode, "#text", -1, sValue)
 Set SetChildElementByAttr = objNode
End Function