Page 1 of 1
How to extract data
Posted: Sun Jun 05, 2011 10:40 am
by HeinrichH
I have a file called all-sensors.xml generated by meteohub. I want to display some date of this file on a software remote screen
This is a part of the file:
<item sensor="wind0" cat="dir" unit="deg">238</item>
<item sensor="wind0" cat="dir" unit="de">WSW</item>
<item sensor="wind0" cat="dir" unit="nl">WZW</item>
<item sensor="wind0" cat="dir" unit="en">WSW</item>
<item sensor="wind0" cat="gustspeed" unit="ms">1.8</item>
<item sensor="wind0" cat="gustspeed" unit="kmh">6.5</item>
<item sensor="wind0" cat="gustspeed" unit="mph">4.0</item>
<item sensor="wind0" cat="gustspeed" unit="kn">3.5</item>
<item sensor="wind0" cat="gustspeed" unit="bft">1.7</item>
<item sensor="wind0" cat="gustspeed" unit="bftint">2</item>
<item sensor="wind0" cat="speed" unit="ms">2.2</item>
<item sensor="wind0" cat="speed" unit="kmh">7.9</item>
<item sensor="wind0" cat="speed" unit="mph">4.9</item>
<item sensor="wind0" cat="speed" unit="kn">4.3</item>
<item sensor="wind0" cat="speed" unit="bft">1.9</item>
<item sensor="wind0" cat="speed" unit="bftint">2</item>
<item sensor="wind0" cat="chill" unit="c">26.3</item>
<item sensor="wind0" cat="chill" unit="f">79.3</item>
<item sensor="rain0" cat="rate" unit="mm">0.0</item>
<item sensor="rain0" cat="rate" unit="in">0.00</item>
<item sensor="rain0" cat="total" unit="mm">429.4</item>
<item sensor="rain0" cat="total" unit="in">16.91</item>
The text in red and underlined I want to extract to use.
Anybody a idea how to do that?
Henk
Re: How to extract data
Posted: Mon Jun 06, 2011 11:55 am
by Richard Naninck
You can use regular expressions to filer out the labels you want to display or in case of XML you could look at:
the vbscript option CreateObject("Microsoft.XMLDOM") and go from there. In any case you need to do some programming. Once you get your hands on the correct info, store them in NULL Device Properties and display them in your theme.
You can also look at RFXCom in combination with Oregon Scientific weather sensors. This is supported by HouseBot and you get all the data you want readily in properties.
Re: How to extract data
Posted: Mon Jun 06, 2011 5:10 pm
by HeinrichH
Richard,
Thanks for the info.
About the RFXcom and OS sensors, I am using those but the rain sensor has a resolution of 1mm and my Davis station has a resolution of 0.2 mm. The OS wind sensor gives only a numeric value for the wind direction in the Housebot device.
Re: How to extract data
Posted: Mon Jun 06, 2011 6:20 pm
by Richard Naninck
I fixed it like this:
Code: Select all
WindDirection = GetPropertyValue("Wind meter.Wind Direction")
WindSpeed = Round(GetPropertyValue("Wind meter.Wind Speed") * 3600 / 1000, 1)
WindAverageMS = Round(GetPropertyValue("Wind meter.Average Wind Speed"), 1)
WindAverage = Round(WindAverageMS * 3600 / 1000, 1)
ZonTemp = GetPropertyValue("TH meter.Temperature")
GevoelsTemp = Round(13.12 + 0.6215 * ZonTemp - 11.37 * (3.6 * WindAverageMS) ^ 0.16 + 0.3965 * ZonTemp * (3.6 * WindAverageMS) ^ 0.16, 1)
TotalRain = CDbl(GetPropertyValue("Regen meter.Total Rainfall")) - CDbl(GetPropertyValue("Now Playing Server PC.Weather Rain Midnight"))
If TotalRain < 0 Then
TotalRain = "???"
End If
Select Case WindDirection
Case 0 : WindDirection = "N"
Case 23 : WindDirection = "NNO"
Case 45 : WindDirection = "NO"
Case 68 : WindDirection = "ONO"
Case 90 : WindDirection = "O"
Case 113: WindDirection = "OZO"
Case 135: WindDirection = "ZO"
Case 158: WindDirection = "ZZO"
Case 180: WindDirection = "Z"
Case 203: WindDirection = "ZZW"
Case 225: WindDirection = "ZW"
Case 248: WindDirection = "WZW"
Case 270: WindDirection = "W"
Case 293: WindDirection = "WNW"
Case 315: WindDirection = "NW"
Case 338: WindDirection = "NNW"
End Select
Select Case True
Case WindAverage >= 0 And WindAverage < 1 : WindKracht = "0 - Windstil"
Case WindAverage >= 1 And WindAverage < 6 : WindKracht = "1 - Zwak"
Case WindAverage >= 6 And WindAverage < 12 : WindKracht = "2 - Zwak"
Case WindAverage >= 12 And WindAverage < 20 : WindKracht = "3 - Matig"
Case WindAverage >= 20 And WindAverage < 29 : WindKracht = "4 - Matig"
Case WindAverage >= 29 And WindAverage < 39 : WindKracht = "5 - Vrij krachtig"
Case WindAverage >= 39 And WindAverage < 50 : WindKracht = "6 - Krachtig"
Case WindAverage >= 50 And WindAverage < 62 : WindKracht = "7 - Hard"
Case WindAverage >= 62 And WindAverage < 75 : WindKracht = "8 - Stormachtig"
Case WindAverage >= 75 And WindAverage < 89 : WindKracht = "9 - Storm"
Case WindAverage >= 89 And WindAverage < 103: WindKracht = "10 - Zware storm"
Case WindAverage >= 103 And WindAverage < 117: WindKracht = "11 - Zeer zware storm"
Case WindAverage >= 117 : WindKracht = "12 - Orkaan"
End Select
If ZonTemp <= 10 And WindAverageMS >= 1.3 Then
Temperature = ZonTemp & "ºC Gev: " & GevoelsTemp & "ºC"
Else
Temperature = ZonTemp & "ºC"
End If
SetpropertyValue "Now Playing Server PC.Weather Description", Get_Item(objRow, 1, tagDesc)
SetpropertyValue "Now Playing Server PC.Weather Wind", WindDirection & " - " & WindSpeed & " (~" & WindAverage & ") km/u"
SetpropertyValue "Now Playing Server PC.Weather Wind Kracht", WindKracht
SetpropertyValue "Now Playing Server PC.Weather Humidity", GetPropertyValue("TH meter.Humidity") & "% " & GetPropertyValue("THB meter.Humidity") & "%"
SetpropertyValue "Now Playing Server PC.Weather Rain", Round(GetPropertyValue("Regen meter.Rainfall Rate") / 1000, 1) & " mm/u (" & Round(TotalRain, 1) & " mm)"
SetpropertyValue "Now Playing Server PC.Weather Temperature", Temperature
SetPropertyValue "Now Playing Server PC.Weather Image", Image_Path & objRow(1)("item_image") & ".png"
SetpropertyValue "Now Playing Server PC.Weather Pressure", GetPropertyValue("THB meter.Barometric Pressure") & " mb"
End If