Πώς να τροποποιήσετε ένα αρχείο κειμένου στην Access 2003 Visual Basic

Το πρόγραμμα βάσης δεδομένων της Microsoft Access έχει μια γλώσσα προγραμματισμού που ονομάζεται Visual Basic ( VB ), χτισμένη σε αυτό . Μπορείτε να προγραμματίσετε VB να αυτοματοποιήσει κάποια από τις εντολές της Access » , συμπεριλαμβανομένων και εκείνων για την τροποποίηση των αρχείων κειμένου . Τροποποιώντας αυτά τα αρχεία με VB περιλαμβάνει τη χρησιμοποίηση του " ανοίξει " εντολή , σε συνδυασμό με τις δηλώσεις που εκτελούν τις επιθυμητές αλλαγές στο κείμενο . Τροποποίηση αρχεία κειμένου με την Access «γλώσσα VB σας επιτρέπει να επεξεργάζονται αναγνώσιμη από τον άνθρωπο δεδομένα που είναι αποθηκευμένα στο σκληρό σας δίσκο , ίσως και ως προ - επεξεργασίας για περαιτέρω διαχείριση των δεδομένων μέσω της Access « πρότυπο διασύνδεσης . Τα πράγματα που θα χρειαστείτε για Microsoft Access 2003
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Ανοικτής Πρόσβασης , στη συνέχεια, πατήστε το πλήκτρο " Alt " + " F11 " για να μπείτε στο VB ολοκληρωμένο περιβάλλον ανάπτυξης ( IDE ) . 2

Κάντε κλικ στο "Εισαγωγή" μενού τίτλο , ακολουθούμενη από την " ενότητα " του μενού . Η εντολή αυτή εισάγει ένα νέο παράθυρο κώδικα για να εισάγετε τον κωδικό του προγράμματος
εικόνων 3

Επικολλήστε τον παρακάτω κώδικα οπουδήποτε μέσα στο νέο παράθυρο κώδικα : .

Public Sub ModifyTextFile ( )

Δημ. someText

Open " c : \\ infile.txt " Για Input Όπως # 1

Άνοιγμα " c : \\ outfile.txt " Για την Έξοδο Καθώς # 2

Do While Not EOF ( 1 )

Γραμμή Input # 1 , someText

«κείμενο Διαδικασία εδώ

Print # 2 , someText

Loop

Close # 1

Close # 2

Kill " c : \\ infile.txt "
Όνομα "c : \\ outfile.txt "

Ως " c : \\ infile.txt "

End Sub

αυτές τις δηλώσεις ανοιχτά αρχεία κειμένου για την ανάγνωση και τη γραφή , στη συνέχεια, να διαβάσετε κάθε γραμμή του αρχείου εισόδου . Το "Print " δήλωση γράφει κάθε γραμμή , χωρίς μεταποίηση , στο αρχείο κειμένου εξόδου . Μετά το πρόγραμμα κλείνει τα αρχεία εισόδου και εξόδου , ​​διαγράφει το αρχείο εισόδου και μετονομάζει το αρχείο εξόδου με το όνομα αρχείου του αρχείου εισόδου του . Αυτό το αποτέλεσμα αυτής της διαδικασίας είναι το αρχικό αρχείο εισόδου. Το σχόλιο " κείμενο Διαδικασία εδώ " δείχνει πού μπορείτε να εισάγετε τον κωδικό που τροποποιεί το κείμενο εισόδου . Θα τροποποιήσετε το κείμενο εισόδου στα επόμενα βήματα .
Η 4

Πληκτρολογήστε πάνω από το σχόλιο " « κείμενο Διαδικασία εδώ " με τη δήλωση " someText = UCase ( someText ) , " η οποία θα μετατρέψει κάθε χαρακτήρα στο αρχείο εισόδου σε κεφαλαία . Η δράση αυτή αποτελεί ένα παράδειγμα τροποποίησης του αρχείου εισόδου .
5

Δημιουργία , χρησιμοποιώντας το Σημειωματάριο ή άλλο πρόγραμμα επεξεργασίας κειμένου , ένα αρχείο κειμένου με οποιοδήποτε πεζό κείμενο που θέλετε . Αποθηκεύστε το αρχείο ως "c : \\ infile.txt , " στη συνέχεια κλείστε το αρχείο . Οι δράσεις αυτές θα επιτρέψουν την υπορουτίνα που γράψατε στο Βήμα 3 για να διαβάσετε το αρχείο .
Η 6

Κάντε κλικ σε οποιαδήποτε δήλωση στο " ModifyTextFile " υπορουτίνας , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να εκτελέσετε το πρόγραμμα .

7

Re - ανοίξτε το αρχείο που δημιουργήσατε στο βήμα 5 . Επεξεργαστή κειμένου σας θα εμφανίσει το ίδιο κείμενο που έγραψε με κεφαλαία γράμματα
8

Πληκτρολογήστε πάνω , στο VB IDE , τη δήλωση " someText = UCase ( someText ) " με αυτές τις νέες δηλώσεις : .
Αν

( someText = " πριν ") Στη συνέχεια

someText = " μετά "

End If

9

Άνοιγμα " c : \\ infile.txt " στον επεξεργαστή κειμένου και πληκτρολογήστε τουλάχιστον μία εμφάνιση της λέξης " πριν ", στη συνέχεια, αποθηκεύστε ξανά και κλείστε το αρχείο .
Η 10

Εκτελέστε ξανά το πρόγραμμα , όπως κάνατε στο Βήμα 6 .

11

Re - open " c : \\ infile.txt . " Όλες οι εμφανίσεις της λέξης "πριν" , εμφανίζονται τώρα " μετά ". Αυτό δείχνει πως το πρόγραμμα κειμένου τροποποίησης σας μπορεί να αντικαθιστά μια συμβολοσειρά κειμένου με ένα άλλο .
Η
εικόνων