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
| Public Shared Function ReadByLine(ByVal path As String) As ArrayList
'DECLARER un lecteur de fichier
Dim monlecteur As StreamReader
'DECLARER une collection pour les lignes du fichier
Dim meslignes As New ArrayList
meslignes.Clear()
If File.Exists(path) Then
Try
'path est le chemin complet du fichier à lire
monlecteur = New StreamReader(path)
With monlecteur
'POSITIONNER le flux au début du fichier
.BaseStream.Seek(0, SeekOrigin.Begin)
'TANT QUE le lecteur a quelquechose à lire
While (.Peek > 0)
'LIRE une ligne du fichier et l'ajouter à meslignes
meslignes.Add(.ReadLine)
End While
End With
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
'FERMER le lecteur en tout etat de cause
monlecteur.Close()
End Try
End If
Return meslignes
End Function
End Class |
Partager