Функция Loc

Статья
11/05/2008

Обновлен: Ноябрь 2007

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

Public Function Loc(ByVal FileNumber As Integer) As Long

Параметры

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

Исключения

Тип исключения	Номер ошибки	Условие
IOException	52	FileNumber не существует.
IOException	54	Недопустимый режим файла.

См. столбец "Номер ошибки", если выполняется обновление приложений 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)