Lire ligne par ligne un fichier .TXT avec VB

Résolu
9048679 Messages postés 27 Statut Membre -  
9048679 Messages postés 27 Statut Membre -
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.

A voir également:

1 réponse

Réponse 1 / 1
lermite222 Messages postés 9042 Statut Contributeur 1 191
 
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
9048679 Messages postés 27 Statut Membre
 
Merci beaucoup pour ton aide lermite222.
C'est exactement ce dont j'avais besoin.
Sujet résolu !
0