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 (4) – ChildAttributeValueByName

Posted by Albert Gareev on 2009/07/17

Description

Returns scalar value of the XML child attribute specified by a name. Attribute name duplication within the same node is not allowed by XML rules. If there is no attribute with the name specified then “” (empty string) is returned.

Public Function ChildAttributeValueByName(ByRef objXMLParent, ByVal sAttrName)
Dim objColl, objAttr
If objXMLParent is Nothing Then
ChildAttributeValueByName = “”

Exit Function

End If

Set objColl = objXMLParent.Attributes()

Set objAttr = objColl.ItemByName(sAttrName)

If objAttr is Nothing Then

ChildAttributeValueByName = “”

Else

ChildAttributeValueByName = objAttr.Value()

End If

 

End Function

 

 

 

 

One Response to “QTP-XML service functions (4) – ChildAttributeValueByName”

  1. [...] Returns text value of XML Attribute [...]

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>