本文整理汇总了VB.NET中System.Xml.XmlSignificantWhitespace.NodeType属性的典型用法代码示例。如果您正苦于以下问题：VB.NET XmlSignificantWhitespace.NodeType属性的具体用法？VB.NET XmlSignificantWhitespace.NodeType怎么用？VB.NET XmlSignificantWhitespace.NodeType使用的例子？那么恭喜您, 这里精选的属性代码示例或许可以为您提供帮助。
在下文中一共展示了XmlSignificantWhitespace.NodeType属性的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Sample
Option Explicit
Option Strict
Imports System.IO
Imports System.Xml
Public Class Sample
Private currNode As XmlNode
Private filename As String = "space.xml"
Private reader As XmlTextReader = Nothing
Public Shared Sub Main()
Dim test As New Sample()
End Sub
Public Sub New()
Dim doc As New XmlDocument()
doc.LoadXml("<!-- Sample XML fragment -->" & _
"<author xml:space='preserve'>" & _
"<first-name>Eva</first-name>"& _
"<last-name>Corets</last-name>" & _
"</author>")
Console.WriteLine("InnerText before...")
Console.WriteLine(doc.DocumentElement.InnerText)
' Add white space.
currNode = doc.DocumentElement
Dim sigws As XmlSignificantWhitespace = doc.CreateSignificantWhitespace(ControlChars.Tab)
currNode.InsertAfter(sigws, currNode.FirstChild)
Console.WriteLine()
Console.WriteLine("InnerText after...")
Console.WriteLine(doc.DocumentElement.InnerText)
' Save and then display the file.
doc.Save(filename)
Console.WriteLine()
Console.WriteLine("Reading file...")
ReadFile(filename)
End Sub
' Parse the file and print out each node.
Public Sub ReadFile(filename As String)
Try
reader = New XmlTextReader(filename)
Dim sNodeType As String = Nothing
While reader.Read()
sNodeType = NodeTypeToString(reader.NodeType)
'Print the node type, name, value
Console.WriteLine("{0}<{1}> {2}", sNodeType, reader.Name, reader.Value)
End While
Finally
If (reader IsNot Nothing) Then
reader.Close()
End If
End Try
End Sub
Public Shared Function NodeTypeToString(nodetype As XmlNodeType) As String
Dim sNodeType As String = Nothing
Select Case nodetype
Case XmlNodeType.None
sNodeType = "None"
Case XmlNodeType.Element
sNodeType = "Element"
Case XmlNodeType.Attribute
sNodeType = "Attribute"
Case XmlNodeType.Text
sNodeType = "Text"
Case XmlNodeType.Comment
sNodeType = "Comment"
Case XmlNodeType.Document
sNodeType = "Document"
Case XmlNodeType.Whitespace
sNodeType = "Whitespace"
Case XmlNodeType.SignificantWhitespace
sNodeType = "SignificantWhitespace"
Case XmlNodeType.EndElement
sNodeType = "EndElement"
End Select
Return sNodeType
End Function 'NodeTypeToString
End Class