遍历 XML 文件所有节点的实例代码.docxVIP

遍历 XML 文件所有节点的实例代码这个示例演示如何载入一个 XML 文件，然后遍历该 XML 文件的所有节点，并用 Textbox 显示该 XML 文件每个节点第一个属性的值。准备一个 XML 文件准备一个 XML 文件，内容如下，将其存为 C:\menu.xml。?xml version=1.0 encoding=UTF-8?menu name =1menu name =1.1/menu name =1.2menu name =1.2.1/menu name =1.2.2/menu name =1.2.3menu name =1.2.3.1/menu name =1.2.3.2/menu name =1.2.3.3//menumenu name =1.2.4//menumenu name =1.3menu name =1.3.1/menu name =1.3.2//menumenu name =1.4/menu name =1.5//menu 创建项目 (Project) 和添加控件打开 Visual Studio 2005。在文件 (File) 菜单上，单击新建项目 (New Project)。在新建项目 (New Project) 对话框的模板 (Templates) 窗格中，单击 Windows 应用程序 (Windows Application)。在名称 (Name) 框中键入 IterateNodes，再单击确定 (OK)。在 Toolbox 里选中 Button 控件，将其拖到 Form1 上。在 Properties 窗口将该 Button 的 Name 属性改为 btnIterate，将其 Text 属性改为 Iterate Xml Nodes。在 Toolbox 里选中 TextBox 控件，将其拖到 Form1 上。在 Properties 窗口将该 TextBox 的 Name 属性改为 txtContent，将其 Multiline 属性改为 True。加入代码双击 Iterate Xml Nodes 的 Button，进入代码编辑窗口。添加代码，使其如下：Imports System.XmlPublic Class Form1?Private Sub btnIterate_Click(ByVal sender As System.Object, _ByVal e As System.EventArgs) Handles btnIterate.ClickDim xmlDoc As New Xml.XmlDocumentxmlDoc.Load(C:\menu.xml)IterateXmlNodes(xmlDoc.DocumentElement)End Sub?Private Sub IterateXmlNodes(ByVal father As Xml.XmlNode)Dim child As Xml.XmlNodeMe.txtContent.Text = father.Attributes(0).Value vbNewLineFor Each child In father.ChildNodesIterateXmlNodes(child)NextEnd Sub?End Class选择调试 (Debug) 菜单中的开始调试 (Start Debugging)，运行该程序。或者直接按快捷键 F5 运行。你会看到如下画面。提示用 XmlDocument.Load 这个方法，可以载入某个 XML 文件。用 XmlDocument.DocumentElement 这个属性，可以得到 XML 文件的根节点。用 XmlNode.ChildNodes 这个属性得到某个 XML 节点的所有子节点。每个子节点也是一个 XmlNode。用 XmlNode.Attributes(integer).Value 这个属性，可以得到 XML 节点的某一个属性值。Attributes 括号里的值表示是该节点的第几个属性，Attributes(0) 表示该节点的第一个属性，Attributes(1) 表示该节点的第二个属性，Attributes(3) 表示该节点的第三个属性，依次类推。用 For Each... Next 语句遍历所有 XML 节点。该实例用了递归算法进行遍历，在 IterateXmlNodes 过程里调用了 IterateXmlNodes 。