- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 读XML的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168832)
-- 发布时间：2021/5/24 8:30:00
-- 读XML的问题
通过JArray来读取下面这个结构的xml.
其中这个fee_amount下面，有的XML下面有金额的 "#text"（标），有时又没有
。
。所以偶尔会报错，咋解决啊。
"fee_info": {
"fee": [
{
"@seq": "1",
"fee_name": {
"@name": "费用种类",
"#text": "登记费"
},
"fee_amount": {
"@name": "金额"
}
},
{
"@seq": "2",
"fee_name": {
"@name": "费用种类",
"#text": "年费"
},
"fee_amount": {
"@name": "金额",
"#text": "600.0"
}
-- 发布时间：2021/5/24 9:32:00
--
判断是否包含某个节点
Dim xml As String = "<xml><to>George</to><from>John</from><content>Don\'t forget the meeting!</content></xml>"
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(xml)
if xo("to") isnot nothing then
Output.Show(xo("to"))
Output.Show(xo("to"))
end if
if xo("to2") isnot nothing then
Output.Show(xo("to2"))
Output.Show(xo("to2"))
end if