Функция Loc
Обновлен: Ноябрь 2007
Возвращает значение типа Long, указывающее текущую позицию для ввода-вывода в открытом файле.
Public Function Loc(ByVal FileNumber As Integer) As Long
Параметры
- FileNumber
Обязательно. Любой допустимый номер файла типа Integer.
Исключения
Тип исключения |
Номер ошибки |
Условие |
|---|---|---|
FileNumber не существует. |
||
Недопустимый режим файла. |
См. столбец "Номер ошибки", если выполняется обновление приложений Visual Basic 6.0, в которых используется неструктурированная обработка ошибок. (Можно сравнить номер ошибки с Свойство Number (объект Err).) Однако по возможности следует заменять такую систему управления ошибками на Обзор структурной обработки исключений в Visual Basic.
Заметки
Для функции Loc индексация ведется от нуля. При ее использовании ее для получения первого байта в файле возвращается 0.
Функция Loc предназначена для обеспечения обратной совместимости и может оказать влияние на производительность. Для неустаревших версий приложений объект My.Computer.FileSystem предоставляет более высокую производительность. Дополнительные сведения см. в разделе Доступ к файлам с помощью Visual Basic.
Ниже приведены возвращаемые значения для каждого режима доступа к файлу.
Режим доступа |
Возвращаемое значение |
|---|---|
Random |
Номер последней прочитанной или записанной записи файла. |
Sequential |
Позиция текущего байта в файле, деленная на 128. Однако информация, возвращаемая функцией Loc для последовательных файлов, не используется и не запрашивается. |
Binary |
Позиция последнего прочитанного или записанного байта. |
Пример
В этом примере функция Loc используется для возвращения текущей позиции ввода-вывода в открытом файле. В этом примере предполагается, что MyFile представляет собой текстовый файл, состоящий из нескольких строк образцов данных.
Dim location As Long
Dim oneChar As Char
FileOpen(1, "C:\TESTFILE.TXT", OpenMode.Binary)
While location < LOF(1)
Input(1, oneChar)
location = Loc(1)
WriteLine(1, location & ControlChars.CrLf)
End While
FileClose(1)
Примечания для разработчиков приложений для интеллектуальных устройств
Данная функция не поддерживается.
Требования
Пространство имен: Microsoft.VisualBasic
**Модуль:**FileSystem
**Сборка:**Visual Basic (библиотека времени выполнения, в Microsoft.VisualBasic.dll)