以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 多层xml解析问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130061) |
||||
-- 作者:rjh4078 -- 发布时间:2019/1/11 21:04:00 -- 多层xml解析问题
我想解析出其中的某个节点,发现返回的都是空值 比如 gGr:vsize>176.149</egGr:vsize>和 <egGr:hsize>290.068</egGr:hsize>
|
||||
-- 作者:有点蓝 -- 发布时间:2019/1/11 21:12:00 -- 参考http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=111428&skin=0 https://www.baidu.com/baidu?word=xmldocment
|
||||
-- 作者:rjh4078 -- 发布时间:2019/1/11 21:44:00 -- 这几个例子我都参考过了 Dim dlg As new OpenFileDialog If dlg.ShowDialog = DialogResult.OK Then \'\'Dim txt As String = FileSys.ReadAllText(dlg.FileName, Encoding.Default) \'Dim xmlDoc As New System.XML.XmlDocument \'xmlDoc.Load(dlg.FileName) \'Dim ndList = xmlDoc.GetElementsByTagName("egGr:vsize") \'For i As Integer = 0 To ndList.count - 1 \'\'msgbox(ndlist(i).Attributes("egGr:vsize").value) \'output.show(i) \'output.show(ndlist(i).value) \'Next \'\'output.show(xmlDoc.GetElementsByTagName("egGr:vsize")(0).value) Dim ret As String = FileSys.ReadAllText(dlg.FileName, encoding.default) Dim xo As XObject = XObject.Parse(ret) \'\'output.show(xo.ToString()) Dim jo As JObject = JObject.Parse(xo.Tostring) Dim ja As JArray = jo("rdf:Description") For i As Integer = 0 To ja.Count - 1 Output.Show(ja(i).ToString) Next \'Output.Show(jo("rdf:Description")) output.show(xo("egGr:vresolution")) End If |
||||
-- 作者:rjh4078 -- 发布时间:2019/1/11 21:45:00 -- 试过几种方法 都无法获取我想要的这个节点值 |
||||
-- 作者:有点蓝 -- 发布时间:2019/1/11 22:02:00 -- 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 |