6.4. Оператор Mid

Формат записи:

Mid(строка, n, [k]) = фрагмент

Этот оператор заменяет в строке, начиная с позиции n, k символов на фрагмент. Оператор Mid в отличие от функции Mid записывается слева от знака равенства. Если k не указано, фрагмент берется целиком. Если длина фрагмента больше k, то берутся только первые k символов фрагмента, например:

X = "Добрый день"

Mid(X, 1, 6) = "Плохой" Результат: X = "Плохой день"

Пример С1. Ввести произвольный текст из двух – трех предложений. В этом тексте найти позицию первой точки, вывести весь текст после этой точки и указать его длину.

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

Sub Пример_С1() 'Пример использования строковых функций

Worksheets("Лист1").Select 'Выбор рабочего листа "Лист1"

'Объявления переменных:

Dim vv_txt As String 'Введенный текст

Dim poz As Byte 'Позиция первой точки

Dim ost_txt As String 'Остаток текста после точки

Dim dlina As Byte 'Длина остатка текста

vv_txt = InputBox("Введите текст") 'Ввод текста

Cells(1, 1) = vv_txt 'Вывод введенного текста в ячейку А1

'для контроля работы программы

poz = InStr(vv_txt, ".") 'Поиск точки с начала текста

ost_txt = Mid(vv_txt, poz + 1) 'Выделение остатка текста

dlina = Len(ost_txt) 'Определение длины остатка текста

MsgBox ost_txt & Chr(13) & "Длина =" & dlina 'Вывод результата

End Sub

Пример С2. Преобразовать запись «Имя Отчество Фамилия» в запись «Фамилия И.О.».

Текст программы с подробными комментариями имеет вид:

Sub Пример_С2() 'Преобразование текста

Dim txt As String 'Введенный текст

Dim dl As Byte 'Длина введенного текста

Dim p1 As Byte 'Позиция первого пробела

Dim p2 As Byte 'Позиция второго пробела

Dim fam As String 'Фамилия

Dim ima As String 'Имя

Dim otc As String 'Отчество

Dim fio As String 'Результирующий текст

'Комментарии приведены для текста txt = "Петр Сергеевич Иванов"

txt = InputBox("Имя Отчество Фамилия", "Введите текст")

dl = Len(txt) 'Длина текста ( = 21)

p1 = InStr(txt, " ") 'Позиция первого пробела ( = 5)

p2 = InStr(p1 + 1, txt, " ") 'Позиция второго пробела ( = 15)

ima = Left(txt, p1 – 1) 'Имя ( = Петр)

otc = Mid(txt, p1 + 1, p2 – p1 – 1) 'Отчество ( = Сергеевич)

fam = Right(txt, dl – p2) 'Фамилия ( = Иванов)

fio = fam + " " + Left(ima, 1) + "." + Left(otc, 1) + "." 'Сборка текста

'Далее идет вывод результатов работы программы в окно Immediate

Debug.Print "Исходный текст: "; txt; " Длина текста = "; dl

Debug.Print "Позиция первого пробела = "; p1

Debug.Print "Позиция второго пробела = "; p2

Debug.Print "Имя "; ima

Debug.Print "Отчество "; otc

Debug.Print "Фамилия "; fam

Debug.Print "Результат "; fio

End Sub

7. Введение в объектно-ориентированное программирование

7.1. Основные понятия

Объектно-ориентированное программирование (ООП) в настоящее время приходит на смену традиционному процедурному программированию. VBA с некоторыми ограничениями относят к объектно-ориентированным языкам программирования, в основе которых лежат понятия «объект» (с характерными для него методами, свойствами и событиями), «класс», «инкапсуляция», «наследование» и «полиморфизм».

В частном случае в VBA объектом называется элемент пользовательского интерфейса. Каждый объект является экземпляром, т. е. представителем некоторого класса однотипных объектов. Обычно объект нужен для того, чтобы воспользоваться его методами, свойствами или событиями.

Класс определяет общие для всех его объектов методы и свойства.

Методы – это программные процедуры, определяющие взаимодействие объектов с внешней средой. Иначе говоря, метод – это именованный набор действий, которые может выполнять данный объект, например, осуществлять какие-либо операции, принимать и возвращать значения и др.

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

Событие – это распознаваемое объектом действие, для которого можно запрограммировать отклик.

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

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

Полиморфизм – это способность объектов выбирать операцию на основе данных, принимаемых в сообщении. Каждый объект может реагировать по-своему на одно и то же сообщение. Например, команду печати Print черно-белый и цветной принтеры воспринимают по-разному.

Процесс разработки приложения в ООП применительно к организации взаимодействия программы с пользователем состоит из трех этапов:

1.  создание пользовательского интерфейса;

2.  установка свойств объектов и определение методов;

3.  составление программного кода.

Рассмотрим каждый из них подробнее.