[VB.NET] while in for lus probleem

[toost]

Ik heb de volgende code:

Visual Basic .NET:

        Dim strTest As String, intX As Integer
        Dim xr As XmlTextReader = New XmlTextReader("test.xml")

        For intX = 0 To 2
            txtTest5.Text &= "nummer = " & intX & NewLine

            While xr.Read()
                Select Case (xr.NodeType)
                    Case XmlNodeType.Text
                        txtTest5.Text &= "check : " & intX & NewLine
                End Select
            End While

        Next

als ik deze code uitvoer krijg ik het volgende:

code:

nummer = 0
check : 0
check : 0
check : 0
check : 0
check : 0
check : 0
nummer = 1
nummer = 2
nummer = 3
nummer = 4
nummer = 5
nummer = 6

hij voert die while maar 1 keer uit en niet elke keer dat hij die for loop ingaat. Als alles goed zou gaan zou ik het volgende moeten krijgen:

[code]

code:

nummer = 0
check : 0
check : 0
check : 0
check : 0
check : 0
check : 0
nummer = 1
check : 1
check : 1
check : 1
check : 1
check : 1
check : 1
nummer = 2
check : 2
check : 2
check : 2
check : 2
check : 2
check : 2

dat er dan 6 keer check onderelkaar staat komt omdat er 6 * een element met text in mijn xml file staat, daar hoef je niet naar te kijken is ook niet relevant. Het gaat er dus om dat hij die while niet 3 keer uitvoert.

Wat zie ik over het hoofd? Ik dacht eerst dat het iets met die Select case is, maar dat is het niet. Volgens mij is het iets met die xr.Read()

[ Voor 5% gewijzigd door toost op 28-04-2005 21:17 ]

[NMe]

Ik denk dat je verkeerd gokt. Ik ken VB.NET verder zelf niet, maar ik gok dat je je XML reader onder je while lusje even moet resetten.

Ik neem trouwens aan dat de select/case in je echte applicatie wat uitgebreider wordt? Een select met maar één conditie lijkt me niet al te handig.

[ Voor 36% gewijzigd door NMe op 28-04-2005 21:17 ]

[toost]

Dat zou idd goed kunnen, eens even kijken of ik ergens kan vinden hoe dat moet

ja die select case is groter in de echte applicatie, maar ik heb em ff verdunt om makelijker te testen

[ Voor 40% gewijzigd door toost op 28-04-2005 21:21 ]

[toost]

hey thnx het was idd een reset of zoiets iig

als ik onder me while

Visual Basic .NET:

xr = New XmlTextReader("test.xml")

toevoegt doet tie et