Dim blnMatch As Boolean, strValue As String = "5440206023965209"
blnMatch = System.Text.RegularExpressions.Regex.IsMatch(strValue, _
"^((?:4\d{3})|(?:5[1-5]\d{2})|(?:6011)|" & _
"(?:3[68]\d{2})|(?:30[012345]\d))[ -]?(\d{4})" & _
"[ -]?(\d{4})[ -]?(\d{4}|3[4,7]\d{13})$")
MsgBox(blnMatch)
blnMatch = System.Text.RegularExpressions.Regex.IsMatch(strValue, _
"^((?:4\d{3})|(?:5[1-5]\d{2})|(?:6011)|" & _
"(?:3[68]\d{2})|(?:30[012345]\d))[ -]?(\d{4})" & _
"[ -]?(\d{4})[ -]?(\d{4}|3[4,7]\d{13})$")
MsgBox(blnMatch)
تعليقات
إرسال تعليق