vb.net xml atom提要获取属性

Imports System.Xml

Module Module1
    Sub Main()
        ' 加载XML文档
        Dim xmlDoc As New XmlDocument()
        xmlDoc.Load("path/to/your/xml/file.xml")

        ' 使用XPath表达式选择Atom提要节点
        Dim atomNode As XmlNode = xmlDoc.SelectSingleNode("//atom:entry", GetNamespaceManager(xmlDoc))

        ' 获取属性值
        Dim title As String = atomNode.Attributes("title").Value
        Dim author As String = atomNode.Attributes("author").Value

        ' 打印属性值
        Console.WriteLine("Title: " & title)
        Console.WriteLine("Author: " & author)

        Console.ReadLine()
    End Sub

    ' 获取命名空间管理器
    Private Function GetNamespaceManager(xmlDoc As XmlDocument) As XmlNamespaceManager
        Dim nsMgr As New XmlNamespaceManager(xmlDoc.NameTable)
        nsMgr.AddNamespace("atom", "http://www.w3.org/2005/Atom")
        Return nsMgr
    End Function
End Module