Lire et enregistrer un fichier texte

Commenter

Contenu du snippet

Code permettant de lire et d'enregistrer un fichier TEXTE

Source / Exemple : 


Private Sub Ouvrir_Click()
Dialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers|*.*"
Dialog.ShowOpen
If Dialog.FileName <> "" Then
Text1.Text = ""
Open Dialog.FileName For Input As #1
Do While Not EOF(1)
Input #1, ligne
Text1.Text = Text1.Text & ligne & vbCrLf
Loop
Close
End If
End Sub

Private Sub Enregistrer_Click()
Dialog.Filter = "Fichiers texte (*.txt)|*.txt|Tous les fichiers|*.*"
Dialog.ShowSave
If Dialog.FileName <> "" Then
Open Dialog.FileName For Append As #2
Open App.Path & "\temp.txt" For Append As #1
Print #1, Text1.Text
Close
Kill (Dialog.FileName)
Name App.Path & "\temp.txt" As Dialog.FileName
End If
End Sub

Conclusion :


Ne pas oublier de mettre Text1 (ou autre si vous l'avez appelé autrement) en multiligne :o)

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Zikoom)