Visual Basic 6 ( VB6 ) comprend deux méthodes pour écrire un fichier . Le "Write #" instruction insère des virgules entre chaque élément de données et les guillemets autour des chaînes telles qu'elles sont écrites dans le fichier . Cela permet d'économiser le programmeur d'avoir à créer des séparateurs dans la liste des objets pour une utilisation ultérieure lors d'une opération d'entrée . Le "Print #" écrit une image des données dans un fichier . Dans ce cas, vous devez ajouter des séparateurs pour les données de sorte qu'il s'imprime correctement . Instructions
1
utilisation VB6 pour créer un nouveau projet en sélectionnant "EXE Standard» de la liste des modèles lors de VB6 s'ouvre. Pour démontrer le processus d'écriture de fichier , créer un formulaire pour recueillir des informations de diffusion, qui écrira alors un fichier de carnet d'adresses. Utilisez la " boîte à outils " dans la colonne de gauche pour ajouter des étiquettes , zones de texte et les contrôles CommandButton à l'affichage de formulaire pour recueillir les informations nécessaires et écrire le fichier .
2
Ajouter cinq étiquettes à la forme en double-cliquant sur le capital "A" dans la boîte à outils à cinq reprises. Chaque étiquette recouvre la précédente pour cliquer et faire glisser un à la fois , en plaçant le haut label en bas à gauche de la forme et de chaque étiquette succédant au-dessus de la précédente . Répétez ce processus pour ajouter des cinq zones de texte de la boîte à outils , double-cliquez cinq fois sur la petite icône carré contenant les lettres minuscules «AB ». Sur le formulaire , cliquez et glissez-les un à la fois à la droite des étiquettes , alignant chacun avec son étiquette correspondante . Note: Vous devez probablement pour agrandir la forme légèrement en utilisant le glisser les poignées , petits carrés dans les coins et mi- haut et en bas du formulaire
3
Ajoutez trois boutons de commande au formulaire en . double-cliquant sur le petit rectangle dans la boîte à outils trouve directement sous l'icône de l'étiquette trois fois . Faites glisser le premier au-dessus de la première étiquette et zone de texte. Faites glisser les deux autres horizontalement sous les étiquettes et dans les encadrés . Cliquez sur chaque commande pour afficher ses propriétés sur la droite, et modifier les propriétés de " légende" en commençant par Label1 ci-dessous , mais ne pas insérer les guillemets :
Changement Label1 légende de "Nom"
< p> Changement Label2 légende de " Street"
Changement Label3 légende de la «Ville »
Changement Label4 légende à «État»
Changement Label5 légende de " ZIP" < br >
Supprimer les propriétés "Texte" des cinq zones de texte de la même façon .
4
Changer la valeur par défaut "Légende" des trois CommandBoxes à " Créer un fichier ", "Enregistrer record" et " Quitter". Cliquez sur "View ", " code " dans le menu en haut de VB6 pour ouvrir la fenêtre de code. Tapez les lignes suivantes exactement comme ils apparaissent :
WriteFile publique As String
Private Sub Command1_Click ()
WriteFile = InputBox (" Saisissez un nom de fichier à écrire dans le format entraînement : \\ Folder \\ NomFichier.txt " )
Ouvert WriteFile pour la production que n ° 1
Close # 1 End Sub
5
Ajouter le code suivant sous le code à l'étape 4 :
Private Sub Command2_Click ()
Ouvert WriteFile pour l'ajout Comme # 2
Write # 2, Text1.Text ; Text2 . Text; Text3.Text ; Text4.Text ; Text5.Text
Fermer # 2
Text1.Text = ""
Text2.Text = ""
< p> Text3.Text = ""
Text4.Text = " "
Text5.Text = ""
Text1.SetFocus
End Sub
6
Appuyez sur " F5" pour exécuter le programme. Cliquez sur le bouton " Créer un fichier " et entrez un emplacement et un nom de fichier. Remplissez le formulaire et cliquez sur "Save Record. " Répétez l'opération pour ajouter quelques records . Quittez le programme et localisez le fichier sur votre PC où il a été créé . Ouvrez-le avec Notepad de Windows pour voir les résultats . Changer la commande " Write" dans le code "Imprimer " et exécutez à nouveau le programme . Re - ouvert avec WordPad pour voir la différence entre les deux méthodes d'écriture de fichiers.