[VB.Net] Lire fichier ligne par ligne

Fermé
Homer - 5 mars 2010 à 18:55
Kalissi Messages postés 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 - 23 sept. 2013 à 19:05
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
5 mars 2010 à 21:42
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
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
Et aussi j'aimerais savoir comment récuperer le nombre de lignes dans un fichier texte.
Merci
0
s3lkis Messages postés 7 Date d'inscription vendredi 5 mars 2010 Statut Membre Dernière intervention 18 février 2013 1
5 mars 2010 à 19:20
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
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 218 Date d'inscription jeudi 2 mai 2013 Statut Membre Dernière intervention 15 juillet 2019 20
23 sept. 2013 à 19:05
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