Discussion :

[Bobdelariege]

Bonjour à tous,

Plateforme utilisée : 2.0.50727

Je sèche sur la lecture d'un fichier XML récupérer depuis son URL dont vous en avez le contenu ci-joint.
J'ai toujours travaillé avec des XML contenant des noeuds parents et enfants et avec celui-ci, je fais un blocage car il en est quasiment dépourvu.
Mes recherches sur la toile et l'application des méthodes des MSDN me laissent bredouilles.
J'essaye de récupérer les valeurs des éléments "id", "tp" ou encore "as".

Avec quelle méthode pouvons-nous extraire ces informations ?

Ci-dessous mon code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim Resoudre As New XmlUrlResolver()
Resoudre.Credentials = System.Net.CredentialCache.DefaultCredentials
 
Dim Configuration As New XmlReaderSettings
Configuration.IgnoreWhitespace = True
Configuration.XmlResolver = Resoudre
Dim lecteurdenoeud As XmlReader = XmlReader.Create("URLquivabien", Configuration)
 
lecteurdenoeud.MoveToContent()
 
Do While lecteurdenoeud.Read
lecteurdenoeud.ReadInnerXml()?
lecteurdenoeud.ReadString() ?
Loop

Je vous remercie par avance et vous souhaite une agréable journée.

[Bobdelariege]

Arf... parfois les choses les plus simples sont les plus difficiles à trouver....
La nuit a porté conseil, j'ai mis une variable dans mon code pour tester s'il y avait des attributs ou des éléments dans ce satané fichier et voici donc un exemple pour lire ce type de fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim Resoudre As New XmlUrlResolver()
        Resoudre.Credentials = System.Net.CredentialCache.DefaultCredentials
 
        Dim Configuration As New XmlReaderSettings
        Configuration.IgnoreWhitespace = True
        Configuration.XmlResolver = Resoudre
        Dim lecteurdenoeud As XmlReader = XmlReader.Create("URLquivabien", Configuration)
 
        lecteurdenoeud.MoveToContent()
 
        Do While lecteurdenoeud.Read
            ListBox1.Items.Add(lecteurdenoeud.GetAttribute("id").ToString)
            ListBox2.Items.Add(lecteurdenoeud.GetAttribute("tp").ToString)
            ListBox3.Items.Add(lecteurdenoeud.GetAttribute("as").ToString)
        Loop

Attention, il faut gérer le EOF du fichier.