Исключение символов при проверке - VB

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

В общем, нужно, чтобы по нажатию на кнопку, из текст бокса считывалось слово или фраза, и при соответствии со словом в коде, выдавало "верно" или "неверно" соответственно. Только надо сделать так, чтобы не учитывались знаки (, ' " ... Ну тоесть ввели в кнопке для проверки, допустим, "город", вводим в текст бокс "г"оро'д", и нам выдает, что слово верно.... Это вообще реально?

Решение задачи: «Исключение символов при проверке»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Function DeleteSymbols(ByVal strStroka As String) As String
    Dim s As String, i As Integer
        For i = 1 To Len(strStroka)
                If Mid(strStroka, i, 1) Like "[aA-яЯ]" Then
                       s = s & Mid(strStroka, i, 1)
                End If
         Next i
    DeleteSymbols = s
End Function
 
Private Sub Command1_Click()
    Text1.Text = DeleteSymbols(Text1.Text)
End Sub

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

11 голосов , оценка 4.091 из 5

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

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

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