1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | Для того, чтобы определить содержит ли строка любую из цифр от 0 до 9 , причём без перебора символов в строке, достаточно использовать оператор Like, т.е. любой из двух нижеприведённых вариантов iText$ = "Оператор Like используется для сравнения 2 -x строковых выражений" If iText$ Like "*[ 0 - 9 ]*" Then MsgBox "В строке точно наличествует цифра" Else MsgBox "В строке нет ничего интересного" End If iText$ = "Оператор Like используется для сравнения 2 -x строковых выражений" If iText$ Like "*#*" Then MsgBox "В строке точно наличествует цифра" Else MsgBox "В строке нет ничего интересного" End If Первый пример можно также использовать для поиска определённых цифр, например, в диапазоне от 2 до 5 , для этого достаточно заменить 0 - 9 на 2 - 5 ' "*[ 2 - 5 ]*" |