Parccourir un XML et de recuperer ses elements un par un

Salut;
j'ai un Fichier XML F1qui est dans un StringWriter
qui a cette structure :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

<Racine>   <p1> <id>A1A</id> <nom>Gauch</nom> <prenom>Alain</prenom> </p1>   <p1> <id>B12</id> <nom>Brad</nom> </p1>   <p1> <id>C14</id> <nom>Clark</nom> <prenom>Jack</prenom> <adresse>blabla</adresse> </p1>   </Racine>

---

ce que je veux c'est de parccourir mon XMl et de recuperer <p1></p1> a tour de role dans une string* (par exemple)
tout en sachant que les elements qui sont entre <p1></p1> peuvent varié
je peux avoir un seul comme je peux avoir plusieurs.
et que je sais pas combien de <p1></p1> j'aurai

comment je peux my prendre?

Merci

Pourquoi ne pas simplement utiliser la serialization ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

<Serializable()> _ <System.Xml.Serialization.XmlRoot("Racine")> _ Public Class Racine Inherits List(Of p1) Public Sub New() End Sub End Class   <Serializable()> _ Public Class p1 Public id As String = "" Public nom As String = "" Public prenom As String = "" Public adresse As String = "" End Class

---

Utilisation :

Code:

---

1 2 3

Dim rd As New StringReader("le xml ici ou alors tu passes directement le stream que tu as") Dim r As Racine = DirectCast(sr.Deserialize(rd), Racine)

---

Et tout sera dans r. Pour énumérer il te suffira de faire un For Each.

merci de me repondre
mais le sr c'est quoi sa declaration?
Merci

Oops.

Code:

---

Dim sr As New XmlSerializer(GetType(Racine))

---

merci
vous avez dit :Et tout sera dans r. Pour énumérer il te suffira de faire un For Each.

je sais que c'est idiot de ma part
mais comment je vais le faire ?

merci

Code:

---

1 2 3 4 5 6

For Each item As p1 In r ' faire quelque chose avec item   Next

---

For Each item As p1 In r
MsgBox(item.id + vbCrLf + item.nom + vbCrLf + item.prenom + vbCrLf + item.adresse)
Next

j'arrive a afficher les données
mais moi je veux recuperer aussi les balises

c'est possible??

Merci

Alala, décidément :aie:
On reprends tout :
x_string est une variable String qui contient le xml

Code:

---

1 2 3 4 5 6 7

Dim xdoc As New System.Xml.XmlDocument() xdoc.LoadXml(x_string) Dim root_node As System.Xml.XmlNode = xdoc.ChildNodes(0) For Each node As System.Xml.XmlNode In root_node.ChildNodes MessageBox.Show(node.OuterXml) Next

---

oui ca marche !! merci
juste un dernier truc
c'est possible que je recupere a chaque fois la racine ?

Comment ça récupérer à chaque fois la racine ?

comme par exemple a chak fois recuperer comme ceci:

<Racine ><p1><id>.......</p1></Racine>
<Racine ><p1>.......</p1></Racine>
<Racine ><p1>.......</p1></Racine>

Je dirais

Code:

---

MessageBox.Show("<Racine>" & node.OuterXml & "</Racine>")

---

lol
Merci c'est tres gentil de votre part de me repondre aussi vite

N'oubliez pas le :resolu: si tout est bon :roll:

oui avec plaisir.Merci

salut
voila mon xml

Code:

---

1 2 3 4 5

<p1> <id>A1A</id> <nom>Gauch</nom> <prenom>Alain</prenom> </p1>

---

c'est possible de changer la valeur de la balse <id> pour avoi apres

Code:

---

1 2 3 4 5

<p1> <id>99842</id> <nom>Gauch</nom> <prenom>Alain</prenom> </p1>

---

Merci

Code:

---

1 2 3 4 5 6 7

Dim xdoc As New System.Xml.XmlDocument() xdoc.LoadXml(x_string) Dim root_node As System.Xml.XmlNode = xdoc.ChildNodes(0) For Each node As System.Xml.XmlNode In root_node.ChildNodes node.SelectSingleNode("id").InnerText = "199203" MessageBox.Show(node.OuterXml) Next

---

Sinon il y a des infos qui pourraient être intéressantes concernant l'utilisation du xml ici : http://msdn.microsoft.com/fr-fr/libr...87(VS.80).aspx

Merci beaucoup

[QUOTE=smyley;4058608]

Code:

---

1 2 3 4 5 6 7

Dim xdoc As New System.Xml.XmlDocument() xdoc.LoadXml(x_string) Dim root_node As System.Xml.XmlNode = xdoc.ChildNodes(0) For Each node As System.Xml.XmlNode In root_node.ChildNodes node.SelectSingleNode("id").InnerText = "199203" MessageBox.Show(node.OuterXml) Next

---

salut juste une question si la balise id n'existe pas c'est quoi le teste qu'il faut faire pour ne pas avoir une exception?
Merci

Si id n'existe pas, le retour de node.SelectSingleNode("id") est "Nothing". Tu dois donc tester si la valeur de retour de node.SelectSingleNode("id") est différente de Nothing avant d'appeler une méthode dessus.
Le deuxième test à effectué pour ne pas avoir d'erreur c'est vérifier si le document xml contient bien quelque chose, ie vérifie si doc.ChildNodes.Count est supérieur ou égal à 1.

Code:

---

1 2 3 4

If node.SelectSingleNode("CompanySage") <> Nothing Then     end if

---

voila ce que j'ai fais mais ca marche pas c'est souligné en bleu :triste:

Merci

Code:

---

1 2 3 4 5

If node.SelectSingleNode("CompanySage") IsNot Nothing Then ... End If

---

Tu as pensé à lire le cours d'introduction au vb.net par Serge Tahé ?
cf. http://tahe.developpez.com/dotnet/vbnet/

Parce que là, un C#-iste pur qui donne de l'aide pour la syntaxe du VB.NET, c'est extrême non ? :aie:

merci beaucoup