这几个例子我都参考过了
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
加好友 
发短信
Post By：2019/1/11 21:04:00 [显示全部帖子]
