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

 

 

 

 

This entry was posted on 2009/07/17 at 08:18 and is filed under Automation, Code Examples. Tagged: , , , , , , , , , . You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

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

  1. Service Functions – XML (QTP, VBScript) « Automation Beyond said

    2009/10/02 at 13:56

    [...] 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>

«
»