Проверьте, если текст содержит более одного @

Question

Работает следующий код.

Dim aaa As String = "aa@aa" 
    If aaa.Contains("@") Then 
     MsgBox("Error1") 
    End If 

Следующий код не работает.

Dim bbb As String = "bb@bbcc@cc" 
    If bbb.Contains("*@*@*") Then 
     MsgBox("Error2") 
    End If 

Итак, что представляет собой проблема со следующей строкой?

If bbb.Contains("*@*@*") Then 

Answer 1

Это происходит потому, что строка bbb не содержит последовательность символов *@*@*.

String.Contains не поддерживает подстановочные знаки.

Вы можете использовать это вместо этого.

If Regex.Match(bbb,".*@.*@.*").Success then 
    MsgBox("Error2") 
End If 

Answer 2

Вы не можете использовать подстановочные знаки.

Содержит не поддерживает * подстановочные знаки. Может, попробовать?

If bbb.Contains("@") And bbb.IndexOf("@") <> bbb.LastIndexOf("@") Then 
    ... 
End If 

Answer 3

Вы можете использовать .count() для определения вхождения @ и показать соответствующее сообщение.

Dim bbb As String = "bb@bbcc@cc" 
    Dim cnt As Integer 

    cnt = bbb.Count(Function(x) x = "@") 'Number of @ in the string 

    If cnt = 1 Then 
    MsgBox("Error1") 
    ElseIf cnt = 2 Then 
    MsgBox("Error2") 
    End If 

---

Примечание: Я полагаю, что OP ищет вхождения символа в строке, а не конкретный шаблон, чтобы следовать