[VB.Net] probleme de lecture de fichier

Version imprimable

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:

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

12/05/2006, 15h04
jab
Aie ça c'est du VB à l'ancienne :aie:

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:

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:

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.
12/05/2006, 15h07
jab

Tant qu'on y est évite

Code:

i = i + 1 : fl = 0

Met le sur deux lignes c'est bien plus lisible

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:

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

Code:

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