Ћекции.ќрг


ѕоиск:




 атегории:

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

 

 

 

 


«апись информации в файл




 

—уществует несколько операторов вывода информации в файл.

1. ѕечать в последовательный файл

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

 

Print #номер_файла; [<выходной_список_переменных>]

 

¬ыходной список печати может содержать:

 

[{Spc(n) | Tab[(n)]}] [<выражение>] [charpos]

 

где Spc(n) - длина пустой строки;

Tab(n) - печать с указанной позиции;

<выражение> - выражение числового или символьного типа;

charpos - определ€ет позицию вставки дл€ следующего символа. —имвол; обеспечивает

переход на другую строку (к другой записи файла).

 

≈сли последовательный файл должен затем считыватьс€, не рекомендуетс€ примен€ть оператор Print.

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

 

“екст программы  омментарий
Open "FILE" For Output As #1 Print # 1; "ѕечать любого текста" Print #1; Print #1; " од"; Tab; "Ќаименование" Print #1; " од"; " "; "Ќаименование" Print #l;Spc(5); " од" Print #l;Tab(10); " од" MyBool = False   MyDate = #February 12, 1969# MyNull = Null MyError = CVErr(32767) Print #1; MyBool; Print # 1; MyDate; " это дата " Print # 1; MyNull; " это пустое значение" Print #1; My Error; " код ошибки" Close #1 ќткрытие файла дл€ печати ¬ывод в файл текстовой строки ¬ставка пустой строки ¬ывод в две колонки –азделение двух слов пробелом ¬ставка 5 отступов перед печатью слова ѕозиционирование в колонку 10 ѕрисвоение значений переменным различного типа   ѕечать значени€ переменной в файл   «акрытие файла

 

2. «апись в последовательный файл

¬ последовательный файл запись информации выполн€етс€ командой:

Write #номер_файла; [<выходной_список_переменных>]

 

ƒл€ данных числового типа используетс€ символ точка дл€ дес€тичной точки. ¬ отличие от оператора Print при записи в файл автоматически вставл€ютс€ специальные символы-разделители:

зап€та€ Ц между элементами;

двойные кавычки Ц вокруг символьных данных.

¬ запись файла вставл€етс€ символ возврата каретки (переход на новую строку Ц запись файла).

ѕример 19.30. «апись информации в последовательный файл

 

 

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

¬ывод данных выполн€етс€ оператором:

 

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

 

где #записи - номер записи дл€ файла произвольного доступа либо номер байта, с которого начинаетс€ запись, дл€ двоичного файла. ≈сли номер не указан, используетс€ следующий за последним использованным в операторах Get, Put, Seek.

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

 

“екст программы  омментарий
Type Record   ID As Integer Name As String * 20 End Type Dim MyRecord As Record   Open "TESTFILE" For Random As #1 Len = Len(MyRecord)   For RecordNumber = 1 To 5 MyRecord.ID = RecordNumber MyRecord.Name = "«апись номер -" & RecordNumber Put #1, RecordNumber, MyRecord Next RecordNumber Close #1 ќбъ€вление пользовательского типа данных дл€ записи   ќбъ€вление переменной на основе пользовательского типа данных ќткрытие файла произвольного доступа с длиной, соответствующей длине объ€вленного типа ќрганизаци€ цикла дл€ записи в файл ‘ормирование содержимого записи     Ќепосредственна€ запись в файл  онец цикла «акрытие файла




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


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


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

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

ƒаже страх см€гчаетс€ привычкой. © Ќеизвестно
==> читать все изречени€...

1368 - | 1215 -


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

√ен: 0.011 с.