הפונקציה Seek

חשוב: מאמר זה תורגם בתרגום מכונה, ראה כתב ויתור. תוכל למצוא את הגרסה באנגלית של המאמר כאן לעיונך.

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

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

תחביר

Seek ( 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

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

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

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×