Функция

Loc

Синтаксис

Loc(filenumber)

Функция Loc возвращает текущую позицию чтения/записи в файле. Возвращает значение типа Long, зависящее от режима открытия файла:
Random - Номер последней считанной или записанной записи в файл
Sequential - Текущая позиция в файле, деленная на 128
Binary - Позицию последнего считанного или записанного байта

Параметры

Пример использования

Dim MyLocation, MyLine
'открываем созданный файл
Open "TESTFILE" For Binary As #1
Do While MyLocation < LOF(1) 'цикл до конца файла
  MyLine = MyLine & Input(1, #1) 'считываем символ
  MyLocation = Loc(1) 'определяем текущую позицию
  Debug.Print MyLine; Tab; MyLocation
  Loop
Close #1 'закрываем файл

Дополнительная информация

Категория: Работа с файловой системой

Еще функции: CurDir, Dir, EOF, FileAttr, FileDateTime, FileLen, FreeFile, GetAttr, Input, Loc, LOF, Seek

Логин:

Пароль:

Регистрация, забыли пароль?