Googel Xml Wetter Api in Vb.net

  • VB.NET

Es gibt 8 Antworten in diesem Thema. Der letzte Beitrag () ist von C0der.

    Hi.. Wie hast du's versucht, das ganze in deinem Programm zu laden?! Vielleicht können wir dir dann sagen, wo es bei dir nicht funktioniert.
    "Wenn jemand in einem Betrieb unverzichtbar ist, dann ist dieser Betrieb falsch organisiert." - Roberto Niederer

    hihi habe das alles so gelöst

    VB.NET-Quellcode

    1. Private Function wetterReader(ByVal url As String) As String
    2. Try
    3. Dim i As Integer = 0
    4. Dim sb As New StringBuilder()
    5. ' Wir benötigen einen XmlReader für das Auslesen der XML-Datei
    6. Dim XMLReader As Xml.XmlReader _
    7. = New Xml.XmlTextReader("http://www.google.de/ig/api?weather=" & url)
    9. ' Es folgt das Auslesen der XML-Datei
    10. With XMLReader
    12. Do While .Read ' Es sind noch Daten vorhanden
    14. ' Welche Art von Daten liegt an?
    15. Select Case .NodeType
    17. ' Ein Element
    18. Case Xml.XmlNodeType.Element
    20. ' sb.append("Es folgt ein Element vom Typ " & .Name)
    21. If .Name = "city" Then
    22. If .AttributeCount > 0 Then
    23. ' Es sind noch weitere Attribute vorhanden
    24. While .MoveToNextAttribute ' nächstes
    25. sb.Append(.Value & "*")
    26. End While
    28. End If
    29. End If
    30. If .Name = "condition" And i < 15 Then
    31. If .AttributeCount > 0 Then
    32. ' Es sind noch weitere Attribute vorhanden
    33. While .MoveToNextAttribute ' nächstes
    34. sb.Append(.Value & "*")
    35. End While
    36. End If
    37. End If
    38. If .Name = "temp_c" And i < 30 Then
    39. If .AttributeCount > 0 Then
    40. ' Es sind noch weitere Attribute vorhanden
    41. While .MoveToNextAttribute ' nächstes
    42. sb.Append(.Value & "© *")
    43. End While
    44. End If
    45. End If
    46. If .Name = "humidity" And i < 40 Then
    47. If .AttributeCount > 0 Then
    48. ' Es sind noch weitere Attribute vorhanden
    49. While .MoveToNextAttribute ' nächstes
    50. sb.Append(.Value & "*")
    51. End While
    52. End If
    53. End If
    54. If .Name = "wind_condition" And i < 50 Then
    55. If .AttributeCount > 0 Then
    56. ' Es sind noch weitere Attribute vorhanden
    57. While .MoveToNextAttribute ' nächstes
    58. sb.Append(.Value & "*")
    59. End While
    60. End If
    61. End If
    62. Case Xml.XmlNodeType.Text
    63. ' sb.append("Es folgt ein Text: " & .Value)
    65. ' Ein Kommentar
    66. Case Xml.XmlNodeType.Comment
    67. ' sb.append("Es folgt ein Kommentar: " & .Value)
    69. End Select
    70. i += 1
    71. Loop ' Weiter nach Daten schauen
    73. .Close() ' XMLTextReader schließen
    75. End With
    77. Return sb.ToString
    78. Catch ex As Exception
    79. MsgBox(ex.Message)
    81. Return "diese stadt ist mir leider nicht bekannt sorry"
    83. End Try
    84. End Function


    ist nicht schön aber geht^^ leider bekomme ich immer mal wieder bei manchen städten einen fehler
    wenn es funktioniert ist die ausgabe das

    wie wird das wetter in mainz
    Mayence, RP
    Klar
    20©
    Feuchtigkeit: 46%
    Wind: NO mit Windgeschwindigkeiten von 19 km/h


    wenn die ausgabe nicht funktioniert so


    wie wird das wetter in mannheim
    diese stadt ist mir leider nicht bekannt sorry

    aber mannheim gibt es bekomme es aber leider nicht zum laufen

    greetz haufe
    ähh? wasn das :)

    hmm
    das haut nicht hin da er mir eine falsche stadt gibt.

    z.b frankenthal hat die plz 67227 und wenn ich das so eingebegoogle.de/ig/api?weather=67227

    komme ich nach wicha oder so^^

    und bei dem link von frankenthal bekomme ich einen fehler im reader

    VB.NET-Quellcode

    1. invalid character in the given encoding.Line 1, position 447


    der link von frankenthal

    google.de/ig/api?weather=Frankenthal
    ähh? wasn das :)

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „haufe“ ()

    hallo haufe,

    ich verwende lieber den yahoo!weather dienst
    jeder ort auf der welt hat eine id, welche einmalig ist.

    dadurch kommt man sicher an die gewünschten informationen

    frankenthal gibt es dort auch nicht - aber mannheim.
    das kürzel für mannheim lautet GMXX0081 - wobei GM für Germany steht.

    EDIT:
    kleine einführung gibt es hier

    gruss

    mikeb69

    danke für die antwort.

    gibt es auch ne möglichkeit bei yahoo das wetter per postleitzahl zu suchen?

    möchte es ja in meinem prog haben. aber ist ja schlecht wenn die leute die id von ihrer stadt wissen müsssen.#
    #

    noch ne frage , kann es sein das der xmlreader probleme mit umlauten hat und ich deswegen einen fehler bekomme?
    ähh? wasn das :)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „haufe“ ()

    hallo haufe,

    plz geht nur in den usa - glaube ich.

    wie du das mit den städten am besten lösen kannst weiss ich nicht
    alleine für deutschland gibt es mehrere tausend orte die abgefragt werden können.

    gruss

    mikeb69

Facebook
Telefonspende