檢查文本是否包含多個@

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在字符串尋找人物的出現，而不是特定的模式應遵循