Πώς να Διαβάστε & Write αρχεία κειμένου με το Visual Basic 6.0

Visual Basic 6.0 παρέχει ένα απλό τρόπο για να ανοίξει τα αρχεία κειμένου και να διαβάσετε το περιεχόμενό τους σε ένα πλαίσιο κειμένου στην οθόνη , καθώς και να γράψουν νέα κειμένου σε ένα αρχείο . Μόνο έντεκα γραμμές του κώδικα που απαιτείται για το πρώτο στάδιο , και δέκα θα αρκεί για τη δεύτερη πράξη . Η διαδικασία χρησιμοποιεί τις λειτουργίες εισόδου και εξόδου σε Visual Basic , καθώς και ένα μικρό παράθυρο για τη συλλογή πληροφοριών από το χρήστη . Τα πράγματα που θα χρειαστείτε
Visual Basic 6.0
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοίξτε Visual Basic 6.0 , κάντε κλικ στο File και επιλέξτε New Project . Επιλέξτε Standard EXE από τον κατάλογο των προτύπων . Κάντε διπλό κλικ στο στοιχείο ελέγχου πλαισίου κειμένου στην εργαλειοθήκη στα αριστερά για να προσθέσετε αυτό το έντυπο . Αλλάξτε το ύψος της φόρμας στο παράθυρο Ιδιότητες για το δικαίωμα στην 5000 2

Κάντε τις ακόλουθες αλλαγές στα TextBox Properties : . Ύψος = 3000Multiline = TrueScrollbars = BothWidth = 3000
Η Φτηνές 3

διπλό κλικ στο στοιχείο ελέγχου κουμπιού στην εργαλειοθήκη . Αλλάξτε την ιδιότητα Caption να διαβάσει το αρχείο . Επαναλάβετε αυτή τη διαδικασία για να προσθέσετε ένα δεύτερο στοιχείο ελέγχου κουμπιού , αλλάζοντας την ιδιότητα Caption εδώ για να γράψει το αρχείο .
Η

4 Κάντε διπλό κλικ στο κουμπί Ανάγνωση αρχείου για να ανοίξει το παράθυρο κώδικα . Εισάγετε τον κωδικό αυτό στην σελίδα προβολή κώδικα : ReadFile Function ( ) Dim ReadFileName Όπως StringReadFile = InputBox ( " Πληκτρολογήστε το όνομα του αρχείου ως εξής: " ) Open ReadFile Για Input Όπως # 1ReadFile = $ εισόδου ( LOF ( 1 ) , 1 ) Text1 . κείμενο = ReadFileClose # 1End FunctionPrivate Sub Command1_Click ( ) ReadFileEnd Sub
5

κάντε διπλό κλικ στο κουμπί Γράψτε Αρχείο για να ανοίξετε το παράθυρο κώδικα . Εισάγετε τον κωδικό : WriteFile Function ( ) Dim WriteFileName Όπως StringWriteFileName = InputBox ( " Πληκτρολογήστε το όνομα αρχείου " ) Άνοιγμα WriteFileName Για την Έξοδο Καθώς # 2Print # 2 , # Text1.TextClose 1End FunctionPrivate Sub Command2_Click ( ) WriteFileEnd Sub
Η 6

Εκτελέστε το πρόγραμμα πατώντας F5 και κάντε κλικ στην εντολή Αρχείο Διαβάστε πρώτα. Πληκτρολογήστε το όνομα ενός γνωστού αρχείο κειμένου , συμπεριλαμβανομένου του txt κατάληξη . . Το αρχείο θα πρέπει να εμφανιστεί στο πλαίσιο κειμένου . Αν τώρα κάντε κλικ στο Write αρχείων και παρέχει ένα διαφορετικό όνομα , θα δημιουργήσετε ένα νέο αντίγραφο του αρχείου , αλλά . Εναλλακτικά , εάν διαγράψετε το κείμενο ή απλά κάντε κλικ στο Διαβάστε αρχείου πριν από την φόρτωση ενός αρχείου και στη συνέχεια πληκτρολογήστε κάτι νέο , μπορείτε να δημιουργήσετε ένα εντελώς νέο αρχείο .
Η
εικόνων