Dim txt As String = FileSys.ReadAllText("D:\问题\test.xml", Encoding.Default)
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(txt)
Dim ndList = xmlDoc.GetElementsByTagName("egGr:vsize")
For i As Integer = 0 To ndList.count - 1
output.show(ndlist(i).InnerXml)
Next
Dim txt As String = FileSys.ReadAllText("D:\问题\test.xml", Encoding.Default)
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(txt)
Dim ndList = xmlDoc.GetElementsByTagName("rdf:Description")
For i As Integer = 0 To ndList.count - 1
For Each n As System.XML.XmlNode In ndlist(i).childNodes
output.show(n.Name & " = " & n.InnerText)
Next
Next
加好友 
发短信
Post By：2019/1/11 21:12:00 [显示全部帖子]
