17.9.2 Implements

Implements [InterfaceName | Class] - Нопдгдкюдс змсдпудир зкз йкЯрр,

йнснпъи атгдс бйкэцям б лнгткы йкЯррЯ. Б йЯцдрсбд оЯпЯлдспЯ жЯгЯясрю кзан злю змсдпудирЯ, кзан злю йкЯррЯ, лдснгъ йнснпнвн атгтс бйкэцдмъ б йкЯрр,

б йнснпнл нопдгдкям нодпЯснп.

17.9.3 Input

Input #filenumber, varlist - ОнркдгнбЯсдкымн цзсЯдс гЯммъд зж уЯикЯ з жЯозръбЯдс зф б одпдлдммтэ(ъд) varlist.

Опзлдп:

Dim MyString, MyNumber

Open "TESTFILE" For Input As #1 ' Открываем файл для чтения

Do While Not EOF(1) ' Цикл, пока не конец файла

Input #1, MyString, MyNumber ' Читаем данные в две переменные

Debug.Print MyString, MyNumber ' Печатаем полученные данные в Dubug

Loop

Close #1 ' Закрываем файл

17.10 K

17.10.1Kill

Kill pathname - НодпЯснп тгЯкюдс уЯик р гзрйЯ. Б йЯцдрсбд pathname лнемн

зронкыжнбЯсы лЯрйт.

Опзлдп:

' Удаляем файл

Kill "TestFile"

' Удаляем все файлы с расширением txt, находящиеся в текущей директории

Kill "*.TXT"

17.11 L

17.11.1Let

[Let] varname = expression - Ьсн мднаюжЯсдкымъи нодпЯснп опзрбЯзбЯмзю,

йнснпъи одпдйЯцЯк рн рсЯпзммнвн адирзйЯ.

Опзлдп:

Dim MyStr As String

Let MyStr = "Hello World" ' Присваиваем с использованием оператора Let

MyStr = "Hello World" ' То же самое, но без оного.

17.11.2Like

String Like PatternнодпЯснп гкю опнбдпйз рспнйз String мЯ лЯрйт Pattern. Ьсн нцдмы лншмъи нодпЯснп, онцсз ЯмЯкнв пдвткюпмъф бъпЯедмзи б Perl.

Опзлдп:

Dim MyCheck

MyCheck = "aBBBa" Like "a*a" ' Возвратит True.

MyCheck = "F" Like "[A-Z]" ' Возвратит True.

MyCheck = "F" Like "[!A-Z]" ' Возвратит False.

MyCheck = "a2a" Like "a#a" ' Возвратит True.

MyCheck = "aM5b" Like "a[L-P]#[!c-e]" ' Возвратит True. MyCheck = "BAT123khg" Like "B?T*" ' Возвратит True. MyCheck = "CAT123khg" Like "B?T*" ' Возвратит False. myString = "312T-87GD-8922"

If myString Like "###[A-Z]-##[A-Z][A-Z]-####" Then ...

Родх-рзлбнкъ б лЯрйд:

? Кэани нгзмнцмъи рзлбнк

* Мнкы зкз анкдд рзлбнкнб

# КэаЯю нгзмнцмЯю хзупЯ (0–9).

[charlist] Кэани нгзмнцмъи рзлбнк б йкЯррд рзлбнкнб (розрйд) [!charlist] Кэани нгзмнцмъи рзлбнк мд опзмЯгкдеЯшзи йкЯррт рзлбнкнб

17.11.3Line Input

Line Input #filenumber, varname - ОнркдгнбЯсдкымн цзсЯдс нгмт рспнйт зж

нсйпъснвн уЯикЯ б одпдлдммтэ String.

Опзлдп:

Dim TextLine

Open "TESTFILE" For Input As #1 ' Открываем файл

Do While Not EOF(1) ' Зацикливаемся, пока не конец файла

Line Input #1, TextLine ' Читаем в переменную

Debug.Print TextLine ' Печатаем в окно Debug

Loop

Close #1 ' Закрываем файл

17.11.4Load

Load object - жЯвптеЯдс унплт зкз йнлонмдмс б оЯлюсы. Опзлдп, фнсы з

анкычни, мн нцдмы опнрсни з онмюсмъи.

Опзлдп:

Private Sub Form_Click ()

Dim Answer, Msg As String ' Объявляем переменные

Unload Form1 ' Выгружаем форму

Msg = _

"Form1 только что была выгружена. Нажмите Да, чтобы загрузить еѐ и " Msg = Msg & "показать. Нажмите Нет чтобы загрузить еѐ и "

Msg = Msg & "оставить невидимой."

Answer = MsgBox(Msg, vbYesNo) ' Выводим окно сообщения

If Answer = vbYes Then ' Проверяем выбор пользователя

Show ' если Да, то показываем форму

Else

Load Form1 ' Если Нет, то только загружаем

Msg = "Теперь форма загружена. Нажмите ОК, чтобы показать еѐ."

MsgBox Msg ' Выводим сообщение

Show ' Показываем форму

End If

End Sub

17.11.5Lock

Lock [#]filenumber[, recordrange]

. . .

Unlock [#]filenumber[, recordrange]

Ьсз нодпЯснпъ топЯбкюэс гнрстонл й уЯикт гкю гптвзф опнхдррнб, цснаъ сд мд лнвкз цсн-кзан ргдкЯсы р йнлонмдмснл ьснвн уЯикЯ. Б опзбдгяммнл мзед опзлдпд онркд нодпЯснпЯ Lock гнрсто й жЯозрз жЯйпъбЯдсрю, з гптвзд опнхдрръ (опнвпЯллъ) мд рлнвтс зжлдмзсы ьст жЯозры. ЖЯозры нсозпЯдсрю нодпЯснпнл Unlock.

Опзлдп:

Type Record ' Тип, определѐнный пользователем (находится в модуле)

ID As Integer

Name As String * 20

End Type

Dim MyRecord As Record, RecordNumber ' Объявляем переменные

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

Open "TESTFILE" For Random Shared As #1 Len = Len(MyRecord) RecordNumber = 4 ' Устанавливаем позицию записи

Lock #1, RecordNumber ' Запираем эту запись

Get #1, RecordNumber, MyRecord ' Читаем запись

MyRecord.ID = 234 ' Модифицируем еѐ

MyRecord.Name = "John Smith"

Put #1, RecordNumber, MyRecord ' Записываем изменѐнную запись

Unlock #1, RecordNumber ' Отпираем запись

Close #1 ' Закрываем файл

17.11.6LSet

LSet stringvar = string - БъпЯбмзбЯдс рспнйт он кдбни рснпнмд опз опзрбЯзбЯмзз ди жмЯцдмзю, лдмычдвн он пЯжлдпт, цдл зрфнгмЯю рспнйЯ.

Блдрсн рспнй лнвтс зронкыжнбЯсырю нопдгдкяммъд онкыжнбЯсдкдл сзоъ.

Опзлдп:

Dim MyString

MyString = "0123456789" ' Инициализируем строку