VB.Net Tutorial/Regular Expressions/Post Code

Материал из VB Эксперт
Перейти к: навигация, поиск

Validate for Canada postal code format

<source lang="vbnet">Imports System.Text.RegularExpressions Public Class Tester

   Public Shared Sub Main
       Dim sPostalCode As String = "A1A 1A1"
       Dim sPattern As String
       Dim objRegEx As Regex
       sPattern = "[ABCEGHJKLMNPRSTVXY]\d[A-Z]\d[A-Z]\d"    
       
       Console.WriteLine(objRegEx.IsMatch(sPostalCode, sPattern))
       
       
   End Sub

End Class</source>

False

Validate for US postal code format

<source lang="vbnet">Imports System.Text.RegularExpressions Public Class Tester

   Public Shared Sub Main
       Dim sPostalCode As String = "12345-1111"
       Dim sPattern As String
       Dim objRegEx As Regex
       sPattern = "\d\d\d\d\d-\d\d\d\d"
       
       Console.WriteLine(objRegEx.IsMatch(sPostalCode, sPattern))
   End Sub

End Class</source>

True