XElement.Load("Order.xml", LoadOptions.SetBaseUri Or LoadOptions.SetLineInfo)
Imports System Imports System.Xml Imports System.Xml.XPath Public Class MainClass Public Shared Sub Main() Dim po As XElement = XElement.Load("Order.xml", LoadOptions.SetBaseUri Or LoadOptions.SetLineInfo) Dim splitUri() As String = po.BaseUri.Split("/") Console.WriteLine("BaseUri: {0}", splitUri(splitUri.Length - 1)) For Each e As XElement In po.DescendantsAndSelf() Console.WriteLine("{0}{1}{2}", _ ("".PadRight(e.Ancestors().Count() * 2) & e.Name.ToString()).PadRight(20), _ (DirectCast(e, IXmlLineInfo)).LineNumber.ToString().PadRight(5), _ (DirectCast(e, IXmlLineInfo)).LinePosition) Next End Sub End Class