Petit exemple pour enregistrer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 471 fois - Téléchargée 65 fois

Contenu du snippet

Pour faire marcher ce code il faut un controle CommonDialog apellé CommonDialog, 2 TextBox apellé txt1 et txt2, et 2 boutons de commande apellé cmdEnregistrer et cmdOuvrir. J'espère que ça pourra aider les débutants à créer leurs propre fichier avec vb.

Source / Exemple :


Private Sub cmdEnregistrer_Click()

Dim Fichier As String

  'Le répertoire de l'application sera le repertoire initial du CommonDialog
  CommonDialog.InitDir = App.Path
  'Affiche le contrôle CommonDialog pour enregistrer un fichier
  CommonDialog.ShowSave
  'La variable fichier prendra le chemin du fichier sélectionné dans le CommonDialog
  Fichier = CommonDialog.FileName

  'Si la variable fichier n'est pas vide on enregistre...
  If Fichier <> "" Then
    'Lecture des 2 TextBoxs et écriture dans le fichier
    Open Fichier For Output As #1
      'Écrit le texte dans le fichier.
      Print #1, txt1.Text 'La première ligne du fichier prendra le contenu du txt1
      Print #1, txt2.Text 'La deuxième ligne du fichier prendra le contenu du txt2
    Close #1 'Ferme le fichier.
  End If

End Sub

Private Sub cmdOuvrir_Click()

Dim TextLine As String
Dim Fichier As String
  
  'Le répertoire de l'application sera le repertoire initial du CommonDialog
  CommonDialog.InitDir = App.Path
  'Affiche le contrôle CommonDialog pour ouvrir un fichier
  CommonDialog.ShowOpen
  'La variable fichier prendra le chemin du fichier sélectionné dans le CommonDialog
  Fichier = CommonDialog.FileName

  'Si la variable fichier n'est pas vide on l'ouvre...
  If Fichier <> "" Then
    'Lecture des fichiers et écriture du contenu dans les TextBoxs
    Open Fichier For Input As #1 'Ouvre le fichier."
      Line Input #1, TextLine 'Lecture de la 1ère ligne affectée au TextBox txt1
      txt1.Text = TextLine
      Line Input #1, TextLine 'Lecture de la 2ème ligne affectée au TextBox txt2
      txt2.Text = TextLine
    Close #1 'Ferme le fichier.
  End If

End Sub

Conclusion :


Si vous voulez des explications écrivez moi.

A voir également

Ajouter un commentaire

Commentaires

cs_Lau
Messages postés
26
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
25 octobre 2002
-
Cool !
redfinger222
Messages postés
4
Date d'inscription
samedi 4 septembre 2004
Statut
Membre
Dernière intervention
8 septembre 2004
-
Merci bcp, très utile :D
DeathVB
Messages postés
44
Date d'inscription
mardi 16 novembre 2004
Statut
Membre
Dernière intervention
31 octobre 2006
-
slt,
si l'utilisateur entre le nom du fichier (à enregistrer)
puis il clique sur "Annuler", selon ton code le fichier sera enregistrer :s
et c'est pas logique !

a+
reeg
Messages postés
1
Date d'inscription
mercredi 4 janvier 2006
Statut
Membre
Dernière intervention
26 octobre 2006
-
j te remerci c est tres for
titythebiker
Messages postés
6
Date d'inscription
jeudi 23 novembre 2000
Statut
Membre
Dernière intervention
27 octobre 2006
-
bonjour,
merci pour ce code source il est vraiment génial!
merci !

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.