ВУЗ:
Составители:
75
Встроенные функции для работы с файлами (последовательного доступа) при-
ведены ниже.
Open “путь к файлу\имя файла” For Input As #N1 – открыть файл для чтения
данных с диска в переменные VBA под логическим номером N1, далее во всех опе-
рациях чтения путь к файлу и его имя не указываются и используется только этот
логический номер. Можно открывать несколько файлов для чтения под разными ло-
гическими номерами. Каждый из них должен существовать на диске по указанному
пути.
Open “путь к файлу\имя файла” For Output As #N2 – открыть файл для записи
данных на диск из переменных VBA под логическим номером N2, далее во всех
операциях записи путь к файлу и его имя не указываются и используется только
этот логический номер. Несуществующий файл будет создан, существующий файл
будет полностью очищен. Чтобы сохранить содержимое существующего файла (за-
писать далее имеющихся данных), вместо служебного слова Output необходимо
использовать Append.
Input #N1, список переменных для считываемых из файла данных – чтение
(ввод) данных с диска в переменные VBA по списку. Разделителем чисел в файле
должен быть пробел (или запятая), каждое новое обращение к функции Input начи-
нает ввод с новой строки.
Print #N2, список записываемых в файл переменных (вместо служебного сло-
ва Print можно использовать Write) – запись (вывод) данных на диск из переменных
VBA по списку. Разделителем чисел в файле будет пробел (или запятая), каждое но-
вое обращение к функции Print начинает запись с новой строки.
EOF(N1) – логическая функция, определяющая: достигнут ли конец файла по-
следовательного доступа (=True – достигнут, =False – не достигнут). При попытке
чтения за пределами конца файла будет сообщение об ошибке, поэтому эту функ-
цию всегда нужно использовать совместно с функцией Input.
Close #N1 – закрыть файл с логическим номером #N1. Все открытые файлы
должны быть закрыты к концу работы программы или ранее, когда работа с файла-
ми считается законченной.
В предыдущем примере необходимо было вводить температуры с клавиатуры
каждый раз. Применение функций работы с файлами позволяет избавиться от этого
неудобства. Для этого необходимо использовать описанные выше функции работы с
файлами. Пары температур, для которых необходим расчет давления насыщения,
предварительно запишем в файл, например, 2050.txt в корневом каталоге на диске С,
для всех узких фракций. А результаты расчета пусть запишет нам программа также
в файл, например, Ashvort2.txt. Такая программа
и результаты будут иметь следую-
щий вид (рис. 2.20).
Sub Ashvort2()
Const k1 = 3158, k2 = 7.6715, k3 = 2.68
Страницы
- « первая
- ‹ предыдущая
- …
- 74
- 75
- 76
- 77
- 78
- …
- следующая ›
- последняя »
