Συνάρτηση Loc

Σημείωση: Θέλουμε να σας παρέχουμε το πιο πρόσφατο περιεχόμενο βοήθειας στη γλώσσα σας όσο πιο σύντομα γίνεται. Αυτή η σελίδα έχω μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας ενημερώσετε στο κάτω μέρος αυτής της σελίδας εάν οι πληροφορίες σάς φάνηκαν χρήσιμες; Εδώ θα βρείτε το άρθρο στα Αγγλικά, για να το συμβουλεύεστε εύκολα.

Σημείωση: Η συνάρτηση, τη μέθοδο, αντικείμενο ή ιδιότητα που περιγράφονται σε αυτό το θέμα είναι απενεργοποιημένη, εάν η Microsoft Jet Expression Service εκτελείται σε λειτουργία φίλτρου, η οποία δεν επιτρέπει την αξιολόγηση της ενδεχομένως μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία sandbox, κάντε αναζήτηση για "η λειτουργία φίλτρου" στη Βοήθεια.

Επιστρέφει έναν ακέραιο μεγάλου μήκους που καθορίζει την τρέχουσα θέση ανάγνωσης/εγγραφής μέσα σε ένα ανοιχτό αρχείο.

Σύνταξη

Loc ( αριθμός_αρχείου )

Τα απαιτούμενα αριθμός_αρχείουόρισμα είναι οποιαδήποτε έγκυρη ακέραιο αριθμός αρχείου.

Παρατηρήσεις

Παρακάτω περιγράφονται την τιμή επιστροφής για κάθε λειτουργία πρόσβασης αρχείου:

Λειτουργία

Τιμή επιστροφής

Τυχαία

Αριθμός της τελευταίας εγγραφής ανάγνωση από ή εγγραφή στο αρχείο.

Διαδοχικές

Η τρέχουσα θέση byte στο αρχείο διά 128. Ωστόσο, πληροφορίες που επιστρέφονται από Loc για διαδοχικές αρχεία δεν χρησιμοποιούνται ούτε απαιτείται.

Δυαδικός

Θέση του τελευταίου byte ανάγνωση ή εγγραφή.


Παράδειγμα

Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε ένα έργο Visual Basic για τη λειτουργική μονάδα 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.
Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×