An engineering approach to Software Testing and Test Automation

Parent page: Service Functions – XML (QTP, VBScript) Description Retrieves child comment node from comments collection and returns comment text as string. Public Function ChildCommentValue(ByRef objXMLParent, ByVal intNumber) Dim objColl, objComment If objXMLParent is Nothing Then ChildCommentValue = "" Exit Function End If Set objColl = objXMLParent.Comments() If intNumber > objColl.Count ...