Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει μια τιμή Long που καθορίζει την τρέχουσα θέση ανάγνωσης/εγγραφής μέσα σε ένα ανοιχτό αρχείο.
Σύνταξη
Loc( αριθμός αρχείου )
Ο απαιτούμενος αριθμός αρχείουόρισμα είναι οποιοσδήποτε έγκυρος ακέραιος αριθμός αρχείου.
Παρατηρήσεις
Παρακάτω περιγράφεται η τιμή επιστροφής για κάθε λειτουργία πρόσβασης αρχείων:
|
Επικρατούσα τιμή |
Τιμή επιστροφής |
|
Τυχαία |
Αριθμός της τελευταίας εγγραφής που διαβάστηκε ή γράφτηκε στο αρχείο. |
|
Διαδοχική |
Τρέχουσα θέση byte στο αρχείο που διαιρείται με το 128. Ωστόσο, οι πληροφορίες που επιστρέφονται από το Loc για διαδοχικά αρχεία δεν χρησιμοποιούνται ούτε απαιτούνται. |
|
Δυαδικός |
Θέση του τελευταίου byte που διαβάζεται ή γράφεται. |
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση Loc για να επιστρέψει την τρέχουσα θέση ανάγνωσης/εγγραφής μέσα σε ένα ανοιχτό αρχείο. Αυτό το παράδειγμα προϋποθέτει ότι TESTFILE είναι ένα αρχείο κειμένου με λίγες γραμμές δείγματος δεδομένων.
Dim MyLocation, MyLine
' Open file just created.
Open "TESTFILE" For Binary As #1
' Loop until end of file.
Do While MyLocation < LOF(1)
' Read character into variable.
MyLine = MyLine & Input(1, #1)
' Get current position within file.
MyLocation = Loc(1)
' Print to the Immediate window.
Debug.Print MyLine; Tab; MyLocation
Loop
Close #1 ' Close file.
