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

Вход

Регистрация

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

 

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

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

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

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

EOF

EOF

Функция EOF

EOF(FileNumber)

Функция EOF(End Of File) проверяет, достигнут ли конец файла. С помощью этой функции можно избежать ошибок, возникающих при попытках чтения или записи после достижения конца файла. Функция EOF возвращает значение False до тех пор, пока не будет достигнут конец файла. При использовании с файлами, открытыми в режиме Random или Binary, функция EOF возвращает значение True, если последней выполненной инструкции Get не удалось считать целую запись; в противном случае возвращается значение False. Для файлов, открытых для доступа в режиме Binary, попытка чтения файла с помощью функции Input до возвращения функцией EOF значения True приводит к ошибке. При чтении двоичных файлов с помощью функции Input следует вместо функции EOF использовать функции LOF и Loc или использовать с функцией EOF инструкцию Get

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

Функция возвращает значение типа Integer, содержащее логическое значение True, при достижении конца файла
Примечание При обработке файлов, открытых с помощью Output, функция EOF всегда возвращает True

Параметры
FileNumber
Обязательный аргумент типа Integer, указывающий на любой допустимый номер файла
Пример
' В данном примере функция EOF
' используется для обнаружения конца файла. Предполагается,
' что MYFILE является текстовым файлом, который содержит
' несколько строк текста
Dim InputData
 ' Открываем файл для чтения
Open "MYFILE" For Input As #1
Do While Not EOF(1) ' Достигнут ли конец файла?
 Line Input #1, InputData ' Читаем строку данных
 Debug.Print InputData ' Выводим в окно отладки
Loop
' Закрываем файл
Close #1 
Категория
Функции работы с файлами

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