Самоучитель VBA

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



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

Print



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

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

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

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

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

  • Write

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

    Синтаксис:

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

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

    СписокВывода — выражение или список выражений, записываемых в файл Данные, записанные с помощью инструкции write, обычно считываются из файла с помощью инструкции input

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

    Print. Sub

    ПримерИспольэования Print

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

    ' Печатает текст в файл '

    Print #1, "Тест"

    '

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

    '

    Print #l,

    '

    ' Печатает в двух зонах печати

    '

    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 #l, "инструкции";

    Write #1, "Write"

    x = 1

    Write #1, "Число";

    х Close #1

    End Sub

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

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

    Обратите внимание на автоматическое размещение в файле разделителей -запятых, и то, что строковая информация берется в кавычки. В процедуре

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



    Содержание раздела