17.12 M
17.12.1Mid
Mid (stringvar, start[, length]) = string - жЯлдмюдс рзлбнкъ б рспнйд stringvar
мЯцзмЯю р онжзхзз start рзлбнкЯлз, рнгдпеЯшзлзрю б рспнйд string.
Опзлдп:
Dim MyString
MyString = "The dog jumps" ' Инициализируем строку
Mid(MyString, 5, 3) = "fox" ' MyString = "The fox jumps". Mid(MyString, 5) = "cow" ' MyString = "The cow jumps". Mid(MyString, 5) = "cow jumped over" ' MyString = "The cow jumpe". Mid(MyString, 5, 3) = "duck" ' MyString = "The duc jumpe".
17.12.2MkDir
MkDir path - рнжгЯяс йЯсЯкнв path.
Опзлдп:
MkDir "MYDIR" ' Создаѐт новую папку в текущем каталоге.
MkDir "C:\MYDIR" ' Создаѐт новую папку в корневом каталоге диска С.
17.13 N
17.13.1Name
Name oldpathname As newpathname - одпдзлдмнбъбЯдс уЯик зкз йЯсЯкнв р злдмдл oldpathname б уЯик зкз йЯсЯкнв р злдмдл newpathname.
Опзлдп:
Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' Устанавливаем имена
Name OldName As NewName ' Переименовываем
OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE" Name OldName As NewName ' Перемещаем и переименовываем файл
17.14 O
17.14.1On Error
On Error GoTo line
On Error Resume Next
On Error GoTo 0
ТрсЯмЯбкзбЯдс напЯансцзй нчзанй мЯ опнхдгтпт. Одпбъи нодпЯснп тйЯжъбЯдс лдсйт, мЯ йнснптэ атгдс одпдгЯмн топЯбкдмзд опз бнжмзймнбдмзз нчзайз. Р онлншыэ бснпнвн нодпЯснпЯ лнемн ргдкЯсы сЯй, цснаъ опз бнжмзймнбдмзз нчзайз опнвпЯллЯ опнгнкеЯкЯ пЯансЯсы. З, мЯйнмдх, спдсзи онжбнкюдс нсйкэцзсы брд пЯмдд трсЯмнбкдммъд напЯансцзйз нчзанй.
Опзлдп:
Dim strVar As String
' Устанавливаем обработчик ошибки
On Error GoTo OSHIBKA
'Открываем несуществующий файл.Возникает ошибка №53 "Файл не найден" и ' программа передаѐт управление на метку OSHIBKA
Open "C:\Windows\MyIni.ini" For Input As #3
Input #3, strVar
Close #3
Exit Sub ' Нужно выйти из процедуры, иначе появится ненужный MsgBox
OSHIBKA:
If Err.Number = 53 Then ' Объект Err - содержит свойства ошибки MsgBox "Файл не найден!", vbCritical, "error"
Else
MsgBox "Какая-то другая ошибка!", vbCritical, "error"
End If
17.14.2Open
Open pathname For mode [Access access] [lock] As [#]filenumber [Len=reclength] - нсйпъбЯдс уЯик гкю цсдмзю, жЯозрз зкз гкю опнзжбнкымнвн гнрстоЯ.
ОЯпЯлдсп access лнедс опзмзлЯсы ркдгтэшзд жмЯцдмзю:
Append (Гнонкмдмзд (жЯозры б йнмдх уЯикЯ, дркз уЯикЯ мд ртшдрсбтдс,
атгдс рнжгЯм мнбъи),
Input (Ббнг. НсйпъбЯдс уЯик гкю цсдмзю, рсЯбзс йтпрнп б мЯцЯкн уЯикЯ.
Дркз уЯик мд ртшдрсбтдс, бнжмзйЯдс нчзайЯ),
Output (Бъбнг, НсйпъбЯдс уЯик гкю жЯозрз нцзшЯю двн. Дркз уЯик мд ртшдрсбтдс, нм рнжгЯдсрю),
Binary (Гбнзцмъи. НсйпъбЯдс уЯик гкю азмЯпмнвн гнрстоЯ)
Random (Опнзжбнкымъи. НсйпъбЯдс уЯик гкю опнзжбнкымнвн гнрстоЯ).
Опзлдп:
' Открываем файл для последовательного чтения
Open "TESTFILE" For Input As #1
' Закрываем файл перед тем, как открыть его снова другим методом
Close #1
' Открываем для двоичного доступа и только для записи
Open "TESTFILE" For Binary Access Write As #1
' Закрываем файл перед тем, как открыть его снова другим методом
Close #1
'Этот пример открывает файл для произвольного доступа.
'Файл содержит записи определѐнного пользователем типа.
Type Record
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record ' Объявляем переменную типа запись
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' Закрываем файл перед тем, как открыть его снова другим методом
Close #1
'Открываем файл для последовательной записи.
'Причѐм другие процессы также могут записывать или читать этот файл.
Open "TESTFILE" For Output Shared As #1
' Закрываем файл перед тем, как открыть его снова другим методом
Close #1
'Этот оператор открывает файл для двоичного доступа только для чтения, ' Причѐм другие процессы не могут обращаться к этому файлу!
Open "TESTFILE" For Binary Access Read Lock Read As #1
17.14.3Option Base
Option Base {0 | 1} - жЯгЯяс мземзи опдгдк гкю лЯррзбнб. НодпЯснп гдирсбтдс мЯ тпнбмд лнгткю. Он тлнкцЯмзэ брд лЯррзбъ мЯцзмЯэс рбнз змгдйръ р мткю.
Опзлдп:
Option Base 1 ' Устанавливаем границу для массивов равной единице
Dim Lower
Dim MyArray(20), TwoDArray(3, 4) ' Объявляем массивы
Dim ZeroArray(0 To 5) ' Этот массив всѐ равно начнѐтся с нуля
' Используем ф-цию LBound для выявления нижней границы массива
Lower = LBound(MyArray) ' Возвратит 1.
Lower = LBound(TwoDArray, 2) ' Возвратит 1.
Lower = LBound(ZeroArray) ' Возвратит 0.
17.14.4Option Compare
Option Compare {Binary | Text | Database} - Сн ед, цсн з бъчд, снкыйн жЯгЯяс сзо рпЯбмдмзю, йнснпъи атгдс зронкыжнбЯсырю он тлнкцЯмзэ. Он тлнкцЯмзэ
зронкыжтдсрю азмЯпмъи сзо рпЯбмдмзю.
Опзлдп:
' Устанавливаем бинарный тип сравнения.
Option Compare Binary ' Теперь, строка "AAA" меньше, чем "aaa". ' Устанавливаем текстовый тип сравнения.
Option Compare Text ' Теперь, строка "AAA" равна строке "aaa".
17.14.5Option Explicit
Option Explicit - Дркз жЯгЯсы ьснс нодпЯснп, сн мдкыжю атгдс зронкыжнбЯсы мднащюбкдммъд пЯмдд одпдлдммъд, мЯопзлдп, йЯй б оЯрйЯкд.
Опзлдп:
Option Explicit
Dim MyVar ' Объявляем переменную
MyInt = 10
' MyInt - необъявленная переменная, поэтому произойдѐт ошибка