我使用正则表达式。ismatch检查字符串是否包含以下字符列表中的任何一个:£&+(/?!;;; *)以及引号"不知道该怎么放……
但是不能去工作…
If Regex.ismatch(Line, "^[^@#£&+()*']"). Then
Msgbox("error")
End If
但对我不起作用?
有什么建议不使用Regex也可以很容易地做到这一点:
Public Shared Function HasSpecialChars(ByVal str As String) As Boolean
Const specialChars As String = "!@#$%^&*()"
Dim indexOf As Integer = str.IndexOfAny(specialChars.ToCharArray())
Return indexOf <> -1
End Function