Функція Loc

Увага! : Цю статтю перекладено за допомогою служби машинного перекладу; див. застереження. Версію цієї статті англійською мовою див. тут для отримання довідки.

Примітка : Функції, метод об'єкта або властивість у цьому розділі описано буде вимкнуто, якщо вираз служби Microsoft Jet працює у режимі ізольованого програмного середовища, що запобігає обчислення потенційно небезпечних виразів. Додаткові відомості про режим ізольованого програмного середовища знайдіть «режим пісочниці» у вікні довідки.

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

Синтаксис

Loc ( filenumber )

Потрібен 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.

Примітка : Застереження про машинний переклад: Цю статтю перекладено комп’ютерною системою без втручання людини. Корпорація Майкрософт пропонує таку послугу, щоб іншомовні користувачі могли дізнаватися про продукти, служби й технології Microsoft. Оскільки статтю перекладено за допомогою служби машинного перекладу, вона може містити смислові, синтаксичні або граматичні помилки.

Отримуйте нові функції раніше за інших
Приєднайтеся до оцінювачів Office

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

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

Дякуємо за відгук! Схоже, вам може стати в нагоді допомога одного з наших спеціалістів служби підтримки Office, з яким ми вас можемо з’єднати.

×