VB NET与XML之间的操作
利用VB操作XML数据
利用VB操作XML数据在VB中，有几种方法可以操作XML数据。
下面将介绍一些常用的方法：1. 创建XML文档：可以使用XMLTextWriter类或XDocument类来创建XML文档。
使用XMLTextWriter类：```vbDim writer As New XmlTextWriter("C:\path\to\file.xml", System.Text.Encoding.UTF8)writer.WriteStartDocument(True)writer.Formatting = Formatting.Indentedwriter.Indentation = 2writer.WriteStartElement("RootElement")writer.WriteEndElementwriter.WriteEndDocumentwriter.Close```使用XDocument类：```vbDim doc As XDocument = New XDocumentNew XDeclaration("1.0", "utf-8", "yes"),New XElement("RootElement")doc.Save("C:\path\to\file.xml")```2. 读取XML文档：可以使用XmlDocument类、XmlReader类或XDocument类来读取XML文档。
使用XmlDocument类：```vbDim doc As New XmlDocumentdoc.Load("C:\path\to\file.xml")Dim root As XmlNode = doc.SelectSingleNode("RootElement")```使用XmlReader类：```vbDim reader As XmlReader =XmlReader.Create("C:\path\to\file.xml")While reader.ReadIf reader.NodeType = XmlNodeType.Element AndAlso = "RootElement" Then'处理根元素End IfEnd Whilereader.Close```使用XDocument类：```vbDim doc As XDocument = XDocument.Load("C:\path\to\file.xml") Dim root As XElement = doc.Element("RootElement")```使用XmlDocument类：```vbDim doc As New XmlDocumentdoc.Load("C:\path\to\file.xml")Dim root As XmlNode = doc.SelectSingleNode("RootElement")Dim childElement As XmlElement =doc.CreateElement("ChildElement")Dim attribute As XmlAttribute =doc.CreateAttribute("AttributeName")attribute.Value = "AttributeValue"childElement.Attributes.Append(attribute)root.AppendChild(childElement)doc.Save("C:\path\to\file.xml")```使用XmlReader类：```vbDim reader As XmlReader =XmlReader.Create("C:\path\to\file.xml")While reader.ReadIf reader.NodeType = XmlNodeType.Element AndAlso = "RootElement" ThenDim childElement As XmlWriter =reader.CreateElement("ChildElement")writer.WriteAttributeString("AttributeName", "AttributeValue")writer.WriteEndElementEnd IfEnd Whilereader.Close```使用XDocument类：```vbDim doc As XDocument = XDocument.Load("C:\path\to\file.xml") doc.Root.Add(New XElement("ChildElement", NewXAttribute("AttributeName", "AttributeValue")))doc.Save("C:\path\to\file.xml")```以上是操作XML数据的一些基本方法，可以根据需求进行扩展。
vb.net xml 转义方法
程序员经常需要在其应用程序中处理XML数据。
在处理XML 数据时，转义是一个非常重要的问题。
XML转义是指将XML文件中的特殊字符转换为对应的实体引用，以便在XML文档中正常显示这些特殊字符。
本文将介绍如何在中进行XML转义，同时提供一些常见的转义方法和示例。
一、特殊字符的转义方法在XML中，以下五个字符被定义为特殊字符：、<、>、"和'。
这些特殊字符如果直接出现在XML文档中，将会被解释为XML标记，而不是文本数据。
需要将这些特殊字符转义为对应的实体引用，以便在XML文档中正常显示。
下面是五个特殊字符在XML中的实体引用：1. 转义为 amp;2. < 转义为 lt;3. > 转义为 gt;4. " 转义为 quot;5. ' 转义为 apos;二、在中进行XML转义在中进行XML转义非常简单。
可以使用System.Security.SecurityElement.Escape方法来对字符串进行XML 转义。
该方法可以将字符串中的特殊字符替换为对应的实体引用。
示例代码如下所示：```Dim originalString As String = "This is a lt;testgt; string with quot;specialquot; characters"Dim escapedString As String =System.Security.SecurityElement.Escape(originalString) Console.WriteLine(escapedString)```运行以上代码，会得到如下输出：```textThis is a amp;lt;testamp;gt; string withamp;quot;specialamp;quot; characters```从输出结果可以看出，原始字符串中的特殊字符已经被成功转义为对应的实体引用。
第10章 用VBNET访问XML文档
Dim Conn As SqlConnection Dim selectCMD As SqlCommand SqlConnection=New SqlConnection(connString) SqlCommand=New SqlCommand("SELECT BookISBN,BookName,Price,Qty FROM Book where Qty<5 and ProviderID='Jh2007'", Conn) Dim BookDA As SqlDataAdapter = New SqlDataAdapter BookDA.SelectCommand = selectCMD Conn.Open() Dim BookDS As DataSet = New DataSet BookDA.Fill(BookDS, "book") BookDS.WriteXml("books.xml")
常用的XmlDocument类的方法或属性
常用来更新DOM树内容的XmlElement类方法或属性
用来导航的XmlElement类的方法或属性
第三单元 数据集与XML文档
数据集实际上是以XML形式表示的一种数据关 系视图。 因此，数据集DataSet类有用于读写XML的方法，使用 DataSet 对象的 ReadXml 方法，可以用XML中的数据填 充 DataSet，使用 DataSet 对象的 WriteXml 方法，可以 DataSet中有数据写入XML文档中。
第10章 用访问XML文档
第一单元 XML文 档
可扩展标记语言(XML) 提供一组描述结构化数据的规范， XML文档就是遵守XML规范的文本格式文档，由多对标记 及标记内容构成，包含有以下项目：
VB.NET读写XML配置文件
读写XML配置⽂件XML配置⽂件代替INI()Imports System.DataPublic Class CLSReadXMLPrivate servername As String'服务器名Private Dbname As String'数据库名称Private Uid As String'数据库⽤户名Private pwd As String'数据库密码Private DSXml As New DataSetPrivate Xpath As String'Xml⽂件路径Sub New(ByVal str As String)Xpath = str'获得xml⽂件存储路径End Sub#Region "属性⽤于写⼊和得到xml⽂件内容的属性"Public Property Getserver()GetReturn servernameEnd GetSet(ByVal Value)servername = ValueEnd SetEnd PropertyPublic Property Getdbname()GetReturn DbnameEnd GetSet(ByVal Value)Dbname = ValueEnd SetEnd PropertyPublic Property Getpwd()GetReturn pwdEnd GetSet(ByVal Value)pwd = ValueEnd SetEnd PropertyPublic Property GetdUid()GetReturn UidEnd GetSet(ByVal Value)Uid = ValueEnd SetEnd Property#End Region#Region "⽅法读写xml⽂件的⽅法当xml⽂件不存在时⾃动创建⼀xml⽂件"'读取xml⽂件内容Public Function ReadXml() As BooleanTryDSXml.ReadXml(Xpath)servername = DSXml.Tables(0).Rows(0)("server")Dbname = DSXml.Tables(0).Rows(0).Item("Dbname")Uid = DSXml.Tables(0).Rows(0).Item("uid")pwd = DSXml.Tables(0).Rows(0).Item("pwd")Return TrueCatch ex As ExceptionThrow exReturn FalseEnd TryEnd Function'如果xml⽂件不存在的时候创建⼀xml⽂件Public Function WriteXml() As BooleanDim DT As New DataTableTryDSXml.Tables.Clear()DSXml.Clear()'给定table列框架DT.Columns.Add("server", GetType(String))Dt.Columns.Add("DBname", GetType(String))Dt.Columns.Add("uid", GetType(String))Dt.Columns.Add("pwd", GetType(String))Dim DR As DataRowDR = Dt.NewRowDR.Item("server") = servername DR.Item("DBname") = Dbname DR.Item("uid") = UidDR.Item("pwd") = pwdDt.Rows.Add(DR)DSXml.Tables.Add(Dt)DSXml.AcceptChanges()DSXml.WriteXml(Xpath)Return TrueCatch ex As ExceptionThrow exReturn FalseEnd TryEnd Function#End RegionEnd Class。
VB.NET读取写入XML文件
读取写入XML文件Public Class CSysXMLDim mXmlDoc As New System.Xml.XmlDocumentPublic XmlFile As StringPublic Sub New(ByVal File As String)MyClass.XmlFile = FileMyClass.mXmlDoc.Load(MyClass.XmlFile) '加载配置文件End Sub'功能：取得元素值'参数：node--节点 element--元素名'返回：元素值字符型' $--表示出错误Public Function GetElement(ByVal node As String, ByVal element As String) As StringOn Error GoTo ErrDim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)'读数据Dim xmlNode As System.Xml.XmlNode = mXmlNode.SelectSingleNode(element)Return xmlNode.InnerText.T oStringErr:Return "$"End Function''功能：保存元素值'参数：node--节点名称 element--元素名 val--值'返回：True--保存成功 False--保存失败Public Function SaveElement(ByVal node As String, ByValelement As String, ByVal val As String) As BooleanOn Error GoTo errDim mXmlNode As System.Xml.XmlNode = mXmlDoc.SelectSingleNode("//" + node)Dim xmlNodeNew As System.Xml.XmlNodexmlNodeNew = mXmlNode.SelectSingleNode(element)xmlNodeNew.InnerText = valmXmlDoc.Save(MyClass.XmlFile)Return Trueerr:Return FalseEnd FunctionEnd Class例如：XML：192.168.0.6程序调用：Public Class Form1Dim xml As New CSysXML("IP.xml")Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim str As String = xml.GetElement("IP", "num")TextBox1.Text = strEnd SubEnd Class。
VB和VB_NET中的XML操作
2． 数据交换和数据整合，这是XML最激动人心的应用。
3． 媒体无关的数据发布
4． 智能代理和本地计算
5． 精确搜索
6． 文件保值
XML的语法非常的简单，XML文档由节点组成，使用打开和关闭节点描述标记，在格式上与HTML标记非常相似，它们之间最大的不同是：XML中可以自由定义标记名。比如下面的标记就描述了一个主页地址：
概述：这篇文章为计划将他们的应用程序更新到Visual 的微软Visual Basic 开发用户提供一些关于XML的建议。主要包括Visual Basic 6和Visual 对XML操作的不同之处，以及Visual 关于这方面新增工具的应用。 概述：这篇文章为计划将他们的应用程序更新到Visual 的微软Visual Basic 开发用户提供一些关于XML的建议。主要包括Visual Basic 6和Visual 对XML操作的不同之处，以及Visual 关于这方面新增工具的应用。
扩展标记语言XML是一种简单的数据存储语言，使用一系列简单的标记描述数据，而这些标记可以用方便的方式建立。XML的简单使其易于在任何应用程序中读写数据，这使XML很快成为数据交换的唯一公共语言，可以说，“没有XML，就没有编程的未来”。
XML主要应用在以下几个方面：
1． 设计标记语言，如CML，MathML, WML等。
＜web＞＜/web＞
注意别大小写的，所以标记的大小写也必须相同。
节点标记中可以包含属性，比如：
＜web type=”Homepage”＞＜/web＞
以上只是对XML文档的简单描述，如何使用文档中包含的信息，XML标准体系中有其他的配套标准。
代码中Web节点包含属性Type，其值为Homepage.
VB.NET与XML的实例操作
与XML的实例操作再建⽴项⽬的⽂件夹的bin⽂件夹下 '创建两个⽂件 '⼀个是"myxml.xml" '⼀个是"myxml.mdb" '这⾥⾯有⼀个表"users"三个字段名"nameid","age","faverity" '再转到图形界⾯ '单击"⼯具箱"的"数据"把"OleDbConnection"," OleDbComman","DataSet","OleDbDataAdapter" '拉⼊窗体界⾯ '依次对这⼏个控件进⾏操作 '我的⽂件夹是D:\vbproject\WindowsApplication1 'D:\vbproject\WindowsApplication1/bin/myxml.xml 'D:\vbproject\WindowsApplication1/bin/myxml.mdb //======================准备结束============== (1)⾸先在机⼦上要有.Net FrameWork 打开依次展开:⽂件-新建-项⽬; 再选择VISUAL-BASIC-项⽬-Windows应⽤程序 这就是所需要⼀个⼩界⾯ 现在⼀步步的来写代码，完成它的功能 ⾸先来完成添加功能: 我们⽬标是：通过这三个⽂本框(姓名，年龄，爱好)来添加到数据库中。
然后再把这个数据库的表保存成XML格式 双击"添加"按钮 在⾥⾯写下以下这些代:(VB写的语⾔，不是C#) If TextBox1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then '在三个⽂本框都不为空时，执⾏以下操作, '否则出错 Dim strsel As String strsel = "select * from users where nameid='" & TextBox1.Text & "'" '建⽴⼀个查询字符串，看要要添加的姓名，是否已在数据中存在，如果不存在就可以添加 OleDbCommand1 = New OleDbCommand mandText = strsel Me.OleDbCommand1.Connection = OleDbConnection1 OleDbConnection1.Open() Try '进⾏异常处理 Dim reader As OleDbDataReader = OleDbCommand1.ExecuteReader() If reader.Read() Then '通过DataReader来读取，如果读得到，表明数据在有这个姓名存在，不添加; ListBox1.Items.Add("已经有该记录!") Else reader.Close() '要对数据库进⾏操作，⾸先把DataReader关掉; Dim insert As String insert = "insert into users(nameid,age,faverity) values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')" '建⽴⼀个插⼊字符串 OleDbCommand1 = New OleDbCommand mandText = insert Me.OleDbCommand1.Connection = Me.OleDbConnection1 Me.OleDbCommand1.ExecuteNonQuery() ListBox1.Items.Add("添加成功!!") '以下是把数据库的数据保存为XML格式 DataSet1 = New DataSet OleDbDataAdapter1 = New OleDbDataAdapter("select * from users", OleDbConnection1) OleDbDataAdapter1.Fill(DataSet1, "users") DataSet1.WriteXml("myxml.xml") End If Catch ex As Exception ListBox1.Items.Add("Errors!") End Try OleDbConnection1.Close() Else MessageBox.Show("请输⼊完整!!") End If //==================接下来是对数据库进⾏查询=================== '双击"查找"按钮 '写⼊以下代码 If TextBox4.Text <> "" Then '还是和上⾯⼀样如果⽂本框为空，就不执⾏，如果不为空，就执⾏下⾯的操作 ListBox1.Items.Clear() '⾸先把listBox清空 Dim searchtext As String searchtext = TextBox4.Text OleDbConnection1.Open() Dim selstring As String selstring = "select * from users where nameid like '%" & searchtext & "%'" ' 建⽴查询字符串，可以⽀持模糊查询 OleDbCommand1 = New OleDbCommand mandText = selstring Me.OleDbCommand1.Connection = OleDbConnection1 '以下⼏句是显⽰匹配的条数 DataSet1 = New DataSet OleDbDataAdapter1 = New OleDbDataAdapter(selstring, OleDbConnection1) OleDbDataAdapter1.Fill(DataSet1, "users") ListBox1.Items.Add("共有" & DataSet1.Tables("users").Rows.Count & "条匹配的记录") ListBox1.Items.Add("-------------------------------------------------------------") Try '进⾏异常处理 Dim cmdreader As OleDbDataReader = OleDbCommand1.ExecuteReader() While cmdreader.Read '注意这⾥要⽤while '不然就⽆法进⾏循环，就只能进⾏⼀次查询 ListBox1.Items.Add(cmdreader("nameid").ToString()) ListBox1.Items.Add(cmdreader("age").ToString()) ListBox1.Items.Add(cmdreader("faverity").ToString()) ListBox1.Items.Add("----------------------------------") End While cmdreader.Close() OleDbConnection1.Close() Catch ex As Exception ListBox1.Items.Add("Errors") End Try Else End If //================再把来ＸＭＬ⽂档，以ＸＭＬ形式显⽰在ListBox⾥⾯ 双击"ＸＭＬ⽂档" 写进下⾯这些代码: ListBox1.Items.Clear() ' 清空listBox Dim xtr As XmlTextReader = New XmlTextReader("myxml.xml") '创建成⼀个XmlTextReader读取"myxml.xml"⽂档 While xtr.Read Select Case (xtr.NodeType) ' 咱们⽤select case 形式来选择xml节点类型 Case XmlNodeType.XmlDeclaration '先从ListBox⾥写进xml声明=====xmldeclaration ListBox1.Items.Add("<?xml version='1.0' encoding='gb2312'?>") '再依次显⽰节点的名称，值 '包括根节点 Case XmlNodeType.Element ListBox1.Items.Add("<" & & ">") Case XmlNodeType.Text ListBox1.Items.Add(xtr.Value) Case XmlNodeType.EndElement ListBox1.Items.Add("</" & & ">") End Select End While xtr.Close() '关闭xmlTextReader //========再把数据库中所有数据显⽰在ListBox中======== '双击"查看全部"按钮 '写⼊下⾯的⼀些代码: ListBox1.Items.Clear() '这些代码⼤家应该可以看得懂了 OleDbConnection1.Open() Dim selall As String selall = "select * from users" OleDbCommand1 = New OleDbCommand mandText = selall Me.OleDbCommand1.Connection = OleDbConnection1 Try Dim creader As OleDbDataReader = OleDbCommand1.ExecuteReader() While creader.Read ListBox1.Items.Add("name: " & creader("nameid").ToString() & "; age :" & creader("age").ToString() & "; faverity :" & creader("faverity").ToString()) End While creader.Close() Catch ex As Exception ListBox1.Items.Add("Errors") End Try OleDbConnection1.Close() //==========================再来进完成删除按钮================= '双击"删除"按钮 '写⼊以下的代码 If TextBox4.Text <> "" Then '如果不为空，进⾏以下操作 ListBox1.Items.Clear() '先清空ListBox OleDbConnection1.Open() ' 建⽴连接 Dim delstring As String delstring = TextBox4.Text Dim delsel As String delsel = "select * from users where nameid='" & delstring & "'" '创建查询字符串 OleDbCommand1 = New OleDbCommand mandText = delsel Me.OleDbCommand1.Connection = OleDbConnection1 Try Dim selreader As OleDbDataReader = OleDbCommand1.ExecuteReader() If Not selreader.Read Then '假如读不到，就表明数据库⽆此数据，⽆法进⾏删除操作 MessageBox.Show("数据库中⽆该记录!") Else selreader.Close() '要对数据进⾏操作，必须⾸把DataReader关掉 Dim delrecord As String delrecord = "delete * from users where nameid='" & delstring & "'" '建⽴删除字符串sql语句，以上都是 OleDbCommand1 = New OleDbCommand mandText = delrecord Me.OleDbCommand1.Connection = OleDbConnection1 Me.OleDbCommand1.ExecuteNonQuery() MessageBox.Show("删除成功!!") '再把进⾏删除操作的数据库，再次把数据库中数据保存成ＸＭＬ⽂档 DataSet1 = New DataSet OleDbDataAdapter1 = New OleDbDataAdapter("select * from users", OleDbConnection1) OleDbDataAdapter1.Fill(DataSet1, "users") DataSet1.WriteXml("myxml.xml") End If Catch ex As Exception MessageBox.Show(ex.Message) Finally OleDbConnection1.Close() End Try Else MessageBox.Show("请输⼊你想删除的记录!") End If //======================= 重设按钮===== TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" ListBox1.Items.Clear() //============================关闭=============== me.Close() '好了这个⼩软件完成了，有问题的话留⾔ '本程序在.net framework 2003创建 '已经进⾏过测试，完全可以运⾏。
vb读取xml文件方法
vb读取xml文件方法标题：VB 读取 XML 文件方法嘿，朋友！今天我要跟你唠唠怎么用 VB 读取 XML 文件，这可是个超有用的技能，学会了你就牛啦！首先呢，你得准备好 VB 这个工具，就像战士上战场得有把好枪一样。
第一步，打开你的 VB 编辑器，这就好比打开了一扇通往神奇世界的大门。
然后新建一个项目，给它起个响亮的名字，比如“XML 读取大冒险”。
接下来，在代码窗口中，你得引用一些必要的库。
这就好像给你的程序穿上一套超级装备，让它能在读取 XML 文件的战场上勇往直前。
引用的代码就像这样：```vbImports System.Xml```这一步可别忘了，不然你的程序可能会像没头的苍蝇一样乱撞。
然后呢，咱们得找到要读取的 XML 文件。
就好比你要去一个宝藏之地，得先知道它在哪儿。
假设你的 XML 文件叫“data.xml”，放在了“D:\myfiles”这个文件夹里。
再然后，就是真正读取文件的时刻啦！这一步就像是打开宝箱的关键钥匙。
代码大概像下面这样：```vbDim xmlDoc As New XmlDocumentxmlDoc.Load("D:\myfiles\data.xml")```这时候，VB 就把 XML 文件的内容都装进了“xmlDoc”这个大口袋里。
读取完了文件，接下来就得从这个大口袋里掏出咱们想要的宝贝啦！比如说，你想要获取 XML 文件中的某个节点的值。
这就好比在一个装满各种东西的大箱子里找你心心念念的那个小玩具。
假设你要找的节点叫“<user>”，那获取节点值的代码可以是这样：```vbDim node As XmlNode = xmlDoc.SelectSingleNode("//user")Dim value As String = node.InnerText```看，是不是像变魔术一样，就把节点的值给弄到手啦！我跟你说，我刚开始学这的时候，可闹了不少笑话。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Imports System.Xml'声明XMLPublic Class Form1Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.ClickDim dataset As New DataSet'声明一个datasetdataset.ReadXml("f:¥aaa.xml")'读xml文件，并把xml文件放入到datset的第一个表中Dim table As DataTable=dataset.Tables(0)'读出该表Dim view As DataView=New DataView(table)'自定义视图DataGridView1.DataSource=view'绑定数据源End SubPublic Sub appear()'同上Dim dataset As New DataSetdataset.ReadXml("f:¥aaa.xml")Dim table As DataTable=dataset.Tables(0)Dim view As DataView=New DataView(table)DataGridView2.DataSource=viewEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button2.ClickDim xmlDou As XmlDocument=New XmlDocument()'声明一个xml文档对象xmlDou.Load("f:¥aaa.xml")'将特定的xml文档写入xmldoucumentDim xmlnode As XmlNode=xmlDou.SelectSingleNode("bookstore")'声明一个根标记，bookstore为根标记Dim xml1As XmlElement=xmlDou.CreateElement("book")'声明一个xml 的节点xml1.SetAttribute("genre","李簪红")'节点的属性xml1.SetAttribute("ISBN","2-3621-4")'同上Dim xml1_title As XmlElement=xmlDou.CreateElement("title")'声明一个xml的节点xml1_title.InnerText="C#程序设计入门与技巧"'定义节点的文档xml1.AppendChild(xml1_title)'向总节点尾部添加节点Dim xml1_author As XmlElement=xmlDou.CreateElement("author")'同上xml1_author.InnerText="张永斌"xml1.AppendChild(xml1_author)Dim xml1_price As XmlElement=xmlDou.CreateElement("price")xml1_price.InnerText="56.7"xml1.AppendChild(xml1_price)xmlnode.AppendChild(xml1)Dim xml2As XmlElement=xmlDou.CreateElement("book")xml2.SetAttribute("genre","乐于")xml2.SetAttribute("ISBN","3-3423-5")Dim xml2_title As XmlElement=xmlDou.CreateElement("title")xml2_title.InnerText="JAVA"xml2.AppendChild(xml2_title)Dim xml2_author As XmlElement=xmlDou.CreateElement("author")xml2_author.InnerText="防御忧郁"xml2.AppendChild(xml2_author)Dim xml2_price As XmlElement=xmlDou.CreateElement("price")xml2_price.InnerText="44.4"xml2.AppendChild(xml2_price)xmlnode.AppendChild(xml2)xmlDou.Save("f:¥aaa.xml")appear()End SubPrivate Sub Button3_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button3.ClickDim xmlDoc As XmlDocument=New XmlDocument'同上xmlDoc.Load("f:¥aaa.xml")'同上Dim nodelist As XmlNodeList=xmlDoc.SelectSingleNode("bookstore").ChildNodes()'定义了一个xmlnodelist用于放根节点为bookstore的所有字标记For Each node As XmlNode In nodelist'遍历整个xmlnodelistDim elem As XmlElement=node'将节点转换为element元素Dim elem_children As XmlNodeList=elem.ChildNodes()'定义了一个elem_children用于放根节点为bookstore的所有字标记If elem.GetAttribute("genre")="李簪红"Then'获得第一子节点的属性elem.SetAttribute("genre","updata李簪红")'更新第一节点的属性End IfFor Each elem_node As XmlNode In elem_children'遍历第二子节点Dim elem_node_toelem As XmlElement=elem_node'将节点转换为element元素If elem_node_="author"Then'如果第二子节点的名称为authorIf elem_node_toelem.InnerText="防御忧郁"Then'如果这个节点的值为防御忧郁则elem_node_toelem.InnerText="O(∩_∩)O哈哈~"'更改他的值End IfEnd IfNextNextxmlDoc.Save("f:¥aaa.xml")'保存xml文件appear()End SubPrivate Sub Button4_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button4.ClickDim xmlDuc As XmlDocument=New XmlDocument()xmlDuc.Load("f:¥aaa.xml")Dim xml_geng As XmlElement=xmlDuc.SelectSingleNode("bookstore") Dim xmlnodelist As XmlNodeList=xml_geng.ChildNodes()For Each xmlnode As XmlNode In xmlnodelistDim xmlnodetoelem As XmlElement=xmlnodeIf xmlnodetoelem.GetAttribute("genre")="乐于"Thenxmlnodetoelem.RemoveAttribute("genre")End IfNextFor Each xmlnode As XmlNode In xmlnodelistDim xmlnodetoelem As XmlElement=xmlnodeIf xmlnodetoelem.GetAttribute("genre")="fantasy"Thenxmlnodetoelem.RemoveAll()End IfNextxmlDuc.Save("f:¥aaa.xml")'保存xml文件appear()End SubEnd Class。