bonjour,

dans le code suivant la première boucle while fonctionne alors que la seconde ne "tourne pas" ?
si quelq'un peut m'expliquer. Merci d'avance

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
    Private Sub BTcateg_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTcateg.Click
        Dim i As Integer = 0
        Dim j As Integer = 0
        Dim mot As String
        Dim cod() As String = {"pa", "BF", "po", "ta", "ser"}
        Dim fl As Integer = 0
        FileClose()
        FileOpen(100, My.Application.Info.DirectoryPath + "\element", OpenMode.Random, , , Len(enreg))
 
        mot = TXTcateg.Text
        If mot = "cour" Then GoTo suite
 
        suivi.Maximum = 6000
        While Not EOF(100)
            i = i + 1
            FileGet(100, enreg)
            suivi.Value = i
            If Trim(enreg.num).Contains(mot) = True Then
 
                j = j + 1
                tab(j, 1) = Trim(enreg.num)
 
            End If
        End While
        GoTo fin
suite:
        i = 0
 
        suivi.Maximum = 6000
        While Not EOF(100)
            i = i + 1 : fl = 0
            FileGet(100, enreg)
            suivi.Value = i
                If Trim(enreg.num).Contains("pa") Then fl = 1
            If fl = 0 Then
                j = j + 1
                'tab(j, 1) = Trim(enreg.num)
 
 
            End If
 
        End While
        FileClose()
fin:
 
 
    End Sub