Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Справочники

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 57669
Главная » Справочники » Функции VBA » Функции работы с файлами

Loc

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

Счетчики: 5752 | Добавил: Serge_007
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!