lecture d'un fichier multilignes vb7

Question

Lut


Dans un ptit prog, un boutton enregistre la valeur du textbox dans un fichier au format append.


De ce fait, le fichier comporte une ligne de plus &#224; chaque enregistrement.


Comment faire pour lire et afficher toutes les lignes dans un unique textbox multilignes, quel que soit le nombre de lignes &#233;crites dans le fichier ?


Merci d'avance.

Chris

jpleroisse · Answer

Private Sub Command1_Click()
Dim crlf, tout, texte
On Error Resume Next
crlf = Chr(13) + Chr(10)
Open "C:\TonFichier.txt" For Input As #1
Line Input #1, texte
tout = texte
If Len(tout) <> 0 Then
While Not EOF(1)
Line Input #1, texte
tout = tout + crlf + texte
Wend
Text1.Text = tout
End If
Close #1
End Sub

Si tu modifes le fichier, tu l'enregistres en quittant.

Private Sub cmdQuitter_Click()
Open "C:\TonFichier.txt" For Output As #1
Print #1, Text1.Text
Close #1
End
End Sub

jpleroisse

Lecture d'un fichier multilignes vb7

1 réponse

Discussions similaires