Petit exemple pour enregistrer

Commenter

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

S'inscrire maintenant

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.

Du même auteur (Raoutas)