Discussion :

[michel71]

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

[jab]

Aie ça c'est du VB à l'ancienne

commence déjà par enlever ces goto que je ne saurai voir. Ensuite ferme ton fichier à la fin et non seulement dans la deuxième opération. Ainsi tu n'aura plus à le fermer au début.

Ensuit pourquoi

Code :

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

1
2
3
4
5
6
 
    If Trim(enreg.num).Contains("pa") Then fl = 1
            If fl = 0 Then
                j = j + 1
                'tab(j, 1) = Trim(enreg.num)
            End If

alors que fl est remis à 0 à chaque passage.

Fait

Code :

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

1
2
3
4
5
 
    If Not Trim(enreg.num).Contains("pa") 
           j = j + 1
           'tab(j, 1) = Trim(enreg.num)
    End If

Et pourquoi un Trim d'ailleur.

Après on y verra déjà plus clair.

[jab]

Tant qu'on y est évite

Code :

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

i = i + 1 : fl = 0

Met le sur deux lignes c'est bien plus lisible

[michel71]

ok j'ai viré les goto.
Comme je ne voulais pas encombrer le post j'ai volontaire tronqué la procédure je vous la livre en complet. les trim sont là pour virer les espace qui sont dans le fichier "element" qui est un fichier récupéré et pas très propre

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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
    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))
        suivi.Maximum = 6000
        mot = TXTcateg.Text
        If mot <> "cour" Then
 
'première boucle 
            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)
                    tab(j, 2) = Trim(enreg.desi)
                    tab(j, 3) = Trim(enreg.grav)
                    tab(j, 4) = Trim(enreg.qtemis)
                    tab(j, 5) = Trim(enreg.annee)
                    tab(j, 6) = Trim(enreg.typ)
                    tab(j, 7) = Trim(enreg.couleur)
                    tab(j, 8) = Trim(enreg.dent)
                    tab(j, 9) = Trim(enreg.valfac)
                    tab(j, 10) = Trim(enreg.info)
                    tab(j, 11) = Trim(enreg.photo)
                    tab(j, 12) = Trim(enreg.att2)
                    tab(j, 13) = Trim(enreg.cotneuf)
                    tab(j, 14) = Trim(enreg.cotneufchar)
                    tab(j, 15) = Trim(enreg.cotoblit)
                    tab(j, 16) = Trim(enreg.dessin)
                    tab(j, 13) = tab(j, 13).Replace(".", ",")
                    tab(j, 14) = tab(j, 14).Replace(".", ",")
                    tab(j, 15) = tab(j, 15).Replace(".", ",")
                End If
            End While
        End If
 
'seconde boucle
        Label8.Text = j
        i = 0
        While Not EOF(100)
            i = i + 1
            fl = 0
            FileGet(100, enreg)
            suivi.Value = i
            For i = 0 To 4
                If Trim(enreg.num).Contains(cod(i)) Then fl = 1
            Next
            If fl = 0 Then
                j = j + 1
                tab(j, 1) = Trim(enreg.num)
                tab(j, 2) = Trim(enreg.desi)
                tab(j, 3) = Trim(enreg.grav)
                tab(j, 4) = Trim(enreg.qtemis)
                tab(j, 5) = Trim(enreg.annee)
                tab(j, 6) = Trim(enreg.typ)
                tab(j, 7) = Trim(enreg.couleur)
                tab(j, 8) = Trim(enreg.dent)
                tab(j, 9) = Trim(enreg.valfac)
                tab(j, 10) = Trim(enreg.info)
                tab(j, 11) = Trim(enreg.photo)
                tab(j, 12) = Trim(enreg.att2)
                tab(j, 13) = Trim(enreg.cotneuf)
                tab(j, 14) = Trim(enreg.cotneufchar)
                tab(j, 15) = Trim(enreg.cotoblit)
                tab(j, 16) = Trim(enreg.dessin)
                tab(j, 13) = tab(j, 13).Replace(".", ",")
                tab(j, 14) = tab(j, 14).Replace(".", ",")
                tab(j, 15) = tab(j, 15).Replace(".", ",")
 
            End If
            Label8.Text = j
            lig = j
        End While
        FileClose()
 
 
 
    End Sub

[jab]

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
 
Private Sub BTcateg_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTcateg.Click
...
        If mot <> "cour" Then
 
            'première boucle 
            While Not EOF(100)
                 ...
            End While
 
        Else
 
            'seconde boucle
            Label8.Text = j
            i = 0
            While Not EOF(100)
                ...
            End While
        end if
        FileClose()
 
    End Sub