Applies ToAccess для Microsoft 365 Access 2021 Access 2019 Access 2016

Примітка.: Функція, метод, об’єкт або властивість, описана в цьому розділі, недоступна, якщо 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; MyLocationLoopClose #1    ' Close file.

Потрібна додаткова довідка?

Потрібні додаткові параметри?

Ознайомтеся з перевагами передплати, перегляньте навчальні курси, дізнайтесь, як захистити свій пристрій тощо.

Спільноти допомагають ставити запитання й відповідати на них, надавати відгуки та дізнаватися думки висококваліфікованих експертів.