Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Рассмотрим пример записи в файл.
OPEN "capitals.dat" FOR OUTPUT AS #1
FOR X=l TO 5
INPUT "ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ"; F$
WRITE #1, F$
NEXT X
CLOSE #1:END
В результате работы программы мы получим (полужирным шрифтом выделены введенные с клавиатуры данные):
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? МОСКВА
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? САНКТ-ПЕТЕРБУРГ
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? ТАЛЛИН
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? РИГА
ВВЕДИТЕ НАЗВАНИЕ СТОЛИЦЫ? ВИЛЬНЮС
При этом на диске в текущем каталоге образуется файл, содержащий пять строковых значений. Имя файла будет capitals.dat. Удобнее всего при работе с файлами сделать текущим каталог, где эти файлы содержатся или будут содержаться, а при обращении к ним указывать только их имена.
В качестве параметра имя_файла можно использовать переменную текстового типа. Это позволяет вводить имя файла с клавиатуры и является универсальным способом работы с файлами. На пример:
INPUT «Введите имя файла "; FileName$
OPEN FileName$ FOR OUTPUT AS #1
После ключевого слова as указывается номер файла. Больше открыть файл с таким номером в данной программе нельзя. Для каждого последующего файла должен быть указан свой собственный неповторимый номер в пределах от 1 до 255. Сколько всего может быть открыто файлов, зависит от файла конфигурации вашего компьютера config.sys, в котором число одновременно открытых файлов определяется командой files.
Представленный далее пример демонстрирует программу создания небольшой базы данных автомобилей, предназначенных для продажи. О каждом автомобиле заносится информация о его марке, номере, цвете, годе производства и продажной цене.
REM Программа создания файла данных об автомобилях
CLS
INPUT «Введите имя файла"; F$
Открытие файла
OPEN F$ FOR OUTPUT AS #1
DO
INPUT "Марка автомобиля? (Для окончания работы введите QWE.); М$
IF UCASE$(M$)="QWE" OR OCASE$(М$)="ЙЦУ" THEN 1
INPUT "Номер автомобиля?"; N$
INPUT "Цвет автомобиля?"; С$
INPUT "Год производства автомобиля?"; G$
INPUT "Продажная цена автомобиля?"; S$
WRITE #1, М$, N$, C$, G$, S$
LOOP
' Закрытие файла
1: CLOSE #1 PRINT "Файл сформирован"
Программа действует следующим образом. Запрашивает имя файла, открывает его для записи, запрашивает информацию, записывает ее в файл до введения пользователем сочетания букв "QWE" или "ЙЦУ" (эти символы расположены на одних клавишах, вследствие чего пользователь может случайно набрать как одну комбинацию, так и другую).
Запись в файл может производиться операторами:
PRINT # номер_файла, выражение
ИЛИ
WRITE # номер_файла, выражение
Результат работы этих операторов одинаков.
Дата публикования: 2015-04-10; Прочитано: 233 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!