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

Повертає довге значення, яке вказує поточну позицію читання та записування у відкритому файлі.

Синтаксис

Loc ( filenumber )

Обов'язковийаргумент для filemenuber – це будь-яке дійсне ціле число номер файлу.

Примітки

Нижче наведено опис повернутого значення для кожного режиму доступу до файлу.

Мода

Значення, що повертається

Випадково.

Кількість останнього запису, що читається або записується до файлу.

Послідовних

Поточне місце байтів у файлі, розділеному на 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.

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

Отримуйте нові функції раніше за інших

Приєднатися до Microsoft оцінювачів >

Ця інформація корисна?

Наскільки ви задоволені якістю мови?
Що вплинуло на ваші враження?

Дякуємо за відгук!

×