Lire ligne par ligne un fichier .TXT avec VB [Résolu/Fermé]

Signaler
Messages postés
18
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
1 avril 2013
-
Messages postés
18
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
1 avril 2013
-
Bonjour,
J'essaye de faire un code en C++ sur Visual Basic 2010 Express mais j'ai récemment heurté un problème.

J'aurais besoin de savoir comment afficher ligne par ligne (c'est a dire une ligne après l'autre a l'aide d'un Timer) le contenus d'un fichier Texte (*.TXT) sur un seul Textbox.text dans mon Form1.vb.

Petit info pouvant être utile: Le fichier Texte (*.TXT) est importer par ce code:


        Dim Open As New OpenFileDialog() 
        Dim myStreamReader As System.IO.StreamReader 
        Open.Filter = "Text [*.txt*]|*.txt|All Files [*.*]|*.*" 
        Open.CheckFileExists = True 
        Open.Title = "OpenFile" 
        Open.ShowDialog(Me) 
        Try 
            Open.OpenFile() 
            myStreamReader = System.IO.File.OpenText(Open.FileName) 
            TextBox4.Text = myStreamReader.ReadToEnd() 

        Catch ex As Exception 

        End Try 

    End Sub


Merci beaucoup d'avance pour la réponse.

1 réponse

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 128
Bonjour,
Un bouton, un TextBox et un Timer..
Public Class Form2
    Dim Open As New OpenFileDialog()
    Dim myStreamReader As System.IO.StreamReader

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Open.Filter = "Text [*.txt*]|*.txt|All Files [*.*]|*.*"
        Open.CheckFileExists = True
        Open.Title = "OpenFile"
        Open.ShowDialog(Me)
        Try
            Open.OpenFile()
            myStreamReader = System.IO.File.OpenText(Open.FileName)
            'TextBox1.Text = myStreamReader.ReadToEnd()
            Timer1.Enabled = True
        Catch ex As Exception
            MsgBox("Fichier non conforme")
        End Try

    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Not myStreamReader.EndOfStream Then
            TextBox1.Text = myStreamReader.ReadLine()
        End If
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Timer1.Interval = 2000 '2 secondes
    End Sub
End Class

A+
4
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 76687 internautes nous ont dit merci ce mois-ci

Messages postés
18
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
1 avril 2013

Merci beaucoup pour ton aide lermite222.
C'est exactement ce dont j'avais besoin.
Sujet résolu !