Обработка строк

Обработка строк на языке Visual Basic for Application

Строка — это последовательность символов. Строковые величины могут быть переменными или константами. Символы, заключенные в кавычки, являются строками.

В VBA существует несколько функций для обработки строк.

Функция Mid

Общий вид функции Mid:

Mid(Строка, Начальная_позиция[, Длина])

Функция Mid возвращает вырезку из строки Строка, начиная со позиции Начальная_позиция, длиною Длина.

Пример 1.

Sub пример_mid()

Dim MyString, Word1, Word2, Word3

MyString = "Демо функции Mid"

Word1 = Mid(MyString, 1, 4) ' результат "Демо"

MsgBox Word1

Word2 = Mid(MyString, 14, 3) ' результат "Mid"

MsgBox Word2

Word3 = Mid(MyString, 6)   ' результат "функции Mid"

MsgBox Word3

End Sub

Функция Len

Общий вид функции Len:

Len (Строка)

Функция Len возвращает длину строки Строка.

Пример 2.

Sub пример_len()

Dim MyString

Dim Длина

MyString = "Демо функции Len"

Длина = Len(MyString)

MsgBox Длина

End Sub

Функция InStr

Общий вид функции InStr:

InStr([нач_позиция, ]Строка1, Строка2[, Опция_1_или_0])

Функция InStr номер первого вхождения в строке Строка1 строки Строка2, начиная с позиции Нач_позиция.

Пример 3.

Sub пример_instr()

Dim Mystring

Mystring = "Где Вася"

номер = InStr(Mystring, "Вася") ' результат 5

MsgBox номер

End Sub

Кроме приведенных функций в VBA имеются: Left (вырезка слева), Right (вырезка справа),  Trim (убирает пробелы слева и справа), StrComp (сравнение строк) и др.

Приведем пример обработки строк.

Пример 4. В строке подсчитать количество цифр.

Решение.

Sub пример_str_4()

Dim Mystring, char

Dim i, n

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

n = 0

For i = 1 To Len(Mystring)

char = Mid(Mystring, i, 1)

If char >= "0" And char <= "9" Then n = n + 1

Next i

MsgBox n

End Sub