Получить все атрибуты из элемента xml

Question

У меня есть функция, которая возвращает мне различные атрибуты элемента.
В этом случае мне нужно принять все атрибуты из данного элемента
мне удается прочитать правильный элемент и использовать следующий код:

If XMLReader.HasAttributes Then 
For Each Attribute As XmlAttribute In XmlNodeType.Attribute 
    retVal = Attribute.Name + "+" + Attribute.Value 
Next 
End If 

Что очевидно не является правильным, потому что он бросает меня перед тем, как я начну использовать его
Expression is of type 'System.Xml.XmlNodeType', which is not a collection type
Есть ли кто-нибудь, кто мне показал правильный путь?

Answer 1

Как насчет XMLDocument у него есть свойство Attributes, которое представляет собой коллекцию.

Dim xmldoc As New XmlDocument 
xmldoc.Load("path to file") 
Dim concatValue As String = "" 
For Each atr As XmlAttribute In xmldoc.DocumentElement.Attributes 
    concatValue &= atr.Name & "+" & atr.Value 
Next