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

Вход

Регистрация

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

 

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

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

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

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

Input

Input

Функция Input

Input(Number, [#]FileNumber)
Input$(Number, [#]FileNumber)
InputB(Number, [#]FileNumber)
InputB$(Number, [#]FileNumber)

Служит для чтения символьных или байтовых данных из файла, открытого инструкцией Open в режиме текстового ввода или бинарного доступа

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

Возвращает значение типа String, содержащее символы или байты из файла, открытого в режиме Input или Binary

Параметры
Часть Описание
Number Обязательный. Любое действительное числовое выражение, указывающее число возвращаемых символов или байтов
FileNumber Обязательный. Любой действительный номер файла

Примечания

Данные, считываемые с помощью функции Input, обычно записываются в файл с использованием оператора Print # или Put. Эта функция применима только к файлам, открытым в режиме Input или Binary

В отличие от оператора Input #, функция Input возвращает все считанные символы, в том числе запятые, символы возврата каретки, символы перевода строки, кавычки и начальные пробелы

Для файлов, открытых для доступа в режиме Binary, попытка чтения файла с помощью функции Input при возвращении функцией EOF значения True, приводит к ошибке. При чтении двоичных файлов с помощью функции Input следует вместо функции EOF использовать функции LOF и Loc или применять с функцией EOF оператор Get

Замечание Для байтовых данных, содержащихся в текстовых файлах, пользуйтесь функцией InputB. В этом случае параметр Number указывает число байт (а не символов), которые следует вернуть

Пример
' В данном примере функция Input
' применяется для последовательного чтения символов
' из файла и вывода их в окно Immediate
' Предполагается, что текстовый файл TESTFILE существует
' и содержит несколько строк данных для примера
Dim MyChar
Open "TESTFILE" For Input As #1  ' открываем файл
Do While Not EOF(1)  ' цикл до конца файла
 MyChar = Input(1, #1)  ' читаем один символ
 Debug.Print MyChar  ' выводим в окно Immediate
Loop
Close #1 ' закрываем файл
Категория
Функции работы с файлами

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