Примечание
Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений Microsoft Jet выполняется в режиме песочницы, который не позволяет рассчитывать потенциально небезопасные выражения. Для получения дополнительных сведений выполните в справке поиск по словам "режим песочницы".
Возвращает значение типа Long, представляющее текущую позицию чтения и записи в открытом файле.
Синтаксис
Loc(filenumber)
Обязательный аргумент filenumber— это любой допустимый целочисленный номер файла.
Замечания
В следующей таблице приведены значения, возвращаемые для каждого из режимов доступа к файлу.
| Режим | Возвращаемое значение |
|---|---|
| Произвольный | Номер последней записи, считанной из файла или записанной в него. |
| Последовательный | Текущая позиция в байтах в файле, деленная на 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.