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

Description

Get comment text, combined from all child comment nodes.

Implementation

Private Function p_GetXMLElementComment(ByRef objXMLElement)
 Dim objColl, Iter
 Dim sResult
 Set objColl = objXMLElement.ChildNodes
 sResult = ""
 For Iter=0 To objColl.length-1
 If objColl.Item(Iter).NodeName = "#comment" Then
 sResult = sResult & objColl.Item(Iter).NodeValue
 End If
 Next
 p_GetXMLElementComment = sResult
End Function