logo
Конспект лекций по КИТ

Ввод данных в файл последовательного доступа

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

Print

Записывает форматированные данные в файл последовательного доступа.

Синтаксис:

Print #НомерФайла, [СписокВывода]

  • НомерФайла — Номер файла

  • СписокВывода — выражение (или список выражений), записы­ваемое в файл. В аргументе СписокВывода разделителем списка выводимых выражений являеся "," (данные выводятся подряд) или "," (данные выводятся по зонам). Кроме того, в аргументе СписокВывода допускается использование функций Spc и Tab:

• Spc (n) — используется для вставки n пробелов в файл

• Tab (n) — устанавливает курсор в столбец с номером n

Write

Записывает неформатированные данные в файл последователь­ного доступа. В отличие от инструкции Print, инструкция Write вставляет запятые между элементами и заключает строки в ка­вычки по мере записи их в файл.

Синтаксис:

Write #НомерФайла, [СписокВывода]

- НомерФайла — номер файла

  • СписокВывода — выражение или список выражений, записы­ваемых в файл

Данные, записанные с помощью инструкции Write, обычно счи­тываются из файла с помощью инструкции Input

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

Sub ПримерИспользованияРгint

Open "С:\Новый" For Output As #1

' Печатает текст в файл Print #1, "Тест"

' Печатает пустую строку в файл I

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, "Число"; x Close #1

End Sub

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

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

"Число",1

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