Discussion :

[Rom_1]

Bonjour,

je n'en crois pas mes yeux : j'ai une fonction en vb.NET qui ne marche QUE si elle a un point d'arrêt. Diabolique.
Il s'agit de lire un petit fichier XML, grâce à la classe XmlTextReader. La propriété .Name du lecteur ne semble pas mise à jour lorsqu'il n'y a pas de point d'arrêt...

Voici mon code vb (un extrait) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
            Do : Loop While (.Read() AndAlso (.Name <> "unites_oeuvre"))
'pour trouver la balise ouvrante de ma liste d'unités d'oeuvres
            If (Not .IsEmptyElement) Then
                Do While (.Read())
                    If (.Name = "uo") Then
                        objUO = New unite_oeuvre('GetAttribute(blablabla))
'les attributs donnent les paramètres du constructeur de ma classe
                        .unites_oeuvre.Add(objUO)
 'ajout dans une collection
                    Else : Exit Do
                    End If
                Loop
            End If

et le bout de Xml que c'est censé lire :

Code :

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

1
2
3
4
5
 
  <unites_oeuvre>
    <uo nom="UO_Test" id="38" description="test38" />
    <uo nom="UO_Test_" id="39" description="test39" />
  <unites_oeuvres />

En pas à pas, ou même avec un point d'arrêt juste avant la condition .Name="uo", ça marche, mais sinon la boucle n'est jamais exécutée (.Name="uo" s'évalue toujours à faux).

Pour info, j'utilise vs 2003. Est-ce quelqu'un a une idée de l'origine du problème ? Parce que moi je vois vraiment pas... Le plus drôle, c'est que je peux pas déboguer (puisque quand je veux voir d'un peu plus près, ça marche...)

Merci d'avance !

--
Rom1

[Maniak]

Bah là comme ça je vois pas (il est tard et c'est du VB :), mais tu peux toujours essayer à la sauce XPath.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim reader As XmlTextReader
blabla
Dim document As XPathDocument = New XPathDocument( reader )
Dim navigator As XPathNavigator = document.CreateNavigator()
Dim iterator As XPathNodeIterator = navigator.Select( "/unites_oeuvre/uo" )   ' ajouter ce qu'il faut devant si 'unites_oeuvre' n'est pas la racine
 
While iterator.MoveNext()
  objUO = New unite_oeuvre(blablabla)
  bleh.unites_oeuvre.Add(objUO)
End While

Ça simplifie la boucle (et y en n'a qu'une), t'as pas à t'occuper de la structure du fichier (tu peux notamment coller tous les commentaires que tu veux dedans), et si tu scannes d'autres trucs dans ce fichier, ça a des chances d'être plus rapide :)

Et là, ton problème actuel a très peu de chances de se reproduire :)

[Rom_1]

Merci pour l'indication ! Effectivement, ça va alléger le code. Et expliqué comme ça, XPath devient beaucoup plus clair.

J'ai trouvé un workaround pour le problème initial (pour que la boucle qui marche en pas à pas marche tout court) : boucler si Name="" ; ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
            Do : Loop While (.Read() AndAlso (.Name <> "unites_oeuvre"))
'pour trouver la balise ouvrante de ma liste d'unités d'oeuvres
            If (Not .IsEmptyElement) Then
                Do While (.Read())
                    If (.Name = "uo") Then
                    'on lit ...
 
                    ElseIf (.Name <> "") : Exit Do
 
                    'ELse on fait rien donc on boucle
                    End If
                Loop
            End If

Là, ça marche. En pratique, c'est comme si on lisait des lignes sans .Name, qui seraient sautées automatiquement en pas à pas. Ou alors .Name (ou .Read) a des ratées quand ça va trop vite...