Comment faire pour créer un fichier texte dans Visual Basic 6

Le langage de programmation Visual Basic a évolué au fil des ans et fonctionne sur la plate-forme puissante .NET de Microsoft maintenant. Si vous avez une ancienne version de Visual Basic tels que VB6, vous pouvez toujours l'utiliser pour créer des applications interactives utiles. Comme son homologue de .NET récent, VB6 contient des bibliothèques de code pré-construit qui aident les développeurs prototype et créent des logiciels utiles rapidement. Par exemple, si votre application a besoin de créer et d'écrire des fichiers texte, la bibliothèque de code VB6 peut simplifier votre tâche.

Instructions

1 Cliquez sur le bouton du menu Démarrer de Windows et tapez "Visual Basic." Lorsque l'icône Visual Basic apparaît dans la fenêtre des résultats de recherche cliquez sur cette icône pour lancer de Visual Basic.

2 Cliquez sur "EXE standard" puis cliquez sur "OPEN". Un nouveau formulaire nommé "Form1" apparaît dans la fenêtre d'édition.

3 Localisez la boîte à outils sur le côté gauche de l'interface utilisateur. Double-cliquez sur l'outil "Bouton de commande". VB6 place un bouton sur le formulaire nommé "Command1."

4 Double-cliquez sur ce bouton. La fenêtre de code ouvre et affiche le code suivant:

Private Sub Command1_Click ()

End Sub

Ce code est exécuté lorsqu'un utilisateur clique sur le bouton. Vous allez utiliser ce bouton pour tester le code qui écrit dans un fichier texte.

5 Placez le code suivant avant la fermeture "End Sub" déclaration:

Dim textFile As String

Dim textToWrite As String

textFile = "C: \ MonDossier \ MyFile.txt"

textToWrite = "Ceci est un texte"

Ouvrir textFile Pour sortie Comme n ° 1

Imprimer # 1, textToWrite

Close # 1

La variable nommée "textFile" tient au chemin du nom du fichier dans lequel vous souhaitez écrire. Dans cet exemple, ce fichier est "C: \ MonDossier \ MyFile.txt." Remplacez cela avec un nom de chemin que vous le souhaitez. Si vous choisissez un fichier qui existe déjà, VB6 efface ce fichier et l'écrase avec le texte suivant. Si vous choisissez un nom de fichier qui n'existe pas, VB6 crée un nouveau fichier.

6 Localisez la variable "textToWrite". Sa valeur est "Ceci est le texte." Remplacez cette valeur avec le texte que vous souhaitez apparaître dans le fichier texte. La déclaration "Ouvrir" ouvre le fichier en mode de sortie. La déclaration a également besoin d'un identificateur de fichier. Dans cet exemple, cet identificateur est le numéro 1. Vous pouvez choisir un numéro que vous souhaitez que l'identifiant. Le "Imprimer" déclaration écrit votre texte dans le fichier, et "Fermer" déclaration ferme. Si vous modifiez le "Open" identificateur de fichier de déclaration à une autre valeur, comme # 4, changer dans le "Imprimer" et déclarations "Fermer" aussi bien. Les trois états doivent faire référence à la même valeur.

7 Appuyez sur "F5". VB6 exécute l'application et affiche le formulaire contenant le bouton.

8 Cliquez sur le bouton. VB6 crée un nouveau fichier texte si elle n'existe pas et écrit le texte que vous avez attribué à la variable "textToWrite".

Conseils et avertissements

  • Dans cet exemple, vous définissez le texte de sortie manuellement. Vous pouvez également extraire le texte à partir d'une zone de texte, un autre contrôle VB6 ou même une base de données. Après l'obtention d'une chaîne de texte, l'assigner à la variable "textToWrite" comme décrit dans ces étapes. Pour ajouter de nouvelles données à un fichier existant, remplacer le mot "sortie" avec "Append" dans la déclaration qui se lit: "Open textFile pour la sortie en tant que n ° 1."