На этом шаге мы рассмотрим конструкции, используемые для записи в файл.

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

Print - записывает форматированные данные в файл последовательного доступа. Синтаксис:
```
  Print #НомерФайла, [СписокВывода]
```
- НомерФайла — номер файла;
- СписокВывода — выражение (или список выражений), записываемое в файл. В аргументе СписокВывода разделителем списка выводимых выражений является ";" (данные выводятся подряд) или "," (данные выводятся по зонам). Кроме того, в аргументе СписокВывода допускается использование функций Spc и Tab:
  - Spc(n) — используется для вставки n пробелов в файл;
  - Tab(n) — устанавливает курсор в столбец с номером n.
Write - записывает неформатированные данные в файл последовательного доступа. В отличие от инструкции Print, инструкция Write вставляет запятые между элементами и заключает строки в кавычки по мере записи их в файл. Синтаксис:
```
  Write #НомерФайла, [СписокВывода]
```
- НомерФайла — номер файла;
- СписокВывода — выражение или список выражений, записываемых в файл Данные, записанные с помощью инструкции Write, обычно считываются из файла с помощью инструкции Input.

Приведем две процедуры, использующие инструкции Print и Write для создания файлов последовательного доступа. Сначала рассмотрим процедуру с инструкцией Print.

  Sub ПримерИспольэованияPrint 
    Open "С:\Новый" For Output As #1
    ' Печатает текст в файл
    Print #1, "Тест"
    ' Печатает пустую строку в файл
    Print #1,
    ' Печатает в двух зонах печати
    Print #1, "Зона 1"; Tab; "Зона 2"; Spc(3);"3 пробела" 
    Close #1 
  End Sub

Результатом описанных выше инструкций будет файл со следующим содержимым:

Тест

Зона 1        Зона 2   3 пробела

Перейдем теперь к примеру процедуры, создающей файл последовательного доступа при помощи инструкции Write.

  Sub ПримерИспользованияWrite
    Open "ЕщеПример" For Output As #1
    Write #1, "Пример"; "использования"
    Write #1, "инструкции";
    Write #1, "Write"
    x = 1
    Write #1, "Число"; х 
    Close #1
  End Sub

Результатом описанных выше инструкций будет файл со следующим содержимым:

  "Пример","использования" 
  "инструкции","Write" 
  "Число",1

Обратите внимание на автоматическое размещение в файле разделителей - запятых, и то, что строковая информация берется в кавычки. В процедуре ПримерИспользованияWrite вторая инструкция Write специально заканчивается знаком ";". Это обеспечивает вывод данных третьей инструкцией Write в ту же строку файла, в которую выводила вторая инструкция.

На следующем шаге мы рассмотрим вывод данных из файла последовательного доступа.

Предыдущий шаг Содержание Следующий шаг