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

Description

Returns XML child attribute (as XMLAttribute object reference) 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 “Nothing” is returned.

Public Function ChildAttributeByName(ByRef objXMLParent, ByVal sAttrName)
	Dim objColl, objAttr
	If objXMLParent is Nothing Then
		Set ChildAttributeByName = Nothing
		Exit Function
	End If
	Set objColl = objXMLParent.Attributes()
	Set objAttr = objColl.ItemByName(sAttrName)
	Set ChildAttributeByName = objAttr
End Function

Related Posts
QTP-XML service functions (4) – ChildAttributeValueByName
ChildAttributeValueByName (QTP, TestComplete, VBScript)
Service Functions – XML (QTP, VBScript)
QTP-XML service functions (1) - ChildElementByName
p_GetXMLElementAttrText (QTP, TestComplete, VBScript)
QTP-XML service functions (2) – ChildElementValueByName