XDocument.Load (TextReader, LoadOptions)
Imports System Imports System.IO Imports System.Xml Imports System.Xml.XPath Public Class MainClass Public Shared Sub Main() Dim sr As TextReader Dim whiteSpaceNodes As Integer sr = New StringReader("<Root> <Child> </Child> </Root>") Dim xmlTree1 As XDocument = XDocument.Load(sr, LoadOptions.None) sr.Close() whiteSpaceNodes = xmlTree1 _ .Element("Root") _ .DescendantNodesAndSelf() _ .OfType(Of XText)() _ .Where(Function(ByVal tNode As XNode) tNode. _ ToString().Trim().Length = 0).Count() Console.WriteLine("Count of white space nodes (not preserving whitespace): {0}", whiteSpaceNodes) End Sub End Class