Программирование на языке Visual Basic для приложений. Подвальный С.Л., Рог А.И

Параметр номерФайла - это номер файла, открытого со способами доступа Append или Output.

Параметр списокВывода - это выражение или список выражений следующего вида:

[ { Spc(n) | Tab[ (n) ] } ] [Выражение] [позицияСимвола]

spc(n) задает количество вставляемых пробелов, a Tab(n) задает номер столбца, в котором будет начинаться текст. Выражение - это строковое или числовое выражение. Параметр позицияСимвола задает точку вхождения следующего за выражением символа.

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

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

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

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

Sub WriteToFile()

Open "C:\books.txt" For Output As #1

Print #1, "Office XP. VBA"; Spc(l); "Разработка приложений" Write #1, "Новиков"; "700"; "14"

Print #1, "Word 2002. "; Spc(1); "Самоучитель"

Write #1, "Petrov"; "200"; "10" Close

End Sub

93

Do

Input #1, temp

MsgBox temp

Loop Until EOF(1)

Close

End Sub

Произвольный и бинарный доступ к файлам

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

Мы одновременно рассмотрим синтаксис и процедуры записи (Put) и процедуры чтения (Get), поскольку они почти одинаковы:

Put [#], номерФайла[, номерЗаписи], переменная Get [#], номерФайла[, номерЗаписи], переменная

Итак, номерФайла - это номер файла, открытого со способом доступа либо Random, либо Binary.

номерЗаписи - это числовое выражение, определяющее позицию, куда будут записаны (откуда будут считаны) данные.

Для Random - это номер записи в файле, для Binary - номер байта в файле. По умолчанию данные будут записаны (прочитаны) в текущую позицию.

переменная - имя переменной, значение которой будет записано (прочитано). Для установки необходимой позиции используется процедура Seek.

Seek [#]номерФайла, номерЗаписи

Управление файлами и каталогами

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

95

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

Таблица 6.3 Процедуры работы с файловой системой

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

Листинг. Создание папки

Public Sub CreateFolder()

Dim path As String, root As String path = "books"

root = "C:\" ChDrive root MkDir path

Open root & path & "\books.txt" For Output As #1 Close #1

End Sub

96

Функция возвращает значение типа Integer, однозначно определяющее по таблице значений.

Таблица 6.5 Возвращаемые значения функции VarType

TypeName (переменная)

Функция возвращает одну из следующих строк: Byte,

Integer, Long, Single, Double, Currency, Decimal, Date, String,

Boolean, Error, Empty, Null, Object, Object Type, Unknown (не-

известная переменная) и Nothing (переменная, не содержащая ссылки на объект).

Если переменная является массивом, то возвращается строка с типом и пустыми скобками. Например, если определен массив Array типа integer,

TypeName(Array) = "Integer()".

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

6.4. Процедуры и функции работы со строками

В VBA существует стандартный арсенал функций для работ со строками.

98

Продолжение табл. 6.6

99

Окончание табл. 6.6

6.5. Математические функции

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

Таблица 6.7

Математические функции

Функция Значение

Abs (число) Возвращает абсолютное значение (модуль) аргумента

Atn (число) Возвращает арктангенс аргумента (в радианах)

Cos (число) Возвращает косинус аргумента. Число задается в радианах

100

Несколько комментариев к таблице. Для тригонометрических функций аргументы задаются в радианах, т. е. для вычисления косинуса 90 градусов необходимо записать cos(Pi/2)2, Функции Int и Fix фактически выполняют округление числа, но они делают это по-разному. Если число отрицательное, то Int возвращает ближайшее целое число, меньшее чем аргумент, a Fix, наоборот, большее (это не распространяется на положительные числа). Функция Rnd - это генератор случайных чисел, но генерирует он их в зависимости от параметров, введенных пользователем. Так, если бы вы ввели число большее 0 или бы вообще его не ввели, то сгенерировалось бы новое случайное число; если аргумент будет равен 0, то результатом будет предыдущее число, а если оно отрицательное, то результатом будет одно и то же число, определяемое аргументом.

6.6. Процедуры и функции работы со временем и датами

Данные типа Date занимают 4 байта, столько же занимают данные типа Single (вещественное число одинарной точности). Начальная дата равна 30.12.1899. Таким образом, число 1 будет означать 31 декабря 1899 года, а число 36474.12345 рав-

101

но 10.11.99 2:57:46. Процедуры делятся на две группы: первые определяют даты, вторые - их обрабатывают.

К первой группе относятся следующие процедуры:

-Date - возвращает текущую системную дату;

-Time - возвращает текущее системное время;

-Now - возвращает текущие системные дату и время. Текущие дата и время определяются по внутренним ча-

сам компьютера, которые можно установить с помощью панели управления Windows. Можно переопределить значения системного времени, используя ключевые слова Date и Time.

Кстати, вы можете переопределить значения системного времени, используя ключевые слова Date и Time.

Например, если текущая дата 21.11.2002, тогда следующая процедура "отправит вас в будущее" на месяц вперед:

NewD = Date +31 Date = NewD

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

Вторая группа функций представлена в табл. 6.8.

102