Последовательные файлы с ограниченным полем.

При рассмотрении последовательного файла видно, что данные в файле разделяются запятыми и любые цепочки заключаются в двойные кавычки (кавычки предохраняют Вас от хлопот с вкрапленными запятыми в цепочке). Рассмотрим формирование и внутреннее представление последовательного файла ADD.BAS:

 

OPEN "ADD.BAS" FOR OUTPUT AS #1

String$="This is a string of text"

Integer%=1000

Floating!=30000.1234

WRITE #1,String$,Integer%,Floating!

String$="Appol"

Integer%=-32767

Floating!=12345.54296875

WRITE #1,Integer%,String$,Floating!

CLOSE #1

END

 

Содержимое файла ADD.BAS:

"This is a string of text",1000,30000.1234

-32767,"Appol",12345.54296875

 

Самым важным здесь является то, что оператор WRITE # записывает данные в том виде, в котором оператор INPUT # хочет их найти.

Следующая программа считывает данные из последовательного файла:

 

OPEN "ADD.BAS" FOR INPUT AS #1

String$="":Integer%=0:Floating!=0

INPUT #1,String$,Integer%,Floating!

PRINT String$,Integer%,Floating!

String$="":Integer%=0:Floating!=0

INPUT #1,Integer%,String$,Floating!

PRINT Integer%,String$,Floating!

CLOSE #1

END

 

Важно заметить,что программа не будет работать правильно,если файл был сформирован с помощью команды PRINT #,а не WRTIE #.