1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | Для того, чтобы определить содержит ли строка буквы русского или английского алфавита, причём без перебора символов в строке, достаточно использовать оператор LikeiText$ = "Оператор Like используется для сравнения двух строковых выражений" If iText$ Like "*[А-я]*" Then MsgBox "В строке точно есть буквы из русского алфавита"Else MsgBox "В строке нет ничего интересного"End If If iText$ Like "*[A-z]*" Then MsgBox "В строке точно есть буквы из английского алфавита"Else MsgBox "В строке нет ничего интересного"End If |