[VB.Net] Lire fichier ligne par ligne

bonjour,
au debut du module

imports system.io

dans la procedure

dim nbr_lignes as integer=0
dim ligne as string
dim sr as new stream reader("chemin" )
while sr.peek<>-1
nbr_ligne+=1
ligne=sr.realine()
msgbox("la ligne" & nbr_ligne & ": " & ligne)
end while
msgbox("Nombre de ligne=" & nbr_ligne)

c'est pas testé, si ce code contient des erreurs mets moi au courant.

Et aussi j'aimerais savoir comment récuperer le nombre de lignes dans un fichier texte.
Merci

salut, un exemple ici : http://tresorsdevie.free.fr/selkis/index.php?option=com_content&view=article&id=80:lireecriretxt&catid=37:codes-sources&Itemid=72

lecture ligne a ligne ou d'un seul flux

a++

Merci mais ce n'est pas trop ce que je cherche.
En fait, par exemple si mon fichier texte (C:\fichier.txt) contient :

bonjour
au revoir
salut
ça va?

J'aimerais que ça crée une variable de type string (ou de type array, mais je ne sais pas trop comment utiliser des tableaux en vb.net) pour chaque ligne, par exemple :

nbligne = 4
ligne1 = "bonjour"
ligne2 = "au revoir"
ligne3 = "salut"
ligne4 = "ça va?"

Sachant qu'il y a x ligne(s) (donc un nombre indéterminé de lignes)

Merci de votre aide.

Bonjour,

Exemple type :

    Private Function LectureLigne() As List(Of String)

        Dim lstString As New List(Of String)
        Dim ligne As String
        Dim sr As New StreamReader("C:\test.txt")

        While sr.Peek <> -1
            ligne = sr.ReadLine()
            lstString.Add(ligne)
            MsgBox("la ligne" & lstString.Count - 1 & ": " & lstString(lstString.Count - 1))
        End While

        MsgBox("Nombre de ligne=" & lstString.Count)

        Return lstString

    End Function

p.s. si tu développe sous VB2008 ou +

la nouvelle déclaration de type Short, Integer et Long est :

Dim nbrLigne1 As Int16 ' Short
Dim nbrLigne2 As Int32 ' Integer
Dim nbrLigne As Int64 ' Long

K