Dim strValue As String = "87374201-1CB6-46A2-AEAB-C0F2F8ABA75D"
Dim blnMatch As Boolean
blnMatch = System.Text.RegularExpressions.Regex.IsMatch(strValue, _
"^[A-Z0-9]{8}-[A-Z0-9]{4}-[A-Z0-9]{4}-[A-Z0-9]{4}-[A-Z0-9]{12}$", _
System.Text.RegularExpressions.RegexOptions.IgnoreCase)
MsgBox(blnMatch)
تعليقات
إرسال تعليق