Lire ligne par ligne un fichier .TXT avec VB
Résolu/Fermé
9048679
Messages postés
18
Date d'inscription
jeudi 8 décembre 2011
Statut
Membre
Dernière intervention
1 avril 2013
-
Modifié par 9048679 le 28/01/2012 à 06:43
9048679 Messages postés 18 Date d'inscription jeudi 8 décembre 2011 Statut Membre Dernière intervention 1 avril 2013 - 28 janv. 2012 à 18:04
9048679 Messages postés 18 Date d'inscription jeudi 8 décembre 2011 Statut Membre Dernière intervention 1 avril 2013 - 28 janv. 2012 à 18:04
A voir également:
- Lire ligne par ligne un fichier .TXT avec VB
- Lire le coran en français pdf - Télécharger - Histoire & Religion
- Fichier rar - Guide
- Hors ligne instagram - Guide
- Vente en ligne particulier - Guide
- Aller à la ligne excel - Guide
1 réponse
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
28 janv. 2012 à 16:01
28 janv. 2012 à 16:01
Bonjour,
Un bouton, un TextBox et un Timer..
A+
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+
28 janv. 2012 à 18:04
C'est exactement ce dont j'avais besoin.
Sujet résolu !