4.2Опе­ра­ция слия­ния текстовых данных

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

Выражение	равно
""  &  ""	""
"ABC"  &  ""	"ABC"
""  &  "12345"	"12345"
"КГТУ"  &  "им.А.Н.Ту­по­ле­ва"	"КГТУ­им.А.Н.Ту­по­ле­ва"
"КГТУ "  &  "им.Ту­по­ле­ва"	"КГТУ им.Ту­по­ле­ва"

ВЫПОЛНИТЬ

В модуле листа Лист1 наберите

Sub S03()

Debug.Print "1-й текст" & "2-й текст"

Debug.Print "1-й текст" & " " & "2-й текст"

End Sub

Выполните процедуру

4.3Оператор именования констант

Если в программе несколько раз встречаются одни и те же текстовые константы, можно дать им имена (идентификаторы) оператором именования констант

Const ИмяКонстанты = "ЗначениеКонстанты"

После этого имя константы может использоваться везде вместо непосредственного указания значения текстовой константы.

ВЫПОЛНИТЬ

Отобразите панель инструментов Debug. (Отладка). (команда меню View (Вид) | Toolbars (Панели инструментов) | Debug (Отладка)

Отобразите окно локальных данных (команда меню View (Вид) | Locals Window).

В модуле листа Лист1 наберите

Sub S04()

Const A1 = "1-й текст"

Const A2 = "2-й текст", A12 = "(соединен с)"

Debug.Print A1 & "2-й текст"

Debug.Print A1 & A12 & A2

End Sub

Выполните процедуру в пошаговом режиме (нажимая кнопку Пошаговое выполнение панели инструментов Debug. (Отладка).

При пошаговом выполнении в окне локальных данных можно видеть значения всех поименованных данных.

4.4Встроенная функция Mid – выделения из текстового данного его части

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

Mid(ТекстовоеДанное, НомерПервогоСимвола, Длина)

или

Mid(ТекстовоеДанное, НомерПервогоСимвола)

где

ТекстовоеДанное – текстовое выражение,

НомерПервогоСимвола – номер первого символа текстового выражения, с которого начинается возвращаемое значение,

Длина – число символов возвращаемого значения. Если этот параметр не указан, то считается, что возвращаемое значение завешается последним символом заданного текстового выражения.

ВЫПОЛНИТЬ

Отобразите окно локальных данных (команда меню View (Вид) | Locals Window).

Отобразите панель инструментов Debug. (Отладка). (команда меню View (Вид) | Toolbars (Панели инструментов) | Debug (Отладка)

В модуле листа Лист1 наберите

Sub s05()

Const A1 = "1-й текст"

Const A2 = "2-й текст", A12 = "(соединен с)"

Debug.Print A1 & "2-й текст"

Debug.Print Mid(A1, 1, 3) & "2-й текст"

Debug.Print A1 & A12 & A2

Debug.Print Mid(A1 & A12 & A2, 6)

End Sub

Выполните процедуру в пошаговом режиме.