VB.Net - XML处理

ute(0)) End If Loop End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click ListBox2().Items.Clear() Dim xr As XmlReader = XmlReader.Create("movies.xml") Do While xr.Read() If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "type" Then ListBox2.Items.Add(xr.ReadElementString) Else xr.Read() End If Loop End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click ListBox3().Items.Clear() Dim xr As XmlReader = XmlReader.Create("movies.xml") Do While xr.Read() If xr.NodeType = XmlNodeType.Element AndAlso xr.Name = "description" Then ListBox3.Items.Add(xr.ReadElementString) Else xr.Read() End If Loop End SubEnd Class使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码。 单击按钮将显示文件中电影的标题，类型和描述。 XmlWriter类用于将XML数据写入流，文件或TextWriter对象。 它也以只向前，非缓存的方式工作。 示例2 让我们通过在运行时添加一些数据来创建一个XML文件。 执行以下步骤： 在窗体中添加WebBrowser控件和按钮控件。 将按钮的Text属性更改为显示作者文件。 在代码编辑器中添加以下代码。 Imports System.XmlPublic Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Set the caption bar text of the form. Me.Text = "tutorialspoint.com" End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim xws As XmlWriterSettings = New XmlWriterSettings() xws.Indent = True xws.NewLineOnAttributes = True Dim xw As XmlWriter = XmlWriter.Create("authors.xml", xws) xw.WriteStartDocument() xw.WriteStartElement("Authors") xw.WriteStartElement("author") xw.WriteAttributeString("code", "1") xw.WriteElementString("fname", "Zara") xw.WriteElementString("lname", "Ali") xw.WriteEndElement() xw.WriteStartElement("author") xw.WriteAttributeString("code", "2") xw.WriteElementString("fname", "Priya") xw.WriteElementString("lname", "Sharma") xw.WriteEndElement() xw.WriteStartElement("author") xw.WriteAttributeString("code", "3") xw.WriteElementString("fname", "Anshuman") xw.WriteElementString("lname", "Mohan") xw.WriteEndElement() xw.WriteStartElement("author") xw.WriteAttributeString("code", "4") xw.WriteElementString("fname", "Bibhuti") xw.WriteElementString("lname", "Banerjee") xw.WriteEndElement() xw.WriteStartElement("author") xw.WriteAttributeString("code", "5") xw.WriteElementString("fname", "Riyan") xw.WriteElementString("lname", "Sengupta") xw.WriteEndElement() xw.WriteEndElement() xw.WriteEndDocument() xw.Flush() xw.Close() WebBrowser1.Url = New Uri(AppDomain.CurrentDomain.BaseDirectory + "authors.xml") End SubEnd Class使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码。 单击显示作者文件将在Web浏览器上显示新创建的authors.xml文件。 使用DOM API解析XML 根据文档对象模型（DOM），XML文档由节点和节点的属性组成。 XmlDocument类用于实现.Net框架的XML DOM解析器。 它还允许您通过插入，删除或更新文档中的数据来修改现有的XML文档。 以下是XmlDocument类的一些常用方法： SN方法名称和说明1 AppendChild 将指定的节点添加到此节点的子节点列表的末尾。 2 CreateAttribute（String） 使用指定的名称创建XmlAttribute。 3 CreateComment 创建包含指定数据的XmlComment。 4 CreateDefaultAttribute 创建具有指定前缀，本地名称和命名空间URI的默认属性。 5 CreateElement（String） 创建具有指定名称的元素。 6 CreateNode(String, String, String) 创建具有指定节点类型，Name和NamespaceURI的XmlNode。 7 CreateNode(XmlNodeType, String, String) 创建具有指定的XmlNodeType，Name和NamespaceURI的XmlNode。 8 CreateNode(XmlNodeType, String, String, String) 创建具有指定的XmlNodeType，Prefix，Name和NamespaceURI的XmlNode。 9 CreateProcessingInstruction 创建具有指定名称和数据的XmlProcessingInstruction。 10 CreateSignificantWhitespace 创建一个XmlSignificantWhitespace节点。 11createTextNode 创建具有指定文本的XMLTEXT。 12 CreateWhitespace 创建一个XmlWhitespace节点。 13 CreateXmlDeclaration 创建一个具有指定值的XmlDeclaration节点。 14GetElementById 获取具有指定ID的XmlElement。 15GetElementsByTagName(String) 返回一个包含与指定名称匹配的所有后代元素的列表的XmlNodeList。 16 GetElementsByTagName(String, String) 返回一个包含与指定名称匹配的所有后代元素的列表的XmlNodeList。 17 InsertAfter 在指定的引用节点之后立即插入指定的节点。 18 InsertBefore 在指定的引用节点之前插入指定的节点。 19 Load(Stream) 从指定的流装载XML文档。 20 Load(String) 从指定的TextReader加载XML文档。 21 Load(TextReader) 从指定的TextReader加载XML文档。 22 Load(XmlReader) 从指定的XmlReader加载XML文档。 23 LoadXml 从指定的字符串加载XML文档。 24 PrependChild 将指定的节点添加到此节点的子节点列表的开头。 25 ReadNode 基于XmlReader中的信息创建XmlNode对象。读取器必须位于节点或属性上。 26 RemoveAll 删除当前节点的所有子节点和/或属性。 27 RemoveChild 删除指定的子节点。 28 ReplaceChild 将子节点oldChild替换为newChild节点。 29 Save(