CODES SOURCES

- MODIFICATION DE FICHIERS -

 

 

Exercice : On a une interface composée d'une zone de texte multi - ligne permettant d'afficher et de modifier le contenu d'un fichier texte. Au chargement de l'application, le contenu du fichier est chargé dans la zone de texte. L'utilisateur peut modifier le contenu du fichier en modifiant le texte dans la zone de texte puis en cliquant sur le bouton "Ecrire".

Remarque : Il faut initialiser la propriété "Multiline" de la zone de texte à "True" afin d'afficher le contenu du fichier sur plusieurs lignes si nécessaire. Le fichier texte lu et mis à jours se nomme "MonFichier.txt" et se trouve dans "C:\".

La plupart du code concernant la modification du fichier texte se trouve dans l'événement "Click" du bouton "Ecrire".

 

L'interface :

 

 

Code de la section "général" :

 

Option Explicit
Dim ligne As String      'Déclaration d'une variable de stockage
'Variable qui indique le numéro du prochain fichier libre en mémoire
Dim NumFich As Integer
 

 

Code du bouton "Ecrire" :


Private Sub CmdEcrire_Click()
ligne = TxtText.Text      'La variable reçoit le contenu de la zone de texte
'FreeFile indique le numéro du prochain fichier libre en mémoire
NumFich = FreeFile
'Ouverture du fichier
Open "C:\MonFichier.txt" For Output As #NumFich      'Ouverture en écriture
Print #NumFich, ligne      'Ecriture du contenu d'une variable dans le fichier
Close #NumFich             'Fermeture
End Sub

 

Code du bouton "Quitter" :


Private Sub CmdQuitter_Click()
End                                 'Quitter l'application
End Sub
 

 

Code du chargement de la feuille :
 

Private Sub Form_Load()
'FreeFile indique le numéro du prochain fichier libre en mémoire
NumFich = FreeFile
'Ouverture du fichier
Open "C:\MonFichier.txt" For Input As #NumFich      'Ouverture en lecture
'Chargement du contenu du fichier
While Not EOF(NumFich)      'Tant qu'on a pas atteint la fin du fichier
Line Input #NumFich, ligne      'Lire la ligne et la stocker dans la variable "Ligne"
TxtText.Text = TxtText.Text + ligne + vbCrLf      'Affichage de la ligne et retour chariot
Wend
Close #NumFich                      'Fermeture
End Sub

 

 

 

 

 

   

 

          ©Copyright Webmaster 2002