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 Then
		ChildCommentValue = ""
		Exit Function
	End If

	ChildCommentValue = objColl.Item(intNumber)

End Function