Bonjour
j'ai un probleme de lecture de fichier.j'essai de lire le fichier ligne par ligne
mettre la ligne dans une variable que j'affiche dans un textbox
le probleme que j'ai c'est que juste la derniere ligne qui s'affiche et pourtant j'ai fais une boucle pour tous lire voilà mon code
merci de m'aider de voir ou ça bloque
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Dim File As TextStream Dim Path_File As String Dim ligne As String Dim i As Integer i = 0 ligne = 0 Path_File = "c:\test.txt " Set File = SystemeFichier.OpenTextFile(Path_File, ForReading) While Not File.AtEndOfStream line = File.ReadLine i = i + 1 Text1.Text = ligne Wend File.Close
[Edit] Balises Code powered by Xo, merci d'y penser [/Edit]
Partager