Πρόσβαση σε αρχεία κειμένου
Για να δημιουργήσουμε ένα αρχείο (file)
με κείμενο από τη Visual Basic ακολουθούμε την παρακάτω διαδικασία:
- Συσχετίζουμε το αρχείο με έναν ακέραιο αριθμό με τον οποίο θα αναφερόμαστε
στο αρχείο αυτό με την εντολή open
open "names.txt" for output as #1
- Γράφουμε στο αρχείο με την εντολή print # αν το αρχείο θα διαβαστεί
από ανθρώπους
print #1, Name, Number
- Γράφουμε στο αρχείο με την εντολή write # αν το αρχείο θα διαβαστεί
από άλλο πρόγραμμα
write #1, Name, Number
- Όταν γράψουμε όλα τα στοιχεία που θέλουμε στο αρχείο, διακόπτουμε το
συσχετισμό με την εντολή close
close #1
Παράδειγμα:
open "numbers.txt" for output as #1
for i = 1 to 10
write #1, i, string(i, ".")
next i
close #1
Για να διαβάσουμε αρχεία με κείμενο ακολουθούμε την παρακάτω διαδικασία:
- Συσχετίζουμε το αρχείο με έναν ακέραιο αριθμό με τον οποίο θα αναφερόμαστε
στο αρχείο αυτό με την εντολή open
open "names.txt" for input as #1
- Διαβάζουμε από το αρχείο με την εντολή input #
input #1, Name, Number
- Ελέγχουμε αν το αρχείο έχει άλλα στοιχεία με τη συνάρτηση eof
- Όταν διαβάσουμε όλα τα στοιχεία που θέλουμε στο αρχείο, διακόπτουμε το
συσχετισμό με την εντολή close
close #1
Παράδειγμα:
open "numbers.txt" for input as #1
do while not eof(1)
input #1, num, s
msgbox str(num) + s
loop
close #1
- Σε μεγάλα προγράμματα μπορούμε να αφήνουμε το σύστημα να βρίσκει
ακέραιους αριθμούς με την εντολή FreeFile της οποίας το αποτέλεσμα αναθέτουμε
σε μια μεταβλητή.
- Αντί για output μπορούμε να ανοίξουμε ένα αρχείο σε τρόπο εγγραφής
append για να προσθέσουμε στοιχεία σε ένα υπάρχον αρχείο.
- Κάθε εγγραφή (record) παράγει μια νέα γραμμή.
Αν θέλουμε να ετοιμάσουμε την εγγραφή με πολλαπλά print μπορούμε να
τερματίσουμε το print με , για να ακολουθήσει
άλλο πεδίο (field) ή με ; για να συνεχίσει το προηγούμενο
πεδίο.