XML kompakt auslesen

  • WP8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    XML kompakt auslesen

    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.

    VB.NET-Quellcode

    1. Public Structure WeatherDetails
    2. Public Humidity As String
    3. Public Pressure As String
    4. End Structure
    6. Private Sub DownloadXMLWeather()
    7. Dim webClient As WebClient = New WebClient()
    8. 'webClient.Proxy = Nothing
    9. AddHandler webClient.DownloadStringCompleted, AddressOf webClient_DownloadStringCompleted6
    10. webClient.DownloadStringAsync(New Uri("http://api.openweathermap.org/data/2.5/weather?lat=" & locc.Split(",")(0) & "&lon=" & locc.Split(",")(1) & "&mode=xml"))
    11. End Sub
    13. Private Sub webClient_DownloadStringCompleted6(sender As Object, e As DownloadStringCompletedEventArgs)
    14. 'Hier fängt mein "Problem" an
    15. Dim xelement As XElement = xelement.Parse(e.Result, LoadOptions.None)
    16. Dim xECBd = From ECB In xelement.Elements("humidity") _
    17. Select New WeatherDetails With { _
    18. .Humidity = "Humidity: " & ECB.Attribute("value").Value & "%"}
    20. For Each Line In xECBd
    21. ergebnisstring += vbNewLine & (Line.Humidity)
    22. Next
    25. Dim xECBe = From ECB In xelement.Elements("pressure") _
    26. Select New WeatherDetails With { _
    27. .Pressure = "Pressure: " & ECB.Attribute("value").Value & " hPa"}
    29. For Each Line In xECBe
    30. ergebnisstring += vbNewLine & (Line.Pressure)
    31. Next
    33. End Sub


    Habt ihr eine Idee wie man das kompakter lösen kann?

    probierma

    VB.NET-Quellcode

    1. Dim xelement As XElement = xelement.Parse(e.Result, LoadOptions.None)
    2. Dim humids = From xel In xelement.<humidity> Select "Humidity: " & xel.@value
    3. Dim pressures = From xel In xelement.<pressure> Select "Pressure: " & xel.@value
    4. Dim result = String.Join(vbnewline, humids.Concat(pressures))

    Guck dir auch Xml verarbeiten mit Intellisense (Schema und XDocument) an.
    Deine WebDienst-Xml enthält vmtl. noch viel mehr Daten, und auch wirds eine eine differenzierte Schema-Datei geben zum download und einbinden.
    Und dann kannst du mit Leichtigkeit noch wesentlich komplexere Queries erstellen.

Facebook