הערה
הפונקציה, פעולת השירות, האובייקט או המאפיין המתוארים בנושא זה אינם זמינים אם Microsoft Jet Expression Service פועל במצב ארגז חול (Sandbox), דבר שמונע הערכה של ביטויים שעלולים להיות לא בטוחים. לקבלת מידע נוסף על מצב ארגז חול, חפש "מצב ארגז חול" בעזרה.
החזרת Long המציין את מיקום הקריאה/כתיבה הנוכחי בתוך קובץ פתוח.
תחביר
Loc(filenumber)
ארגומנט מספר הקובץהנדרש הוא כל מספר קובץ חוקי של מספר שלם.
הערות
להלן ערך ההחזרה עבור כל מצב גישה לקבצים:
| הערך השכיח | ערך החזרה |
|---|---|
| אקראי | מספר הרשומה האחרונה שנקראה מהקובץ או שנכתבה אליו. |
| רציף | מיקום הבית הנוכחי בקובץ חלקי 128. עם זאת, מידע המוחזר על-ידי Loc עבור קבצים רציפים אינו בשימוש ואינו נדרש. |
| בינארי | מיקום הבית האחרון שנקרא או נכתב. |
דוגמה
הערה
הדוגמאות הבאות מדגימות את השימוש של פונקציה זו במודול 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.