Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо Microsoft Jet Expression Service працює в режимі ізольованого програмного середовища, що запобігає обчисленню потенційно небезпечних виразів. Щоб отримати докладні відомості про режим ізольованого програмного середовища, у вікні довідки шукайте за запитом "режим ізольованого програмного середовища".
Повертає довге ціле, що вказує поточну позицію читання й записування у відкритому файлі.
Синтаксис
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.
