Πώς να δημιουργήσετε ένα αρχείο κειμένου σε Visual Basic 6

Η γλώσσα προγραμματισμού Visual Basic έχει εξελιχθεί με τα χρόνια και τώρα τρέχει σε ισχυρή πλατφόρμα NET της Microsoft . . Εάν έχετε μια παλαιότερη έκδοση του Visual Basic , όπως VB6 , μπορείτε να το χρησιμοποιήσετε για να δημιουργήσετε χρήσιμες , διαδραστικές εφαρμογές . Όπως και νεότερα . NET ομόλογό του , VB6 περιέχει προ-χτισμένο βιβλιοθήκες κώδικα που βοηθούν τους προγραμματιστές να δημιουργήσουν πρωτότυπο και χρήσιμο λογισμικό γρήγορα . Για παράδειγμα , αν η αίτησή σας πρέπει να δημιουργήσει και να γράψει σε αρχεία κειμένου , βιβλιοθήκη κώδικα VB6 μπορεί να απλοποιήσετε την εργασία σας . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί του μενού Έναρξη των Windows και πληκτρολογήστε " Visual Basic ". Όταν το εικονίδιο Visual Basic εμφανίζεται στο παράθυρο των αποτελεσμάτων αναζήτησης , κάντε κλικ σε αυτό το εικονίδιο για να ξεκινήσει Visual Basic . 2

Κάντε κλικ στο " Standard EXE , " και στη συνέχεια κάντε κλικ στο " OPEN ". Μια νέα μορφή που ονομάζεται " Φόρμα1 " εμφανίζεται στο παράθυρο επεξεργασίας .
Εικόνων 3

Εντοπίστε την εργαλειοθήκη στην αριστερή πλευρά της διεπαφής χρήστη . Κάντε διπλό κλικ στο εργαλείο "Command Button " . VB6 τοποθετεί ένα κουμπί στη φόρμα που ονομάζεται " Command1 . "
Η

4 Κάντε διπλό κλικ σε αυτό το κουμπί . Το παράθυρο κώδικα ανοίγει και εμφανίζει τον ακόλουθο κώδικα :

Private Sub Command1_Click ( )

End Sub

Αυτός ο κωδικός εκτελείται όταν ένας χρήστης κάνει κλικ στο κουμπί . Θα χρησιμοποιήσετε αυτό το κουμπί για να δοκιμάσετε τον κώδικα που γράφει σε ένα αρχείο κειμένου
5

Τοποθετήστε τον ακόλουθο κώδικα πριν από το κλείσιμο " End Sub" δήλωση: .

Δημ. textfile As String

Dim textToWrite Όπως String

tEXTFILE = " C : \\ MyFolder \\ myfile.txt "

textToWrite = " Αυτό είναι κείμενο"

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

Print # 1 , textToWrite

Close # 1

η μεταβλητή που ονομάζεται " tEXTFILE » κατέχει στην διαδρομή προς το όνομα του αρχείου στο οποίο θέλετε να γράψετε . Σε αυτό το παράδειγμα , ότι το αρχείο είναι "C: . \\ MyFolder \\ myfile.txt " Αντικαταστήστε ότι με οποιοδήποτε όνομα της διαδρομής σας αρέσει . Αν επιλέξετε ένα αρχείο που υπάρχει ήδη , VB6 διαγράφει το αρχείο και αντικαθιστά το με το επόμενο κείμενο . Εάν επιλέξετε ένα όνομα αρχείου που δεν υπάρχει , VB6 , δημιουργεί ένα νέο αρχείο .
Η 6

Εντοπίστε το " textToWrite " μεταβλητή . Η αξία της είναι " Αυτό είναι κείμενο . " Αντικαταστήστε την τιμή αυτή με το κείμενο που θέλετε να εμφανίζεται στο αρχείο κειμένου . Το "Open" δήλωση ανοίγει το αρχείο σε λειτουργία εξόδου . Η δήλωση πρέπει επίσης αναγνωριστικό αρχείου . Σε αυτό το παράδειγμα , ότι το αναγνωριστικό είναι # 1 . Μπορείτε να επιλέξετε οποιοδήποτε αριθμό θέλετε ως αναγνωριστικό . Το "Print " δήλωση γράφει το κείμενό σας στο αρχείο , και το " Κλείσιμο" δήλωση κλείνει . Εάν αλλάξετε το " Άνοιγμα" αναγνωριστικό αρχείου δήλωσης σε άλλη αξία , όπως # 4 , αλλάξτε το "Print" και " Κλείσιμο" καταστάσεις, καθώς και . Και οι τρεις δηλώσεις θα πρέπει να αναφέρονται στην ίδια τιμή .
Η

7 Πατήστε το πλήκτρο " F5 ". VB6 τρέχει την εφαρμογή και εμφανίζει τη φόρμα που περιέχει το κουμπί .
8

Κάντε κλικ στο κουμπί . VB6 δημιουργεί ένα νέο αρχείο κειμένου, αν δεν υπάρχει και γράφει το κείμενο που αποδίδεται στο " textToWrite " μεταβλητή .
Η
εικόνων