Discussion :

[Kikibolderiz]

Bonjour,

Je suis débutant en vb.net et j'aimerais lire toute les 3 ligne la valeur contenu dans une fichier texte. J'ai réussi à afficher toute les lignes de mon fichier texte mais je n'ai pas réussi à l'adapter pour afficher 1 ligne sur 3.
Le contenue de mon fichier texte ressemble à ça :

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
 
#Zone de texte 1
1
 
#Zone de texte 2
2
 
#Zone de texte 3
3
 
#Zone de texte 4
4
 
#Zone de texte 5
5
 
#Zone de texte 6
6
 
#Zone de texte 7
7
 
#Zone de texte 8
8
 
#Zone de texte 9
9
 
#Zone de texte 10
10
 
#Zone de texte 11
11
 
#Zone de texte 12
12
 
#Zone de texte 13
13
 
#Zone de texte 14
14
 
#Zone de texte 15
15
 
#Zone de texte 16
16
 
#Zone de texte 17
17
 
#Zone de texte 18
18
 
#Zone de texte 19
19
 
#Zone de texte 20
20

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
 
Module Module1
 
    Dim fichier As String
    Dim ligne As String
    Dim result As String
 
    Sub main()
        fichier = "D:\User\Admin\Desktop\Zone text.txt"
        Dim monStreamReader As New System.IO.StreamReader(fichier)
 
        ligne = 0
        While ligne < 60
 
            result = monStreamReader.ReadLine
            Console.WriteLine(result)
            ligne = ligne + 1
 
        End While
 
 
 
 
        Console.ReadLine()
 
 
    End Sub
 
End Module

Merci pour vos réponse

[m4k-Hurrican]

Bonjour,

Tu peux faire un simple test du n° de ligne divisé par 3 pour conditionner ta sortie. Tu gardes que les lignes avec un reste à 1 (donc 1, 4, 7, ...)

Code :

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

1
2
3
        If (ligne Mod 3) = 1 Then
            Console.WriteLine(result)
        End If

[wallace1]

Bonsoir,

Il existe plusieurs solutions dont :

Code :

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

1
2
3
4
5
6
 
 Dim lines = System.IO.File.ReadAllLines("D:\test.txt")
        For i As Integer = 2 To lines.Count Step 3
            If i >= lines.Count Then Exit For
            MsgBox(lines(i))
        Next

[Kikibolderiz]

Merci pour vos réponse
J'ai essayé de faire ma propre solution entre-temps en essayant de passer par un tableau mais on peut dire que c'est syntaxiquement moche
L'idéal serait de pouvoir stocké les valeurs dans des variables. Je vais essayé d'adapter votre code.

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
 
Function ZoneText(ByVal fichier As String)
        Dim i As Integer = 0
        Dim Tableau(60) As String
        Dim monStreamReader As New System.IO.StreamReader(fichier)
 
 
        While i < 60
 
            Tableau(i) = monStreamReader.ReadLine
            i = i + 1
 
        End While
        monStreamReader.Close()
 
        Z1 = Tableau(1)
        Z2 = Tableau(4)
        Z3 = Tableau(7)
        Z4 = Tableau(10)
        Z5 = Tableau(13)
        Z6 = Tableau(16)
        Z7 = Tableau(19)
        Z8 = Tableau(22)
        Z9 = Tableau(25)
        Z10 = Tableau(28)
        Z11 = Tableau(31)
        Z12 = Tableau(34)
        Z13 = Tableau(37)
        Z14 = Tableau(40)
        Z15 = Tableau(43)
        Z16 = Tableau(46)
        Z17 = Tableau(49)
        Z18 = Tableau(52)
        Z19 = Tableau(55)
        Z20 = Tableau(58)
 
        Return Z1
        Return Z2
        Return Z3
        Return Z4
        Return Z5
        Return Z6
        Return Z7
        Return Z8
        Return Z9
        Return Z10
        Return Z11
        Return Z12
        Return Z13
        Return Z14
        Return Z15
        Return Z16
        Return Z17
        Return Z18
        Return Z19
        Return Z20
 
 
 
    End Function