Petit exemple pour enregistrer

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 523 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

reginaemeline
Messages postés
1
Date d'inscription
lundi 28 juin 2010
Statut
Membre
Dernière intervention
28 juin 2010
-
je voudrais un code permettant d'enregistrer, modifier, ou supprimer associé à une base de données. merci
nonotim
Messages postés
2
Date d'inscription
mercredi 23 mai 2007
Statut
Membre
Dernière intervention
23 novembre 2007
-
comment je vais faire si javé pluseiurs fichier a regrouper dans un sle car si j etulise cmdialog sa sera long dimporté n est ce po rep moi sur ma boite a lettre merci
pointbin
Messages postés
71
Date d'inscription
lundi 5 janvier 2004
Statut
Membre
Dernière intervention
13 mai 2010
-
salut, y a pas un moyen de selctionner plusieurs fichier à la fois pour le showopen?
et de mettre un nom par default pour la sauvegarde(au lieu de taper le nom àa chaque fois.
merci.
STEPHANE6012
Messages postés
5
Date d'inscription
samedi 23 décembre 2006
Statut
Membre
Dernière intervention
10 juillet 2007
-
Merci pour ce code simple mais éfficace et qui fonctionne bien !!!
cs_curieux007
Messages postés
18
Date d'inscription
jeudi 23 novembre 2006
Statut
Membre
Dernière intervention
5 octobre 2011
-
slt jai bien compri la logique de ton code source,c cool mais jai pas trouve la commonde dialog ?? est ce savefiledialog? ou openfiledialog??
merci de repondre

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.