Функция Loc

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

Синтаксис

Loc(filenumber)

Обязательный аргументfilenumber — это любой допустимый целочисленныйномер файла.

Замечания

Ниже показаны возвращаемые значения для каждого режима доступа к файлу:

Режим	Возвращаемое значение
Случайный	Номер последней записи, считанной из файла или записанной в файл.
Последовательные	Позиция текущего байта, разделенная на 128. Но данные, возвращаемые функцией Loc для последовательных файлов, никогда не используются и не нужны.
Binary	Позиция последнего прочитанного или записанного байта.

Пример

В этом примере функция Loc используется для возвращения текущей позиции чтения/записи в открытом файле. В этом примере предполагается, что TESTFILE это текстовый файл с несколькими строками примеров данных.

Dim MyLocation, MyLine
Open "TESTFILE" For Binary As #1    ' Open file just created.
Do While MyLocation < LOF(1)    ' Loop until end of file.
    MyLine = MyLine & Input(1, #1)    ' Read character into variable.
    MyLocation = Loc(1)    ' Get current position within file.
' Print to the Immediate window.
    Debug.Print MyLine; Tab; MyLocation
Loop
Close #1    ' Close file.

См. также

• Функции (Visual Basic для приложений)

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.