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

 

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

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	Объявление пользовательского типа данных для записи   Объявление переменной на основе пользовательского типа данных Открытие файла произвольного доступа с длиной, соответствующей длине объявленного типа Организация цикла для записи в файл Формирование содержимого записи     Непосредственная запись в файл Конец цикла Закрытие файла