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

Visual Basic 6.0 fournit un moyen simple pour ouvrir les fichiers de texte et de lire leur contenu dans une zone de texte sur l'écran, ainsi que rédiger un nouveau texte dans un fichier. Seuls onze lignes de code sont nécessaires pour la première étape, et dix suffiront pour la deuxième opération. Le processus utilise les fonctions d'entrée et de sortie dans Visual Basic, ainsi que d'une petite fenêtre pour recueillir de l'information de l'utilisateur.

Choses que vous devez

  • 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.

Conseils & Avertissements

  • 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.
» » » » Comment lire et écrire du texte Files Avec Visual Basic 6.0