Файл: Макарова_Информатика_2000.doc

Для данных числового типа используется символ точка для десятичной точки. В отличие от оператора 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

Объявление пользовательского типа

данных для записи

Объявление переменной на основе

пользовательского типа данных

Открытие файла произвольного

доступа с длиной, соответствующей

длине объявленного типа

Организация цикла для записи в файл

Формирование содержимого записи

Непосредственная запись в файл

Конец цикла

Закрытие файла

Ввод информации из файла

1. Чтение данных из последовательного файла

Чтение выполняется оператором:

Input #номер_файла; <список_переменных>

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

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

Текст программы

Комментарий

Open "FILE" For Input As #1

Do While Not EOF(l)

Input # 1 ; MyString; MyNumber

Debug.Print MyString; MyNumber

Loop

Close #1

Открытие файла

Цикл до конца файла

Чтение данных записи в переменные

Печать считанных данных

Конец цикла

Закрытие файла

Другим оператором чтения из последовательного файла является

Line Input #номер_файла; <переменная>

Оператор обеспечивает посимвольное считывание данных строки по файлу до обнаружения символа "возврат каретки" (Chr(13)) и присвоение этих данных указанной переменной символьного типа.

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

Текст программы

Комментарий

Open "TESTFILE" For Input As #1

Do While Not EOF(l)

Line Input #1, TextLine

Debug.Print TextLine

Loop

Close #1

Открытие файла

Цикл, пока не достигнут конец файла

Чтение строки в переменную

Печать в окне Debug

Конец цикла

Закрытие файла

2. Чтение данных из файла произвольного доступа

Данный оператор обеспечивает считывание записи файла произвольного доступа в указанную переменную:

Get Put [#номер_файла; [#записи],<переменная>

Пример 19.34. Чтение из файла произвольного доступа

Позиционирование на запись в файле

Позиция в записи (номер байта или номер записи) для очередного чтения или записи в файл устанавливается оператором:

Seek [#] номер_файла; позиция

где позиция – число в диапазоне номеров байтов (1 - 2 147 483 647) файла.

Для файла, открываемого в режиме последовательного доступа, с помощью оператора SEEK определяется байт.

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

Текст программы

Комментарий

Dim MyChar As String

Open "FILE" For Input As #1

MaxSize = LOF(l)

Объявление переменной на основе пользовательского типа данных

Открытие файла произвольного доступа с длиной, соответствующей длине объявленного типа

Вычисление количества байтов в файле

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

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

ДИАЛОГОВЫЕ ОКНА

Существует несколько типов диалоговых окон, которые необходимы для поддержания в программе интерактивного режима работы конечного пользователя (вывод сообщений пользователю, прием и интерпретация указаний, введенных пользователем, и др.).

Диалоговые окна для обмена сообщениями

Встроенная функция MsgBox() обеспечивает создание диалоговых окон различных типов.

1. Простое окно-сообщение

MsgBox ("строка_сообщения")

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

Пример 19.37. Вывод сообщения о значении переменной

Текст программы

Комментарий

Option Explicit

Sub Msg_Priim()

Dim a As Single

Randomize

a=rnd

MsgBox "Значение

случайного числа " & Str(a)

End Sub

Обязательность объявления всех переменных в модуле перед их использованием