Συνάρτηση Seek

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

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

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

Σύνταξη

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

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

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

Αναζήτηση επιστρέφει μια τιμή μεταξύ 1 και 2.147.483.647 (ίσο με 2 ^ 31-1), συμπεριλαμβανομένων των ακραίων τιμών.

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

Λειτουργία

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

Τυχαία

Αριθμός της επόμενης εγγραφής ανάγνωση ή εγγραφή

Δυαδικό,
εξόδου,
Προσάρτηση,
εισαγωγής

Θέση byte με την οποία πραγματοποιείται η επόμενη λειτουργία. Το πρώτο byte σε ένα αρχείο είναι στη θέση 1, το δεύτερο byte βρίσκεται στη θέση 2 και ούτω καθεξής.


Παράδειγμα

Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε ένα έργο Visual Basic για τη λειτουργική μονάδα Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στο στοιχείο Αναζήτηση και πληκτρολογήστε μία ή περισσότερες όρων στο πλαίσιο αναζήτησης.

Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση Seek για να επιστρέψει την τρέχουσα θέση του αρχείου. Το παράδειγμα προϋποθέτει TESTFILE είναι ένα αρχείο που περιέχει τις εγγραφές από το χρήστη τύπο Record.

Type Record    ' Define user-defined type.
ID As Integer
Name As String * 20
End Type

Για τα αρχεία που έχουν ανοίξει σε κατάσταση λειτουργίας τυχαία, Seek επιστρέφει αριθμό της επόμενης εγγραφής.

Dim MyRecord As Record    ' Declare variable.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
Do While Not EOF(1) ' Loop until end of file.
Get #1, , MyRecord ' Read next record.
' Print record number to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.

Για τα αρχεία που ανοίξατε στο λειτουργίες εκτός λειτουργίας τυχαία, Seek επιστρέφει τη θέση byte με την οποία πραγματοποιείται η επόμενη λειτουργία. Ας υποθέσουμε ότι TESTFILE είναι ένα αρχείο που περιέχει μερικές γραμμές κειμένου.

Dim MyChar
Open "TESTFILE" For Input As #1 ' Open file for reading.
Do While Not EOF(1) ' Loop until end of file.
MyChar = Input(1, #1) ' Read next character of data.
' Print byte position to the Immediate window.
Debug.Print Seek(1)
Loop
Close #1 ' Close file.
Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

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

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

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

×