Обработка строк - Функция 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