Discussion :

[Vincinho]

Bonjour tout le monde !!

Dans le cadre d'un developpement, je dois insérer des grilles de tarifs dans une base de données SQL. Pour ce qui est de la base de données je m'en debrouillerais mais j'ai un probleme pour lire le fichier texte correctement, en fait le code que j'ai fais me trouve une ligne supplémentaire. Voici le 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
    Sub Main()
        Try
            Dim monStreamReader As StreamReader = New StreamReader("C:\fichier.txt")
            Dim ligne As String
            Dim nbligne As Integer = 0
 
            Do
                ligne = monStreamReader.ReadLine()
                nbligne = nbligne + 1
 
            Loop Until ligne Is Nothing
 
            monStreamReader.Close()
            MsgBox(nbligne.ToString)
        Catch ex As Exception
 
        End Try
 
    End Sub

Ici je ne fais qu'afficher le nombre de ligne et pour le tester j'ai fais un fichier contenant 2 lignes mais ma msgbox m'affiche 3. Ca me pose des problemes ensuite pour le traitement car une ligne vide ne peut etre traiter.

Avez vous une solution a ce probleme ?

Merci beaucoup !!

[yroubag]

Salut, tu as juste à changer un peu ta logique de boucle. C'est juste que tu comptes ta ligne qui est à Nothing.

Code :

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

1
2
3
4
5
6
 
ligne = reader.ReadLine()
while ligne isnot nothing
  nbLigne += 1
  ligne = reader.ReadLine()
end while