Функция Loc

Loc(FileNumber)

Функция Loc(Location of current position) определяет номер последней прочитанной/записанной записи или байта для файла, открытого инструкцией Open

Возвращаемое значение

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

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

Параметры
FileNumberОбязательный параметр - любое действительное значение типа Integer, указывающим номер файла

Пример

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

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 ' Закрываем файл
Категория
Функции работы с файлами