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

При выполнении программы часто возникает необходимость записи информации в файл. В VB имеются два оператора имеется два оператора для записи информации в файл: операторы Write и Print. Различие между этими операторами состоит в том, что оператор Print предоставляет больше возможностей по форматированию информации. С другой стороны, оператор Write более удобен для вывода в файлы , которые впоследствии будут читаться оператором Input #, поскольку он автоматически разделяют элементы данных запятыми и заключают строки в кавычки.

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

Опрератор Write автоматически заключает в кавычки данные типа String и разделяет элементы данных запятыми.

Синтаксис оператора Write выглядит следующим образом:

Write #filenum, [outputlist]

где

#filenum – номер файла, открытого для записи (или дополнения) данных;

outputlist – Список переменных или литеральных значений которые должны быть записаны в файл. Список может содержать один или несколько элементов данных. При наличии в списке нескольких элементов они должны быть разделены запятыми, пробелами или точкой с запятой.

Прмер:

Open “A:\TEST.INI” For Append As #1

Print #1, “Defsize = 15”

Close #1

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

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

Print # filenum, printlist

где

#filenum – номер файла, открытого для записи ( или дополнения) данных;

outputlist – список переменных данных, которые вы хотите записать в строку файла.

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

Кроме того, в опраторе Print # можно использовать две дополнительные функции. первая из них функция Spc(n). Она позволяет вставить определённое количество (n) пробелов между соседними полями данных. Функция требует задания числа n типа Integer в качестве аргумента.

Пример:

Print #2; var1; Spc(5); var2

Print # intFh “фрагмент1”; Spc(10); “фрагмент2”

Другая специальная функция – функция Tab. Она позволяет определять позицию для вывода следующего элемента. Функция Tab используется следующим образом:

Print #2; var1; Tab(10); var2

В операторе Print # каждый из элементов данных должен быть отделен от остальных с помощью ограничителя – запятой или точкой с запятой.

При использовании в качестве разделителя запятой следующий за первым элементом последующий записывается с первой позиции следующей зоны вывода (Print zone ). Длина зоны вывода равна 14 символам.

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

Задание данных с использованием запятой находит наибольшее применение при обмене информацией между программами и при записи набора величин для даль-нейшего использования. Например, программа управления производством может вы­водить в файл перечень компонентов и их количества ( в виде элементов, разделен­ных запятыми), требуемые для определенного процесса. Записанный файл перед­аётся в требуемое подразделение фирмы, например, в отдел маркетинга или финансовый отдел, для ввода в другой компьютер и последующей обработки.