Discussion :

[Ya7yaKech]

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

Code xml :

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

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

[smyley]

Pourquoi ne pas simplement utiliser la serialization ?

Code vb :

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

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 vb :

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

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.

[Ya7yaKech]

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

[smyley]

Oops.

Code vb :

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

Dim sr As New XmlSerializer(GetType(Racine))

[Ya7yaKech]

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

[smyley]

Code vb :

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

1
2
3
4
5
6
 
 
    For Each item As p1 In r
        ' faire quelque chose avec item
 
    Next

[Ya7yaKech]

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

[smyley]

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

Code vb :

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

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

[Ya7yaKech]

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

[smyley]

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

[Ya7yaKech]

comme par exemple a chak fois recuperer comme ceci:

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

[smyley]

Je dirais

Code vb :

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

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

[Ya7yaKech]

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

[smyley]

N'oubliez pas le si tout est bon

[Ya7yaKech]

oui avec plaisir.Merci

[Ya7yaKech]

salut
voila mon xml

Code xml :

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

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 xml :

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

1
2
3
4
5
<p1>
<id>99842</id>
<nom>Gauch</nom>
<prenom>Alain</prenom>
</p1>

Merci

[smyley]

Code vb :

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

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

[Ya7yaKech]

Merci beaucoup

[Ya7yaKech]

[QUOTE=smyley;4058608]

Code vb :

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

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

[smyley]

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.