Parser un XML..

Version imprimable

Parser un XML..

Salut,

Trop la tête dans le guidon, je n'arrive pas à voir ce qui cloche dans mon parser XML.

Mon objectif: récupérer la valeur de la balise value (myTimeStamp).
Le XML à parser:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
<projet>
   <data>
     <modelType type="AAA">
       <model type="AAA" id="0000" state="Intact">
        <field name="TimeStamp" type="TimeStamp">
          <value type="TimeStamp">myTimeStamp</value>
        </field>
       </model>
      </modelType>
   </data>
</projet>

Le code du parser:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Dim list_modelType As XmlNodeList = unFicXML.GetElementsByTagName("modelType")
For cpt As Integer = 0 To list_modelType.Count - 1
        If list_modelType(cpt).Attributes("type").Value = "AAA" Then
            Dim list_AAA As XmlNodeList = list_modelType(cpt).ChildNodes
                For cpt2 As Integer = 0 To list_AAA.Count - 1
                    Dim list_balise_AAA As XmlNodeList = list_AAA(cpt2).ChildNodes
                    For Each noeud As XmlNode In list_balise_AAA
                        noeud.SelectSingleNode("/field[@name='TimeStamp']/value[@type='TimeStamp']")
                        If Not IsNothing(noeud.SelectSingleNode("/field[@name='TimeStamp']/value[@type='TimeStamp']")) Then
                            'it works
                        End If
                    Next
		Next
	EndIf
Next

Merci de votre aide!

Bonjour,
à voir :

Code:

1
2
3
4
5
6
7
8
9
10
11
                    For Each noeud As XmlNode In list_balise_AAA
                        If noeud.Attributes("name").Value = "TimeStamp" Then
 
                            'Console.WriteLine("noeud : " & noeud.Name & ",  " & noeud.Value)
                            Console.WriteLine(noeud.SelectSingleNode("value[@type='TimeStamp']").InnerText)
 
                            'If Not IsNothing(noeud.SelectSingleNode("/field[@name='TimeStamp']/value[@type='TimeStamp']")) Then
                            '    'it works
                            'End If
                        End If
                    Next

Citation:

Envoyé par chrismonoye

Bonjour,
à voir :

Code:

1
2
3
4
5
6
7
8
9
10
11
                    For Each noeud As XmlNode In list_balise_AAA
                        If noeud.Attributes("name").Value = "TimeStamp" Then
 
                            'Console.WriteLine("noeud : " & noeud.Name & ",  " & noeud.Value)
                            Console.WriteLine(noeud.SelectSingleNode("value[@type='TimeStamp']").InnerText)
 
                            'If Not IsNothing(noeud.SelectSingleNode("/field[@name='TimeStamp']/value[@type='TimeStamp']")) Then
                            '    'it works
                            'End If
                        End If
                    Next

ça génère une exception de type NullReference... :?

Je pense qu'il faut tester l’existence éventuel de l'élément.
A tester :

Code:

1
2
3
4
5
6
7
                    Dim list_balise_AAA As XmlNodeList = list_AAA(cpt2).ChildNodes
                    For Each noeud As XmlNode In list_balise_AAA
                        If noeud.Attributes("name").Value = "TimeStamp" Then
                            If Not IsNothing(noeud.SelectSingleNode("value[@type='TimeStamp']")) Then
                                Console.WriteLine(noeud.SelectSingleNode("value[@type='TimeStamp']").InnerText)
                            End If
                        End If