Discussion :

[adrix26]

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
16
17
18
19
20
21
22
23
24
25
26
27
28
<RECS>
  	<REC>
  		<VAL>Elagage de la base de données                                                             		</VAL>
  		<VAL>6		</VAL>
  		<VAL>Elagage de la base de données		</VAL>
  		<VAL>Terminé		</VAL>
  		<VAL>266		</VAL>
  		<VAL>06/11/2008 11:06:04		</VAL>
  		<VAL>                                		</VAL>
  		<VAL>		</VAL>
  		<VAL>		</VAL>
  		<VAL>		</VAL>
  		<VAL>SAVE                                                            		</VAL>
  	</REC>
  	<REC>
  		<VAL>Sauvegarde Agence 		</VAL>
  		<VAL>14		</VAL>
  		<VAL>Sauvegarde		</VAL>
  		<VAL>Terminé		</VAL>
  		<VAL>264		</VAL>
  		<VAL>05/11/2008 19:17:14		</VAL>
  		<VAL>toto                          		</VAL>
  		<VAL>		</VAL>
  		<VAL>		</VAL>
  		<VAL>		</VAL>
  		<VAL>SAVE                                                            		</VAL>
  	</REC>
<RECS>

Bonjour, je souhaite lire ce fichier Xml, j'utilise Xpath.

Dans un premier temps je cherche tout les éléments <REC>

Code :

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

1
2
3
4
5
6
7
8
9
10
 Dim doc As XPathDocument = New XPathDocument(myfile)
        Dim nav As XPathNavigator = doc.CreateNavigator
 
        Dim recs As XPathNodeIterator = nav.Select("/RESPONSE_TABLE/RECS/REC")
 
While recs.MoveNext
 
'Maintenant c'est ici que je voudrais faire une boucle pour chaque élément VAL, comment faire?
 
End while

Comment faire pour lire chaque valeur de VAL dans une boucle qui serait dans la boucle des REC?

Adrien

[adrix26]

ok j'ai trouvé par moi meme

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 doc As XPathDocument = New XPathDocument(myfile)
        Dim nav As XPathNavigator = doc.CreateNavigator
 
 
        Dim recs As XPathNodeIterator = nav.Select("/RESPONSE_TABLE/RECS/REC")
 
 
        While recs.MoveNext
            Dim i As Integer = recs.CurrentPosition
            Dim rec As XPathNodeIterator = nav.Select("/RESPONSE_TABLE/RECS/REC[" + i.ToString() + "]/VAL")
 
            While rec.MoveNext
                Dim mydata As String = rec.Current.InnerXml
            End While
End While