Sub ParseDailyWeatherData(jsonData As String)
Dim jPaser As JSONParser
Dim DataMap As Map
Dim lstBody As List
Dim HeaderMap As Map
Try
jPaser.Initialize(jsonData)
DataMap.Initialize
DataMap = jPaser.NextObject
HeaderMap.Initialize
HeaderMap = DataMap.Get("Headline")
lstBody.Initialize
lstBody = DataMap.Get("DailyForecasts")
Catch
Log(LastException)
End Try
ShowReady(True)
End Sub