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