Mini bloc not
Description
Voila un petit programme qui permet d'ouvrire un fichier de modifier son contenu et de l' enregistrer
Fait vite fait pour le besoin d'un amis
Source / Exemple :
Option Explicit
Dim CheminFichier As String
Dim a As Integer
Private Sub Command1_Click()
a = FreeFile
' *** Ecrire dans un fichier ***
' Open Ouvre le fichier contenu dans le commande dialogue
' OutPut Ouvre vide et remplie par la variable
' Append Ouvre rajoute le contenu de la variable
Open CheminFichier For Output As #a
Print #a, MaTextBox.Text
Close #a
End Sub
Private Sub Command3_Click()
' ouverture de commande dialogue pour charger un fichier quelquonce
CommonDialog1.ShowOpen
' met le chemin renvoyer par le commande dialogue dans une variable declarer en genral
CheminFichier = CommonDialog1.FileName
Dim a As Long
a = FreeFile()
Open CheminFichier For Input As #a
'Inscrit le contenu du fichier dans un txtbox multiligne
MaTextBox.Text = Input(LOF(a), a)
' ferme le fichier
Close #a
End Sub
Conclusion :
Fait vite fait pour le besoin d'un amis
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.