Comment lire et écrire du texte Files Avec Visual Basic 6.0

Instructions

1. Ouvrez Visual Basic 6.0, cliquez sur Fichier et choisissez Nouveau projet. Sélectionnez EXE standard dans la liste des modèles. Double-cliquez sur le contrôle zone de texte dans la boîte à outils sur la gauche pour ajouter ceci à la forme. Changer la hauteur du formulaire dans le volet Propriétés sur le droit à 5000.

2. Apportez les modifications suivantes aux propriétés de zone de texte:
   Hauteur = 3000
   Multiligne = Vrai
   Les barres de défilement = Les deux
   Largeur = 3000

3. 
   
   
   

   Double-cliquez sur le contrôle Button dans la boîte à outils. Modifiez la propriété Caption pour lire le fichier. Répétez cette opération pour ajouter un deuxième contrôle Button, en changeant la propriété Caption ici pour écrire le fichier.

4. Double-cliquez sur le bouton de lecture de fichier pour ouvrir la fenêtre de code. Entrez ce code sur la page de visualisation de code:
   Fonction ReadFile ()
   Dim ReadFileName As String
   ReadFile = InputBox ("Entrez le nom du fichier à lire:")
   Ouvrir ReadFile Pour l'entrée Comme # 1
   ReadFile = Entrée $ (LOF (1), 1)
   Text1.Text = ReadFile
   Close # 1
   End Function
   Private Sub Command1_Click ()
   ReadFile
   End Sub

5. Double-cliquez sur le bouton Graver le Fichier pour ouvrir la fenêtre de code. Entrez ce code:
   Fonction WriteFile ()
   Dim WriteFileName As String
   WriteFileName = InputBox ("Entrez le nom de fichier")
   Ouvrir WriteFileName Pour la sortie Comme # 2
   Imprimer # 2, Text1.Text
   Close # 1
   End Function
   Private Sub Command2_Click ()

   
   
   
   

   WriteFile

   End Sub

6. Exécutez le programme en appuyant sur F5 et cliquez sur la commande Fichier Lire en premier. Entrez le nom d'un fichier texte connu, y compris le suffixe .txt. Le fichier devrait apparaître dans la zone de texte. Si vous cliquez maintenant sur fichier d'écriture et de fournir un nom différent, vous allez créer un nouveau fichier, mais en double. Alternativement, si vous supprimez le texte ou cliquez simplement sur le fichier Lisez avant de charger un fichier, puis tapez quelque chose de nouveau, vous pouvez créer un tout nouveau fichier.

• Pour ajouter de nouvelles données à un fichier existant, modifiez la ligne dans la section WriteFile de l'Open WriteFileName Pour la sortie Comme # 2 à Ouvrir WriteFileName Pour Append Comme # 2.
• Vous devez utiliser des numéros de fichiers différents pour chaque fichier ouvert et fermer chaque fichier lorsque vous avez terminé.
• Modifier la taille de la zone de texte pour l'adapter à vos propres besoins.
• Pour une application plus robuste, il serait utile d'ajouter routines erreur de piégeage en cas l'utilisateur mistypes un nom de fichier ou a un fichier déjà ouvert.