用于密码和电子邮件模式的Visual Basic“赞”运算符

Question

I am trying to use the Like operator to make sure that a String matches against a Pattern. I know that it is easier to use regex (Regular Expression), but let's just say that I have to use the “like” operator. How should I go about it? Any help would be much appreciated.

The password textbox should at least contain one character, one number and one of these symbols #%&*.

let's keep it simple and BTW this is how far I've managed to come with the email pattern.

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    If TextBox2.Text Like "*[@]*?.[a-z]*" Then
        MsgBox("OK")
    Else
        MsgBox("NO GOOD")
    End If
End Sub

Answer 1

The password textbox should at least contain one character, one number and one of these symbols #%&*.

The only way to solve this with the LIKE operator is to combine multiple LIKE operations, since there's no concept of OR or lookahead/lookbehind like regex.

Here's an example:

Dim strings = {"das6723&", "das6723", "#das6723", 
               "fsdfdfs", "f74/&g3", "232323", 
               "ABC37&28", "J**1", "j87#"}

For Each s in strings
    Console.Write(s)

    If s Like "*#*" AndAlso _ 
       s Like "*[#%&*]*" AndAlso _
       s Like "*[a-zA-Z]*" Then

       Console.WriteLine(" : valid")
    Else
        Console.WriteLine(" : not valid")
    End If
Next

Answer 2

The password textbox should at least contain one character, one number and one of these symbols #%&*.

For your requirement you neither need regex nor the Like -operator, this is more efficient and readable as well:

Dim isValid = text.Length > 0 AndAlso
    text.Any(AddressOf Char.IsDigit) AndAlso
    text.Any(AddressOf "#%&".Contains)

Answer 3

You should look for regex. Here is an example from MSDN for finding email adresses in VB.

Function ValidateEmail(ByVal email As String) As Boolean
    Dim emailRegex As New System.Text.RegularExpressions.Regex( 
        "^(?<user>[^@]+)@(?<host>.+)$")
    Dim emailMatch As System.Text.RegularExpressions.Match = 
       emailRegex.Match(email)
    Return emailMatch.Success
End Function

https://msdn.microsoft.com/en-us/library/vstudio/txk0hsah%28v=vs.100%29.aspx

More on regex in VB: http://support2.microsoft.com/kb/818802