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