[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
6
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