Функция Loc

Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".

Возвращает значение типа Long, представляющее текущую позицию чтения и записи в открытом файле.

Синтаксис

Loc( номер_файла )

Обязательный аргумент номер_файлааргумент представляет собой любой допустимый номер файла типа Integer.

Примечания

В следующей таблице приведены значения, возвращаемые для каждого из режимов доступа к файлу.

Режим

Возвращаемое значение

Произвольный

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

Последовательный

Текущая позиция в байтах в файле, деленная на 128. Значения, возвращаемые функцией Loc для последовательных файлов, не требуются и не используются.

Двоичный

Позиция последнего считанного или записанного байта.


Пример

Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (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.
Совершенствование навыков работы с Office
Перейти к обучению
Первоочередный доступ к новым возможностям
Присоединиться к программе предварительной оценки Office

Были ли сведения полезными?

Спасибо за ваш отзыв!

Благодарим за отзыв! Возможно, будет полезно связать вас с одним из наших специалистов службы поддержки Office.

×