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


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

主题:【已解决】[求助]这个怎么解析?

帅哥哟,离线,有人找我吗?
zto001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望: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


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

无法使用XObject。

论坛搜“xml

 回到顶部
帅哥哟,离线,有人找我吗?
zto001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望: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


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望: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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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


加好友 发短信
等级:六尾狐 帖子:1490 积分:10607 威望: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

 回到顶部