Поиск русских символов в строке - VB

Формулировка задачи:

Подскажите, пожалуйста, как искать русские символы в строке? Т.е. скажем есть ТextBox в него вводиться рандомная строка, которая может содержать и кирилицу и латиницу и цифры. И как в этом безобразии определить является ли та или иная буква русской или бусурманской? Пробовать через ASCI кодировку?

Решение задачи: «Поиск русских символов в строке»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub qqq()
Dim s$, i As Long, c$
s = "sfghd3456аро"
For i = 1 To Len(s)
  c = Mid$(s, i, 1)
  If c Like "[A-Za-z]" Then
    MsgBox c & " - бусурманская"
  ElseIf c Like "[А-Яа-яЁё]" Then
    MsgBox c & " - нашенская"
  Else
    MsgBox c & " - ни то, ни сё"
  End If
Next i
End Sub

Оцени полезность:

7 голосов , оценка 4.429 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы