Mini bloc not

Soyez le premier à donner votre avis sur cette source.

Vue 4 021 fois - Téléchargée 235 fois

Description

Voila un petit programme qui permet d'ouvrire un fichier de modifier son contenu et de l' enregistrer

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
310
Date d'inscription
jeudi 4 septembre 2003
Statut
Membre
Dernière intervention
9 juin 2005
1
oui c'est tres basic mais c'est pour les debutant

Dim est pour declarer les variable oui bien que ce ne soit pas une obligation sous vb

Car si tu ne met pas

Option explicit dans le general tu n'a pas besoin de declarer tes varial mais mieux vaut le faire

As String est pour declarer que ta variable sera une chaine de caractere et As integer Signifi que ta variable sera numeric
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
11
c'est tres basic...
Messages postés
947
Date d'inscription
mercredi 19 novembre 2003
Statut
Membre
Dernière intervention
5 avril 2008
3
Eh je suis nul en Vbscript , a vrai dire jesaye de apprendre le maximun de language de programmation , mais peut tu mexpliquer ce qu'est :
Dim CheminFichier As String
Dim a As Integer

Dim c'est une declaration de variable ? quel difference entre As String et As Integer ?
Messages postés
146
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
9 janvier 2005

Je pense vraiment que l'on a pas besoin de ça içi...
Messages postés
184
Date d'inscription
mercredi 27 novembre 2002
Statut
Membre
Dernière intervention
18 août 2005

ba... c mini koi....
;)

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.