הפונקציה Seek

הערה: הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינה זמינה אם שירות הביטויים של Microsoft Jet פועל במצב ארגז חול, דבר המונע הערכה של ביטויים לא בטוחים שעלולים להיות לא בטוחים. לקבלת מידע נוסף אודות מצב ארגז חול, חפש את ' מצב ארגז חול ' בעזרה.

הפונקציה מחזירה אורך ארוך המציין את מיקום הקריאה/כתיבה הנוכחי בתוך קובץ שנפתח באמצעות המשפט Open .

תחביר

חיפוש ( filenumber )

הארגומנט הנדרש filenumber הוא מספר שלם המכיל מספר קובץ חוקי.

הערות

הפונקציה Seek מחזירה ערך בין 1 ל-2,147,483,647 (שווה ל-2 ^ 31-1), כולל.

הפעולות הבאות מתארות את ערכי ההחזרה עבור כל מצב גישה לקובץ.

הערך השכיח

ערך החזרה

אקראי

מספר הרשומה הבאה שנקראה או נכתבה

בינארי,
פלט,
הוספה,
קלט

מיקום בית שבו מתקיים הפעולה הבאה. הבית הראשון בקובץ נמצא במיקום 1, הבית השני נמצא במיקום 2 וכן הלאה.


דוגמה

הערה: הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול Visual Basic for Applications‏ (VBA). לקבלת מידע נוסף אודות עבודה עם VBA, בחר הפניית מפתח ברשימה הנפתחת שליד חיפוש והזן מונח אחד או יותר בתיבת החיפוש.

דוגמה זו משתמשת בפונקציה Seek כדי להחזיר את מיקום הקובץ הנוכחי. הדוגמה להנחה TESTFILE היא קובץ המכיל רשומות של הסוג המוגדר על-ידי המשתמש Record.

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

עבור קבצים שנפתחו במצב אקראי, חפש את הפונקציה מחזירה את מספר הרשומה הבאה.

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 מחזירה את מיקום הבית שבו הפעולה הבאה מתקיימת. נניח ש 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.

×