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