L'exemple de cet article décrit comment ouvrir et enregistrer des fichiers txt avec VB. Partagez-le avec tout le monde pour votre référence. Les détails sont les suivants :
Private Sub cmdsave_Click()Dim filelocation As String' charge l'enregistrement sous la boîte commondialog1.ShowSave filelocation = commondialog1.FileName' append enregistre sur le fichier si cela aide Ouvrir l'emplacement du fichier pour ajouter en tant que #1 Imprimer #1, text1.text Fermer #1End SubPrivate Sub cmdopen_Click () Dim filelocation As String' show open box commondialog1.ShowOpen filelocation = commondialog1.FileName' input fichiers dans text1.text Ouvrir l'emplacement du fichier pour l'entrée comme #1Do jusqu'à EOF(1) Entrée #1, données text1.text = text1.text + Data + vbNewLine EOF (1) Boucle fermée #1End Sub
J'espère que cet article sera utile à la programmation VB de chacun.