Основы офисного программирования и язык VBA


Пример 14.6


Public Sub Test2()

'Эта процедура работает с файлом, записи которого

'содержат строки переменной длины, не превосхоящей максимума,

'а также данные типа Variant

Dim Fam As String

Dim Other As Variant

'Открытие файла произвольного доступа для чтения и записи

Open Path & "Strings.var" For Random Access Read Write As #5 Len = 20

Fam = "Степанов"

Put 5, 1, Fam

Get 5, 1, Fam

Debug.Print Fam, LOF(5)

Fam = "Архангельский"

Put 5, 2, Fam

Get 5, 2, Fam

Debug.Print Fam, LOF(5)

Fam = "Куц"

Put 5, 1, Fam

Get 5, 1, Fam

Debug.Print Fam, LOF(5)

'Запись типа Variant

Other = "Петров"

Put 5, 3, Other

Get 5, 3, Other

Debug.Print Other, LOF(5)

Other = 125.25

Put 5, 4, Other

Get 5, 4, Other

Debug.Print Other, LOF(5)

Other = 125

Put 5, 5, Other

Get 5, 5, Other

Debug.Print Other, LOF(5)

Close #5

End Sub




Начало  Назад  Вперед



Книжный магазин