QTP-XML service functions (1) – ChildElementByName

Posted by Albert Gareev on Jul 14, 2009 | Categories: Source codeXML Data

Parent page: Service Functions – XML (QTP, VBScript)


Returns XML child node (as XMLElement object reference) specified by an xml tag name. If there are multiple objects with the same tag, returns the first reference. If there are no objects with the tag specified returns “Nothing”.

Public Function ChildElementByName(ByRef objXMLParent, ByVal sTagName)
	Dim objColl

	If objXMLParent is Nothing Then
		Set ChildElementByName = Nothing
		Exit Function
	End If

	Set objColl = objXMLParent.ChildElementsByPath("./"&sTagName)
	If objColl.Count >0 Then
		Set ChildElementByName = objColl.Item(1)
		Set ChildElementByName = Nothing
	End If

End Function

Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported
This work by Albert Gareev is licensed under a Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported.