VB.Net - XML处理

Stream) 保存XML文档到指定的流。 30 Save(String) 将XML文档保存到指定的文件。 31 Save(TextWriter) 将XML文档保存到指定的TextWriter。 32 Save(XmlWriter) 将XML文档保存到指定的XmlWriter。 示例3 在本示例中，让我们在xml文档authors.xml中插入一些新节点，然后在列表框中显示所有作者的名字。 执行以下步骤： 将authors.xml文件添加到应用程序的bin / Debug文件夹中（如果您已经尝试了最后一个示例，应该在那里） 导入System.Xml命名空间在表单中添加列表框和按钮控件，并将按钮控件的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 ListBox1.Items.Clear() Dim xd As XmlDocument = New XmlDocument() xd.Load("authors.xml") Dim newAuthor As XmlElement = xd.CreateElement("author") newAuthor.SetAttribute("code", "6") Dim fn As XmlElement = xd.CreateElement("fname") fn.InnerText = "Bikram" newAuthor.AppendChild(fn) Dim ln As XmlElement = xd.CreateElement("lname") ln.InnerText = "Seth" newAuthor.AppendChild(ln) xd.DocumentElement.AppendChild(newAuthor) Dim tr As XmlTextWriter = New XmlTextWriter("movies.xml", Nothing) tr.Formatting = Formatting.Indented xd.WriteContentTo(tr) tr.Close() Dim nl As XmlNodeList = xd.GetElementsByTagName("fname") For Each node As XmlNode In nl ListBox1.Items.Add(node.InnerText) Next node End SubEnd Class使用Microsoft Visual Studio工具栏上的“开始”按钮执行并运行上述代码。 单击“显示作者”按钮将显示所有作者的名字，包括我们在运行时添加的作者。