Примечание: Функция, метод, объект или свойство, описанные в данном разделе, отключаются, если служба обработки выражений 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.