I'm trying to parse this XML (comes from URL). I used an example since I've never done this before, I cant find what is causing the problem. Much appreciate your help, thanks!
Error I'm getting
VB.Net script exception(0), re-starting: Object reference not set to an instance of an object.
XML from URL...
I need to pull out these items...
fanspd
cfm:
attic:
Error I'm getting
VB.Net script exception(0), re-starting: Object reference not set to an instance of an object.
XML from URL...
Code:
fanspd<fanspd>0</fanspd> doorinprocess<doorinprocess>0</doorinprocess> timeremaining<timeremaining>0</timeremaining> macaddr<macaddr>60:CB:FB:99:99:0A</macaddr> ipaddr<ipaddr>192.168.0.20</ipaddr> model<model>2.5eWHF</model> softver: <softver>2.14.1</softver> interlock1:<interlock1>0</interlock1> interlock2: <interlock2>0</interlock2> cfm: <cfm>0</cfm> power: <power>0</power> inside:<house_temp>72</house_temp> <DNS1>192.168.0.1</DNS1> attic: <attic_temp>92</attic_temp> OA: <oa_temp>81</oa_temp> server response: <server_response>Posted OK<br/></server_response> DIP Switches: <DIPS>00000</DIPS> Remote Switch:<switch2>1111</switch2> Setpoint:<Setpoint>0</Setpoint>
fanspd
cfm:
attic:
Code:
Sub Main() Dim xmlDoc As New XmlDocument() Dim strdata as String Dim FanIP = "192.168.2.143" Dim XML_Feed as integer = 0 Dim strpath = "http://" & FanIP & "/fanspd.cgi" Try 'Parse XML Data First Layer xmlDoc.Load(strpath) Dim nodes As XmlNodeList = xmlDoc.DocumentElement.SelectNodes("/feed") For Each node As XmlNode In nodes strdata = node.SelectSingleNode("fanspd").InnerText If strdata <> "" Then hs.writelog("Airscape", "Fan Speed: " & strdata) Else hs.writelog("AirScape", "Nothing found.") End If Next 'hs.SetDeviceString(1208, strdata, True) Catch ex As Exception hs.WriteLog ("AirScape", "Error: " & ex.Message) End Try End Sub
Comment