Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim xml As String = FileSys.ReadAllText(dlg.FileName,Encoding.UTF8)
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)
Output.Show(xo.ToString())
For Each bm As JToken In xo("Separations")("Separation")
''Output.show(bm("#text"))
If Typeof bm("Patches")("Patch") Is jobject
'' Output.Show(bm("Patches")("Patch")("#text"))
Else
For Each yg As JToken In bm("Patches")("Patch")
Output.Show(yg("#text"))
output.show( yg("Width ")("#text"))
Next
End If
Next
End If
蓝版 我想再获取下一级 Width 要怎么获取? 使用yg("Width ")("#text") 提示不存在对象 ,再套循环又不对,麻烦指导一下
加好友 
发短信
Post By：2022/3/10 22:18:00 [显示全部帖子]
