Πώς να γράψετε ένα αρχείο σε Visual Basic 6

Visual Basic 6 ( VB6 ) περιλαμβάνει δύο μεθόδους για να γράψετε ένα αρχείο . Η " Γράψτε # " δήλωση εισάγει κόμματα ανάμεσα σε κάθε στοιχείο των δεδομένων και τα εισαγωγικά γύρω από χορδές , όπως είναι γραμμένο στο αρχείο . Αυτό εξοικονομεί το προγραμματιστή να χρειαστεί να δημιουργήσετε διαχωριστικά στον κατάλογο των αντικειμένων για μεταγενέστερη χρήση κατά τη διάρκεια μιας λειτουργίας εισόδου . Το "Print #" γράφει μια εικόνα των δεδομένων σε ένα αρχείο . Σε αυτή την περίπτωση , θα πρέπει να προσθέσετε διαχωριστικά για τα δεδομένα έτσι ώστε να εκτυπώνει σωστά. Οδηγίες
Η 1

Χρησιμοποιήστε VB6 για να δημιουργήσετε ένα νέο έργο , επιλέγοντας « Standard EXE » από τον κατάλογο των προτύπων όταν ανοίγει VB6 . Για να καταδειχθεί η διαδικασία εγγραφής αρχείων , να δημιουργήσετε μια φόρμα για τη συλλογή πληροφοριών αλληλογραφίας , η οποία στη συνέχεια θα γράψετε ένα αρχείο βιβλίου διευθύνσεων . Χρησιμοποιήστε το " Toolbox" στην αριστερή στήλη για να προσθέσετε ετικέτες , πλαίσια κειμένου και CommandButton ελέγχει στην οθόνη φόρμα για να συλλέξει τις απαραίτητες πληροφορίες και να γράψει το αρχείο . 2

Προσθέστε πέντε ετικέτες στη φόρμα με διπλό κλικ στο κεφαλαίο "A " στην Εργαλειοθήκη πέντε φορές . Κάθε Label καλύπτει το προηγούμενο οπότε κάντε κλικ και σύρετε τους, ένα κάθε φορά , τοποθετώντας στην κορυφή Ετικέτα στο κάτω μέρος της φόρμας και κάθε επόμενη ετικέτα πάνω από την προηγούμενη . Επαναλάβετε αυτή τη διαδικασία για να προσθέσετε πέντε Πλαίσια κειμένου από την Εργαλειοθήκη κάνοντας διπλό κλικ πέντε φορές στο εικονίδιο μικρή πλατεία που περιέχει τα πεζά γράμματα " ab ". Στη φόρμα , κάντε κλικ και σύρετε τους, ένα κάθε φορά το δικαίωμα των ετικετών , που ευθυγραμμίζουν το καθένα με αντιστοίχιση ετικετών της . Σημείωση : Ίσως χρειαστεί να διευρύνει τη μορφή ελαφρά χρησιμοποιώντας τις λαβές drag , μικρές πλατείες στις γωνίες και τα μέσα - πάνω και κάτω μέρος της φόρμας
εικόνων 3

Προσθέστε τρία CommandButtons στη φόρμα . διπλό κλικ στο μικρό ορθογώνιο στην εργαλειοθήκη βρίσκονται ακριβώς κάτω από το εικονίδιο Label τρεις φορές . Σύρετε το πρώτο πάνω από το πρώτο Label και Textbox . Σύρετε τα άλλα δύο οριζόντια κάτω από τις ετικέτες και Πλαίσια κειμένου . Κάντε κλικ σε κάθε στοιχείο ελέγχου για να εμφανίσετε τις ιδιότητες του σχετικά με το δικαίωμα , και να αλλάξετε τις " Λεζάντα " ιδιότητες που αρχίζουν με Label1 όπως παρακάτω , αλλά μην εισάγετε τα εισαγωγικά :

Αλλαγή Label1 λεζάντα "Όνομα"

Αλλαγή Label2 λεζάντα " οδό "

Αλλαγή Label3 λεζάντα "City "

Αλλαγή Label4 λεζάντα του «κράτους»

Αλλαγή Label5 λεζάντα " ZIP"
Η 4 >

Διαγράψτε το " Κείμενο " ιδιότητες των πέντε Πλαίσια κειμένου με τον ίδιο τρόπο .

Αλλαγή του προεπιλεγμένου " Λεζάντα " των τριών CommandBoxes στο "Δημιουργία αρχείου ", " Save Record" και "Έξοδος ". Κάντε κλικ στο κουμπί "Προβολή ", " Κώδικας " στο μενού πάνω VB6 για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε τις ακόλουθες γραμμές ακριβώς όπως εμφανίζονται :

Δημόσια WriteFile Όπως String

Private Sub Command1_Click ( )

WriteFile = InputBox ( " Εισάγετε ένα όνομα αρχείου για να γράψει με τη μορφή δίσκου : \\ Folder \\ filename.txt " )

Open WriteFile Για την Έξοδο Όπως # 1

Close # 1

End Sub
5

Προσθήκη ο κώδικας που ακολουθεί κάτω από τον κώδικα στο Βήμα 4 :

Private Sub Command2_Click ( )

Open WriteFile Για Προσάρτηση Όπως # 2

Γράψτε # 2 , Text1.Text ? Κείμενο2 . κείμενο ? Text3.Text ? Text4.Text ? Text5.Text

Close # 2

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

Text4.Text = " "

Text5.Text = " "

Text1.SetFocus

Sub End

6

Πατήστε το πλήκτρο " F5 " για να εκτελέσετε το πρόγραμμα . Κάντε κλικ στο κουμπί " Δημιουργία αρχείου " και πληκτρολογήστε μια θέση και όνομα αρχείου . Συμπληρώστε τη φόρμα και κάντε κλικ στο κουμπί " Αποθήκευση εγγραφής . " Επαναλάβετε για να προσθέσετε μερικές περισσότερες εγγραφές . Βγείτε από το πρόγραμμα και να εντοπίσετε το αρχείο στον υπολογιστή σας , όπου και δημιουργήθηκε . Ανοίξτε το με το Windows Notepad για να δείτε τα αποτελέσματα . Αλλάξτε την εντολή "Write" στον κώδικα για να "Print" και να εκτελέσετε ξανά το πρόγραμμα . Re - ανοιχτό με WordPad για να δείτε τη διαφορά μεταξύ των δύο μεθόδων εγγραφής αρχείου .
Η
εικόνων