189 8069 5689
先读取节点Match,然后读取节点内的各个属性值。 再进行节点中的子节点SetSetName的读取，读取方式也是直接读取各个属性值。
站在用户的角度思考问题，与客户深入沟通，找到大渡口网站设计与大渡口网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都做网站、网站制作、企业官网、英文网站、手机端网站、网站推广、申请域名、虚拟主机、企业邮箱。业务覆盖大渡口地区。
Dim xmlDoc As New System.Xml.XmlDocument
xmlDoc.Load("c:\xml.xml") '载入xml文件
Dim Items As Xml.XmlNodeList = xmlDoc.DocumentElement.SelectNodes("//record/item") '参数为xpath查询串，前面斜杠，//:表示任何结点，/：表示根结点
For Each s As Xml.XmlNode In Items
Console.WriteLine(s.Attributes.GetNamedItem("id").Value vbTab s.InnerText)
Next
Imports System.Xml
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Using reader As XmlReader = XmlReader.Create("D:\book3.xml")
'reader.Read()
'reader.ReadStartElement("B001")
' reader.ReadStartElement("TYPE")
' Console.Write("The content of the title element: ")
' Console.WriteLine(reader.ReadString())
' reader.ReadEndElement()
' reader.ReadStartElement("MSGa") '试验时用了MSG这3个字符出错了可能跟命令冲突所以我加了个a
' Console.Write("The content of the title element: ")
' Console.WriteLine(reader.ReadString())
' reader.ReadEndElement()
' reader.ReadEndElement()
While reader.Read()
If reader.IsStartElement() Then
If reader.IsEmptyElement Then
Console.WriteLine("{0}/", reader.Name "jj")
Else
Console.Write("{0} ", reader.Name "kk")
reader.Read() ' Read the start tag.
If reader.IsStartElement() Then ' Handle nested elements.
Console.Write(vbCr + vbLf + "{0}", reader.Name "ll")
End If
Console.WriteLine(reader.ReadString()) 'Read the text content of the element.
reader.ReadEndElement()
End If
'
End If
End While
End Using
End Sub
End Class
这两种方法都行 还有些原因可能我系统出错了 有时运行会错 有时又不会错 你慢慢研究吧亲
希望能帮到你不行追加问题帮你解决