читать первую строку используя LINE
END SUB 'конец процедуры "последовательное добавление"
SUB Последовательный Ввод
-------------------------
Файл открывается для последовательного ввода, а данные которые считы-
ваются, отображаются на экране.
КлавишиНаж $=FN Дать клавишу $("теперь считаем обратно")
'открыть последовательный файл и читать из него
OPEN"OPEN.DTA" FOR INPUT AS#1
' читать первую строку используя LINE INPUT#
LINE INPUT #1,ВремСтр$
PRINT ВремСтр$
'использовать INPUT$ для считывания остальной части файла по одной ли-
тере
ВремСтр$=" "
WHILE NOT EOF(1) 'проверка конца файла
ВремСтр$ = ВремСтр$ + INPUT$(1,1)
WEND
PRINT ВремСтр $
CLOSE 1 'закрыть файл
КлавишиНаж $=FN Дать клавишу $(" ")
END SUB 'конец процедуры Последовательный ввод
SUB Двоичный ВВ
'файл открывается для двоичного ввода/вывода.
'данные считываются с использованием GET$.
'SEEK явно перемещает файловый показатель до конца файла и вы записы-
ваете те-же данные обратно в файл.
Клавиши Наж$ = FN ДатьКлавишу $ (теперь для двоичного ввода и вывода)
'открыть двоичный файл, читать из него
OPEN "OPEN.DTA" FOR BINARY AS#1
ВремСтр$=" "
Использовать GET$ для считывания данных и их хранения в строке
WHILE NOT EOF (1)
GET$ 1,1 Лит $
ВремСтр$ =ВремСтр $ + Лит$
WEND
PRINT ВремСтр $
'переместить файловый указатель в конец файла
SEEK 1, LOF (1)
'PUT$ копирует данные обратно в двоичный файл
FOR I% = 1 TO LEN (ВремСтр$)
PUT$ 1, MID$ (ВремСтр$,I%,1)
NEXT I%
CLOSE 1 'закрыть файл
КлавишиНаж$ = FN ДатьКлавишу $ (" ")
END SUB 'конец процедуры Двоичный ВВ
SUB Произвольный ВВ
'открыть файл для произвольного ввода/вывода.
'использовать FIELD для заявления буфера для утверждения данных, кото-
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий