VB.Net/XML LINQ/XNamespace

Материал из VB Эксперт
Перейти к: навигация, поиск

Import namespace

Imports System
Imports System.Xml.Linq
Imports <xmlns:gfh="www.yourDomain.ru">
    Public Class MainClass
        Public Shared Sub Main()
            Dim employees As XElement = XElement.Load("EmployeesWithNS.xml")
            Dim gfhEmployees = From ele In employees.Descendants _
                               Order By ele.<Name>.Value() _
                               Where (ele.Name.Namespace = GetXmlNamespace(gfh)) _
                               Select ele.<Name>.Value()
            For Each emp In gfhEmployees
        End Sub
    End Class

Using the Xml name space in the query

Imports System
Imports System.Reflection
Imports System.Xml
Module Module1
    Sub Main()
        Dim xml As XElement = XElement.Load("XLINQ.xml")
        Dim o As XNamespace = "urn:schemas-microsoft-com:office:office"
        Dim query = From w In xml.Descendants(o + "Author") _
            Select w
        For Each record In query
            Console.WriteLine("Author: {0}", record.Value)
    End Sub
End Module