Dim str_InpStr As String

Строковые функции

В табл. 2. вы можете найти информацию об основных строковых функциях VBA.

Таблица 2. Строковые функции
Функция	Описание
Len(string)	Возвращает длину строки. Например, длина строки "Добрый день" составляет 11 символов - учитывая пробел. Выходное значение имеет тип Long
LCase(string)	Возвращает строку, все символы которой записаны в нижнем регистре. Например, строка "Привет" превратится в "привет"
UCase(string)	Возвращает строку, все символы которой записаны в верхнем регистре. Например, для "Привет" мы получим "ПРИВЕТ"
String(number, character)	Возвращает строку, состоящую из number символов character
Left(string, length)	Возвращает length символов, начиная с первого левого символа строки string
Right(string, length)	Возвращает length символов, начиная с самого правого символа строки string
LTrim(string)	Возвращает строку, в которой вырезаны все пробелы слева
RTrim(string)	Вырезает из строки все пробелы справа
Trim(string)	Вырезает из строки все пробелы слева и справа
Mid(string, start[, length])	Вырезает из строки string с позиции start length символов
Asc(string)	Возвращает ASCII-код первого символа строки
Chr(charcode)	Возвращает символ, соответствующий коду символа

Работа со строками традиционно считается сложным разделом программирования для начинающих, поэтому проиллюстрируем вышеописанные функции примерами.

Создадим документ Microsoft Word и добавим на него следующие кнопки табл. 3.

Таблица 3. Кнопки на листе
Имя кнопки	Надпись	Номер листинга
cmd_Len	Длина строки	листинг 6.1.
cmd_Conv	Конверсия	листинг 6.2.
cmd_Mid	Вырезание	листинг 6.3.
cmd_Asc	Коды	листинг 6.5.

Обработчик нажатия кнопки cmd_Len (листинг 2.) будет содержать решение следующей задачи: сообщить пользователю длину введенного текста. Очевидно, для решения этой задачи нам понадобится функция Len.

'Переменная для хранения входной строки

Dim str_InpStr As String

'Переменная для хранения найденной длины строки

Dim lng_StrLen As Long

str_InpStr = InputBox("Введите строку")

'Вычисляем длину строки

lng_StrLen = Len(str_InpStr)

MsgBox ("Длина введенной строки: _" + _

str_InpStr + "_ равняется " + Str(lng_StrLen) + _

" символам")

Листинг 6.2. Пример использования функции Len

На рис. 2. вы можете видеть результат вычисления длины строки.