[VB.NET] lire un fichier .TXT ligne par ligne

Résolu
kleenax Messages postés 6 Date d'inscription mardi 17 avril 2012 Statut Membre Dernière intervention 20 avril 2012 - 19 avril 2012 à 18:41
kleenax Messages postés 6 Date d'inscription mardi 17 avril 2012 Statut Membre Dernière intervention 20 avril 2012 - 20 avril 2012 à 12:11
Bonjour,
J'essaye de trouvez comment faire pour lorsque l'on ouvre un fichier .txt avec VB.NET une variable " ligne " prenne la valeur de la première ligne du fichier puis après un tour de boucle prenne la valeur de la deuxième ligne et ainsi de suite ... merci d'avance.

6 réponses

ehjoe Messages postés 728 Date d'inscription samedi 4 avril 2009 Statut Membre Dernière intervention 30 mars 2014 4
20 avril 2012 à 08:57
Bonjour kleenex,

Tu écris :


...
lorsque l'on ouvre un fichier .txt avec VB.NET une variable " ligne " prenne la valeur de la première ligne du fichier puis après un tour de boucle prenne la valeur de la deuxième ligne et ainsi de suite
...



Voici le code testé :

Public Class Form1
  Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    ' CREATION FICTIVE D UN FICHIER POUR L EXEMPLE
    Dim p As New System.IO.StreamWriter(CStr(My.Application.Info.DirectoryPath & "\ficLigne.txt"))
    ' le fichier est dans le dossier de l'exe, sinon indiquuer le chemin <>
    p.WriteLine("herisson")
    p.WriteLine("chat")
    p.WriteLine("poisson")
    p.WriteLine("cochon")
    p.Close()
  End Sub

  Sub Form1_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
    Dim ligne As String = "" ' lit à l'affichage de la form pour exemple
    Dim numero As Integer = 0
    Dim p As New System.IO.StreamReader(CStr(My.Application.Info.DirectoryPath & "\ficLigne.txt"))
    numero = 0
    While p.Peek() >= 0
      numero = numero + 1
      ligne = p.ReadLine()
      MsgBox("ligne " & numero & vbLf & ligne, vbInformation)
    End While
    p.Close()
  End Sub
End Class


Cordialement, Joe.
3
Rejoignez-nous