Obtenir des informations d'un XMLRésolu

Question

Bonjour à tous, Je souhaite obtenir des informations d'une adresse XML. J'arrive à obtenir la première partie des informations (CURRENT) mais en ce qui concerne le FORECAST, j'obtiens que le dernier jour de prévisions. En effet se répète 5 fois exactement, et je n'arrive pas à les obtenir individuellement. J'aimerai obtenir une méthode pour que des labels, puissent afficher les informations FORECAST pour chaque jour. Est-ce possible? Merci d'avance pour votre aide Jules

julien2424 · Answer

Voici l'adresse XML, puisque l'affichage du code à bugger dans le premier poste.

http://weather.service.msn.com/data.aspx?s&weadegreetype=C&culture=fr-fr&wealocations=wc:FRXX0016

Jules

NHenry · Answer

Bonjour,

Quel est ton code de récupération et de traitement ?
(Coloration syntaxique 3ième icône en partant de la droite )

Mon site

julien2424 · Answer

Voici un fragment:
fenetre1.Conditions_actuelles_f1.Text affiche que le dernier jour du forecast


  Try
            While reader.Read()
                If (reader.NodeType XmlNodeType.Element) AndAlso (reader.Name "forecast") Then
reader.MoveToAttribute("skytext")
                    fenetre1.Conditions_actuelles_f1.Text = reader.Value
  End If
            End While
            Return currentWeatherReport
        Catch ex As Exception
            Throw ex
        End Try


Jules

julien2424 · Answer

j'ai trouvé un site qui expliquerai comment faire, mais c'est du C-sharp.
Je peux le traduire mais je n'arrive pas à mettre en place les "collections" qu'ils demande et comment un label pourrait afficher les infos que je souhaite.

Voici le lien: http://www.codeguru.com/forum/showthread.php?t=483459


Jules

Utilisateur anonyme · Answer

Bonsoir,

Je sais qu'il faut pas pondre un code tout fait mais bon.
Voici comment tu peux récupérer ces infos :
Dim XmlDoc As New XmlDocument
XmlDoc.Load("http://weather.service.msn.com/data.aspx?s&weadegreetype=C&culture=fr-fr&wealocations=wc:FRXX0016 ")
Dim elements As XmlNodeList = XmlDoc.DocumentElement.GetElementsByTagName("forecast")
For Each item As XmlElement In elements
Dim dt As String = item.GetAttribute("date")
Dim pr As String = item.GetAttribute("precip")
Debug.Print(dt & "  " & pr)
Next
Bonne soirée.

julien2424 · Answer

Ton code est parfait banana.
Avec une MsgBox, j'arrive parfaitement à voir tout les jours téléchargés et c'est exactement ce qu'il fallait.

Cependant, pour que chaque label affiche une information différente, j'utilise cette méthode. N'y a t-il pas plus rapide et surtout moins lourd?


                    If f1 = 0 Then
                            fenetre1.jour_f1.Text = ""
                            fenetre1.jour_f1.Text = day
                            fenetre1.texte_f1.Text = sk
                            fenetre1.temp_f1.Text = temp1 + " / " + temp2
                            fenetre1.precip_f1.Text = pr
                            f1 = 1
                        Else
                            If f2 = 0 Then
                                fenetre1.jour_f2.Text = ""
                                fenetre1.jour_f2.Text = day
                                fenetre1.texte_f2.Text = sk
                                fenetre1.temp_f2.Text = temp1 + " / " + temp2
                                fenetre1.precip_f2.Text = pr
                                f2 = 1
                            Else
                                If f3 = 0 Then
                                    fenetre1.jour_f3.Text = ""
                                    fenetre1.jour_f3.Text = day
                                    fenetre1.texte_f3.Text = sk
                                    fenetre1.temp_f3.Text = temp1 + " / " + temp2
                                    fenetre1.precip_f3.Text = pr
                                    f3 = 1
                                Else
                                    If f4 = 0 Then
                                        fenetre1.jour_f4.Text = ""
                                        fenetre1.jour_f4.Text = day
                                        fenetre1.texte_f4.Text = sk
                                        fenetre1.temp_f4.Text = temp1 + " / " + temp2
                                        fenetre1.precip_f4.Text = pr
                                        f4 = 1
                                    Else
                                        If f5 = 0 Then
                                            fenetre1.jour_f5.Text = ""
                                            fenetre1.jour_f5.Text = day
                                            fenetre1.texte_f5.Text = sk
                                            fenetre1.temp_f5.Text = temp1 + " / " + temp2
                                            fenetre1.precip_f5.Text = pr
                                            f5 = 1
                                        End If
                                    End If
                                End If
                            End If
                        End If


Merci à tous encore pour votre aide

Jules

NHenry · Answer

Bonjour,

A la place des tes If en cascade (Tu pourrais aussi utiliser ElseIf à la place de Else If, ça te limiterais à 1 seul niveau de If

Tu pourrais aussi utiliser plusieurs tableau (ou un tableau de structure) :
Dim ltJour as TextBox()=new TextBox(){fenetre1.jour_f1,fenetre1.jour_f2,fenetre1.jour_f3,fenetre1.jour_f4,fenetre1.jour_f5}

'Puis
Dim i As Integer=0

'et
ltJour(i).Text=day
i+=1

ce sera plus simple et plus propre.

Mon site

julien2424 · Answer

Exactement les conseils que je cherché...

Merci encore à NHenry ;)

Jules

Obtenir des informations d'un XML

8 réponses

Votre réponse

Discussions similaires