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