Чтение и запись в файл, открытый с помощью оператора Open. Операторы Input, Line Input, Write и функция EOF. Примеры использования в VBA Excel.
Операторы чтения и записи в файл
Оператор Input #
Оператор Input # используется только с файлами, открытыми в режиме Input или Binary. При прочтении стандартные строковые или числовые значения присваиваются переменным без изменения.
Синтаксис оператора Input #:
1 |
Input #Номер_файла, Переменные |
Компоненты оператора Input #:
- Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
- Переменные – обязательный параметр, представляющий из себя список переменных, разделенных запятой, которым присваиваются значения, считанные из файла.
Особенности применения оператора Input #:
- Элементы данных в файле должны быть указаны в том же порядке, что и переменные в списке Переменные, и соответствовать им по типу данных. Если переменная числовая, а данные текстовые, этой переменной будет присвоено нулевое значение.
- Если при чтении данных достигнут конец файла, чтение прерывается и возникает ошибка. Для ее предупреждения в коде VBA Excel используется функция EOF.
- Чтобы данные из файла могли быть правильно прочитаны и записаны в переменные с помощью оператора Input #, они должны быть записаны в файл с помощью оператора Write #. Он обеспечивает правильное разделение каждого из полей (элементов) данных.
Оператор Line Input #
Оператор Line Input # считывает из файла по одному символу до тех пор, пока не встретится символ возврата каретки (Chr(13)) или последовательность символа возврата каретки и перевода строки (Chr (13) + Chr(10)).
Синтаксис оператора Line Input #:
1 |
Line Input #Номер_файла, Переменная |
Компоненты оператора Line Input #:
- Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
- Переменная – обязательный параметр, представляющий из себя имя переменной, объявленной как String или Variant, которой присваивается строка, считанная из файла.
Оператор Write #
Синтаксис оператора Write #:
1 |
Write #Номер_файла, [Данные] |
Компоненты оператора Write #:
- Номер_файла – обязательный параметр, представляющий из себя номер, присвоенный файлу при открытии с помощью оператора Open.
- Данные – необязательный параметр, представляющий из себя одно или несколько числовых или строковых выражений, разделенных запятой, которые нужно записать в файл.
Особенности применения оператора Write #:
- Данные, записанные с помощью оператора Write #, считываются из файла с помощью оператора Input #.
- Если опустить параметр Данные и добавить запятую после Номер_файла, в файл будет добавлена пустая строка.
- Несколько выражений в списке Данные могут быть разделены точкой с запятой или запятой.
- Числовые данные всегда записываются с точкой в качестве разделителя целой и дробной части.
- Оператор Write # вставляет запятые между элементами и прямые парные кавычки вокруг строк при их записи в файл.
- После записи в файл последнего символа из параметра Данные оператор Write # вставляет символы возврата каретки и перевода строки (Chr (13) + Chr(10)).
Функция EOF
Синтаксис функции EOF:
1 |
EOF (Номер_файла) |
Номер_файла – это номер, присвоенный файлу при открытии с помощью оператора Open.
Функция EOF используется для предупреждения ошибок, вызываемых попытками выполнить чтение после конца файла. Она возвращает значение False, пока не будет достигнут конец файла.
Примеры чтения и записи в файл
Пример 1
Открытие (или создание, если он не существует) текстового файла для чтения и записи и запись в него одной строки, состоящей из двух текстовых и одного числового значений. Файл с именем myFile1.txt будет создан в той же папке, где расположен файл Excel с кодом VBA.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Test1() Dim ff As Integer 'Получаем свободный номер для открываемого файла ff = FreeFile 'Открываем (или создаем) файл для чтения и записи Open ThisWorkbook.Path & "\myFile1.txt" For Output As ff 'Записываем в файл одну строку Write #ff, "Дает корова молоко!", _ "Куда идет король?", 25.35847 'Закрываем файл Close ff 'Открываем файл для просмотра ThisWorkbook.FollowHyperlink (ThisWorkbook.Path & "\myFile1.txt") End Sub |
Строки и число можно предварительно присвоить переменным, объявленным с соответствующими типами данных, и использовать их для записи данных в файл (в строках кода с оператором Write #, как в этом и следующем примерах).
Пример 2
Открытие (или создание, если он не существует) файла без расширения для чтения и записи и запись в него трех строк: двух текстовых и одной в числовом формате. Файл с именем myFile2 будет создан в той же папке, где расположен файл Excel с кодом VBA.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub Test2() Dim ff As Integer 'Получаем свободный номер для открываемого файла ff = FreeFile 'Открываем (или создаем) файл для чтения и записи Open ThisWorkbook.Path & "\myFile2" For Output As ff 'Записываем в файл три строки Write #ff, "Дает корова молоко!" Write #ff, "Куда идет король?" Write #ff, 25.35847 'Закрываем файл Close ff 'Открываем файл для просмотра ThisWorkbook.FollowHyperlink (ThisWorkbook.Path & "\myFile2") End Sub |
Пример 3
Считываем строку, разделенную на отдельные элементы, из файла myFile1.txt и записываем в три переменные, по типу данных соответствующие элементам.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub Test3() Dim ff As Integer, str1 As String, _ str2 As String, num1 As Single 'Получаем свободный номер для открываемого файла ff = FreeFile 'Открываем файл myFile1.txt для чтения Open ThisWorkbook.Path & "\myFile1.txt" For Input As ff 'Считываем строку из файла и записываем в переменные Input #ff, str1, str2, num1 Close ff 'Смотрим, что записалось в переменные MsgBox "str1 = " & str1 & vbNewLine _ & "str2 = " & str2 & vbNewLine _ & "num1 = " & num1 End Sub |
Попробуйте заменить в этом примере строку Input #ff, str1, str2, num1
сначала на строку Input #ff, str1
, затем на строку Line Input #ff, str1
, чтобы наглядно увидеть разницу между операторами Input # и Line Input #.
В следующих примерах (4 и 5) замена оператора Input # на Line Input # не приведет ни к каким изменениям, так как данные в строках файла myFile2 не разделены на элементы (поля).
Пример 4
Считываем поочередно три строки из файла myFile2 и записываем в три элемента массива, объявленного как Variant, так как в этот файл ранее были записаны две строки с текстом и одна с числом.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Sub Test4() Dim ff As Integer, a(2) As Variant, i As Byte 'Получаем свободный номер для открываемого файла ff = FreeFile 'Открываем файл myFile2 для чтения Open ThisWorkbook.Path & "\myFile2" For Input As ff 'Считываем строки из файла и записываем в элементы массива For i = 0 To 2 Input #ff, a(i) Next Close ff 'Смотрим, что записалось в элементы массива MsgBox "a(0) = " & a(0) & vbNewLine _ & "a(1) = " & a(1) & vbNewLine _ & "a(2) = " & a(2) End Sub |
Пример 5
Считываем с помощью цикла Do While… Loop все строки из файла myFile2 и записываем построчно в переменную, объявленную как String (число из третьей строки запишется как текст). Для остановки цикла при достижении конца файла используем функцию EOF.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub Test5() Dim ff As Integer, a As Variant, b As String 'Получаем свободный номер для открываемого файла ff = FreeFile 'Открываем файл myFile2 для чтения Open ThisWorkbook.Path & "\myFile2" For Input As ff 'Считываем строки из файла и записываем в элементы массива Do While Not EOF(ff) Input #ff, a b = b & a & vbNewLine Loop Close ff 'Смотрим, что записалось в переменную MsgBox b End Sub |
Предыдущая часть темы об открытии файла для ввода и вывода информации опубликована в статье: Оператор Open (синтаксис, параметры). Смотрите также связанную статью: Функция FreeFile.
Добрый день, подскажите, пожалуйста, почему первый пример работает, а на остальных выдает
run-time error '-2147023741 (80070483)' Method 'Run' of object 'IWshShell3' failed
?Здравствуйте, Федор!
Эту ошибку создавал метод Run объекта WScript.Shell при наличии пробелов в полном имени файла (включая путь к нему). Я заменил его на метод ThisWorkbook.FollowHyperlink.
Здравствуйте. Помогите пожалуйста конвертировать данные из файла .arc в файл .xls и .mdb(access). Здесь не вижу места куда приложить файлы для просмотра.
Обсуждение закрыто.