[VB.Net] Lire fichier ligne par ligne

Homer -  
Kalissi Messages postés 221 Statut Membre -
Bonjour,
J'aimerais lire un fichier texte ligne par ligne en vb.net.
Par exemple le fichier contient x lignes et je voudrais que mon programme recupere l1 = ligne 1, l2 = ligne 2, etc...

Merci d'avance pour votre aide.
A voir également:

5 réponses

Utilisateur anonyme
 
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.
4
Homer
 
Merci c'est exactement ce que je cherchais.
Il y avait quelques erreurs.
Mais voilà le code corrigé :
        Dim nbr_ligne As Integer = 0
        Dim ligne As String
        Dim sr As New StreamReader("C:\test.txt")
        While sr.Peek <> -1
            nbr_ligne += 1
            ligne = sr.ReadLine()
            MsgBox("la ligne" & nbr_ligne & ": " & ligne)
        End While
        MsgBox("Nombre de ligne=" & nbr_ligne)
0
Homer
 
Et aussi j'aimerais savoir comment récuperer le nombre de lignes dans un fichier texte.
Merci
0
s3lkis Messages postés 9 Statut Membre 1
 
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++
0
Homer
 
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.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Kalissi Messages postés 221 Statut Membre 20
 
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
0