Automation Beyond

To raise the bar in Testing and Test Automation for Software Quality Assurance. Above Requirements. Beyond Expectations. Methodologies and concepts. Framework Design. Programming and Scripting. Created by Albert Gareev.

QTP-XML service functions (1) – ChildElementByName

Posted by Albert Gareev on 2009/07/14

Description

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)

Else

Set ChildElementByName = Nothing

End If

End Function

 

 

 

 

One Response to “QTP-XML service functions (1) – ChildElementByName”

  1. [...] Returns reference of XML Element [...]

Leave a Reply

XHTML: You can use these tags: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <pre> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>