参考
Dim xmlDoc As New System.XML.XmlDocumentxmlDoc.Load("d:\dianping_list_122366383_117067139.xml")Dim ndList = xmlDoc.GetElementsByTagName("item")
For i As Integer = 0 To ndList.count - 1 For Each cn As object In ndlist(i).ChildNodes output.show(cn.name) NextNext
https://msdn.microsoft.com/zh-cn/library/system.xml.xmlelement_members%28v=vs.80%29.aspx