Ћекции.ќрг


ѕоиск:




 атегории:

јстрономи€
Ѕиологи€
√еографи€
ƒругие €зыки
»нтернет
»нформатика
»стори€
 ультура
Ћитература
Ћогика
ћатематика
ћедицина
ћеханика
ќхрана труда
ѕедагогика
ѕолитика
ѕраво
ѕсихологи€
–елиги€
–иторика
—оциологи€
—порт
—троительство
“ехнологи€
“ранспорт
‘изика
‘илософи€
‘инансы
’ими€
Ёкологи€
Ёкономика
Ёлектроника

 

 

 

 


¬вод информации из файла




 

1. „тение данных из последовательного файла

„тение выполн€етс€ оператором:

 

Input #номер_файла; <список_переменных>

 

ƒвойные кавычки при считывании игнорируютс€, выполн€етс€ проверка соответстви€ типов данных переменных и файла.

ѕример 19.32. «апись в файл произвольного доступа

 

“екст программы  омментарий
Open "FILE" For Input As #1 Do While Not EOF(l) Input # 1; MyString; MyNumber Debug.Print MyString; MyNumber Loop Close #1 ќткрытие файла ÷икл до конца файла „тение данных записи в переменные ѕечать считанных данных  онец цикла «акрытие файла

 

ƒругим оператором чтени€ из последовательного файла €вл€етс€

 

Line Input #номер_файла; <переменна€>

 

ќператор обеспечивает посимвольное считывание данных строки по файлу до обнаружени€ символа "возврат каретки" (Chr(13)) и присвоение этих данных указанной переменной символьного типа.

ѕример 19.33. ѕострочное чтение из файла последовательного доступа

 

“екст программы  омментарий
Open "TESTFILE" For Input As #1 Do While Not EOF(l) Line Input #1, TextLine Debug.Print TextLine Loop Close #1 ќткрытие файла ÷икл, пока не достигнут конец файла „тение строки в переменную ѕечать в окне Debug  онец цикла «акрытие файла

 

2. „тение данных из файла произвольного доступа

ƒанный оператор обеспечивает считывание записи файла произвольного доступа в указанную переменную:

 

Get Put [#номер_файла; [#записи],<переменна€>

ѕример 19.34. „тение из файла произвольного доступа

 





ѕоделитьс€ с друзь€ми:


ƒата добавлени€: 2015-01-29; ћы поможем в написании ваших работ!; просмотров: 839 | Ќарушение авторских прав


ѕоиск на сайте:

Ћучшие изречени€:

Ќачинайте делать все, что вы можете сделать Ц и даже то, о чем можете хот€ бы мечтать. ¬ смелости гений, сила и маги€. © »оганн ¬ольфганг √ете
==> читать все изречени€...

433 - | 417 -


© 2015-2023 lektsii.org -  онтакты - ѕоследнее добавление

√ен: 0.008 с.