Hallo Zusammen
Ich habe einwenig Mühe mit dem Auslesen eines XML Files. Auslesen funktioniert soweit, aber es ist meines Erachtens nicht wirklich mit wenig Code gelöst.
api.openweathermap.org/data/2.…t=45.37&lon=8.53&mode=xml
Ich möchte nicht für jeden Wert einen Select absetzen müssen.
Habt ihr eine Idee wie man das kompakter lösen kann?
Ich habe einwenig Mühe mit dem Auslesen eines XML Files. Auslesen funktioniert soweit, aber es ist meines Erachtens nicht wirklich mit wenig Code gelöst.
api.openweathermap.org/data/2.…t=45.37&lon=8.53&mode=xml
Ich möchte nicht für jeden Wert einen Select absetzen müssen.
VB.NET-Quellcode
- Public Structure WeatherDetails
- Public Humidity As String
- Public Pressure As String
- End Structure
- Private Sub DownloadXMLWeather()
- Dim webClient As WebClient = New WebClient()
- 'webClient.Proxy = Nothing
- AddHandler webClient.DownloadStringCompleted, AddressOf webClient_DownloadStringCompleted6
- webClient.DownloadStringAsync(New Uri("http://api.openweathermap.org/data/2.5/weather?lat=" & locc.Split(",")(0) & "&lon=" & locc.Split(",")(1) & "&mode=xml"))
- End Sub
- Private Sub webClient_DownloadStringCompleted6(sender As Object, e As DownloadStringCompletedEventArgs)
- 'Hier fängt mein "Problem" an
- Dim xelement As XElement = xelement.Parse(e.Result, LoadOptions.None)
- Dim xECBd = From ECB In xelement.Elements("humidity") _
- Select New WeatherDetails With { _
- .Humidity = "Humidity: " & ECB.Attribute("value").Value & "%"}
- For Each Line In xECBd
- ergebnisstring += vbNewLine & (Line.Humidity)
- Next
- Dim xECBe = From ECB In xelement.Elements("pressure") _
- Select New WeatherDetails With { _
- .Pressure = "Pressure: " & ECB.Attribute("value").Value & " hPa"}
- For Each Line In xECBe
- ergebnisstring += vbNewLine & (Line.Pressure)
- Next
- End Sub
Habt ihr eine Idee wie man das kompakter lösen kann?