Visual Basic.NET How to Program (PDF)

672 Strings, Characters and Regular Expressions Chapter 15
57 txtLast.Focus()
58
59 Return
60 End If
61
62 ' if first name format invalid show message
63 If Not Regex.Match(txtFirst.Text, _
64 "^[A-Z][a-zA-Z]*$").Success Then
65
66 ' first name was incorrect
67 MessageBox.Show("Invalid First Name", "Message")
68 txtFirst.Focus()
69
70 Return
71 End If
72
73 ' if address format invalid show message
74 If Not Regex.Match(txtAddress.Text, "^[0-9]+\s+([a-zA-Z]" & _
75 "+|[a-zA-Z]+\s[a-zA-Z]+)$").Success Then
76
77 ' address was incorrect
78 MessageBox.Show("Invalid Address", "Message")
79 txtAddress.Focus()
80
81 Return
82 End If
83
84 ' if city format invalid show message
85 If Not Regex.Match(txtCity.Text, "^([a-zA-Z]+|[a-zA-Z]" & _
86 "+\s[a-zA-Z]+)$").Success Then
87
88 ' city was incorrect
89 MessageBox.Show("Invalid City", "Message")
90 txtCity.Focus()
91
92 Return
93 End If
94
95 ' if state format invalid show message
96 If Not Regex.Match(txtState.Text, _
97 "^([a-zA-Z]+|[a-zA-Z]+\s[a-zA-Z]+)$").Success Then
98
99 ' state was incorrect
100 MessageBox.Show("Invalid State", "Message")
101 txtState.Focus()
102
103 Return
104 End If
105
106 ' if zip code format invalid show message
107 If Not Regex.Match(txtZip.Text, "^\d{5}$").Success Then
108
Fig. 15.22 Validating user information using regular expressions (part 3 of 5).