Foxtable(狐表) → 用户栏目 → 专家坐堂 → 【已解决】[求助]这个怎么解析？


  共有2411人关注过本帖树形打印复制链接

主题：【已解决】[求助]这个怎么解析？
帅哥哟，离线，有人找我吗？
zto001
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1465 积分：10397 威望：0 精华：0 注册：2018/10/16 11:42:00 		【已解决】[求助]这个怎么解析？  发帖心情 Post By：2019/4/6 12:09:00 [只看该作者]

求助：

这个怎么解析？
<?xml version="1.0" encoding="utf-8"?>
<AlermInfo dt="20190406115308" hourType="24"><RoadIcing/><SnowStorm/><RainStorm><Station stati areaId="1011310" stati lon="81.303" lat="43.910" signalType="暴雨" signalLevel="蓝色" issueTime="20190405184000" relieveTime="20190407050000" issueC/>

..........


Dim hc As New HttpClient("http://www.weather.com.cn/data/alarm_xml/alarminfo.xml")
Dim xo As XObject = XObject.Parse(hc.GetData)
msgbox(xo("stationName"))
这样写获取不出来
stati 
怎么写才能获取？


[此贴子已经被作者于2019/4/7 10:08:42编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/6 13:55:00 [只看该作者]

无法使用XObject。

论坛搜“xml”
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1465 积分：10397 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/4/6 17:00:00 [只看该作者]

Dim hc As New HttpClient("http://www.weather.com.cn/data/alarm_xml/alarminfo.xml")
Dim txt As String = hc.GetData
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(txt)
Dim ndList  = xmlDoc.GetElementsByTagName("AlermInfo")
    output.show("1")   ’没问题
For Each nd As object In ndlist
    output.show("2")   ’没问题
    output.show(nd("PANELQUANTITY").Innertext)   ’到这里就不会写了。我那里面没有元素块，AlermInfo可能是唯一的一块了
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1465 积分：10397 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/4/6 17:04:00 [只看该作者]

<?xml version="1.0" encoding="utf-8"?>
<AlermInfo dt="20190406115308" hourType="24"><RoadIcing/><SnowStorm/><RainStorm><Station stati areaId="1011310" statibackground-color: rgb(255, 0, 0);">伊犁哈萨克自治州" lon="81.303" lat="43.910" signalType="暴雨" signalLevel="蓝色" issueTime="20190405184000" relieveTime="20190407050000" issueCbackground-color: rgb(255, 0, 0);">伊犁州气象台2019年4月5日18时40分发布暴雨蓝色预警信号：预计今日夜间至明日夜间，霍城县与伊宁县的北部山区、尼勒克县东部地区、新源县大部地区及巩留县南部山区将出现24小时内达24.1毫米以上的暴雨。暴雨可能引发局地洪水和泥石流、滑坡等地质灾害，注意防范。（预警信息来源：国家预警信息发布中心）"/>
<Station stati areaId="10113" stati lon="" lat="" signalType="暴雨" signalLevel="蓝色" issueTime="20190405180000" relieveTime="20190406180000" issueC/></RainStorm><Hail/><Gale>

红色背景区怎么获取？
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/6 17:37:00 [只看该作者]

Dim ndList  = xmlDoc.GetElementsByTagName("AlermInfo")
For Each  nd As object In ndlist
    output.show( nd.Attributes("dt").value)
Next
 回到顶部
帅哥哟，离线，有人找我吗？
zto001
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1465 积分：10397 威望：0 精华：0 注册：2018/10/16 11:42:00 		  发帖心情 Post By：2019/4/7 10:08:00 [只看该作者]

Dim hc As New HttpClient("http://www.weather.com.cn/data/alarm_xml/alarminfo.xml")
Dim txt As String = hc.GetData
Dim xmlDoc As New System.XML.XmlDocument
xmlDoc.Loadxml(txt)
Dim ndList  = xmlDoc.GetElementsByTagName("Station")
For Each  nd As object In ndlist
    output.show( nd.Attributes("stationName").value)  'stationName
    output.show( nd.Attributes("signalType").value)   'signalType
    output.show( nd.Attributes("signalLevel").value)  'signalLevel
    output.show( nd.Attributes("issueTime").value)  'issueTime
    output.show( nd.Attributes("relieveTime").value)  'relieveTime
    output.show( nd.Attributes("issueContent").value)  'issueContent
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询