Инструменты пользователя

Инструменты сайта


examination:flp:question44

Для открытия файла для записи задается его имя, производится операция open и указывается направление output:

(setq our-output-stream (open «sesame» :direction :output))

Зададим

(setq s 'e)

Можно вывести это значение в файл

(princ s our-output-stream) ;

Можно занести список

(print '(a b c d) our-output-stream)

Чтобы правильно закрыть поток необходимо в конец поместить

(terpri our-output-stream)

Затем файл закрывается

(close our-output-stream)

Можно посмотреть информацию в файле. Откроем файл для чтения:

(setq our-input-stream (open «sesame» :direction :input) )

Прочитаем информацию

(read our-input-stream)

Закроем файл

(close our-input-stream)


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

Сформируем файл

Пусть

(setq s «—+++»)

(setq p «+++—»)

Определим поток вывода

(setq our-output-stream (open «picture.spl» :direction :output) )

(princ s our-output-stream) ; записываем первую стороку

(terpri our-output-stream) ; заканчиваем ее

(princ p our-output-stream) ; записываем вторую строку

(terpri our-output-stream) ; заканчиваем файл

Тепрь файл закрывается

(close our-output-stream)

В файле теперь находится

- - - + + +

+ + + - - -


Для чтения символов из файла будем использовать функцию

(READ-CHAR <входной поток>)

Данная функция позволяет читать печатные символы ( CHAR) из файла. В качестве значения получается десятичное представление кода символа. Используе эту функцию для посимвольного ввода информации из файла для ее последующего анализа Определим

(setq our-input-stream (open «picture.spl» :direction :input) )

Для чтения символа используем

(read-char our-input-stream)

examination/flp/question44.txt · Последние изменения: 2014/01/15 12:17 (внешнее изменение)