有些Patch节点不是数组
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)
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"))
Next
End If
Next
End If
加好友 
发短信
Post By：2022/3/10 22:45:00 [显示全部帖子]
