Visual Basic.NET How to Program (PDF)

642 Strings, Characters and Regular Expressions Chapter 15
1 ' Fig. 15.4: StringStartEnd.vb
2 ' Demonstrating StartsWith and EndsWith methods.
3
4 Imports System.Windows.Forms
5
6 Module modStartEnd
7
8 Sub Main()
9 Dim strings As String()
10 Dim output As String = ""
11 Dim i As Integer
12 Dim quotes As Char = ChrW(34)
13
14 strings = New String() {"started", "starting", _
15 "ended", "ending"}
16
17 ' test every string to see if it starts with "st"
18 For i = 0 To strings.GetUpperBound(0)
19
20 If strings(i).StartsWith("st") Then
21 output &= quotes & strings(i) & quotes & _
22 " starts with " & quotes & "st" & quotes & vbCrLf
23 End If
24
25 Next
26
27 output &= vbCrLf
28
29 ' test every string to see if it ends with "ed"
30 For i = 0 To strings.GetUpperBound(0)
31
32 If strings(i).EndsWith("ed") Then
33 output &= quotes & strings(i) & quotes & _
34 " ends with " & quotes & "ed" & quotes & vbCrLf
35 End If
36
37 Next
38
39 MessageBox.Show(output, "Demonstrating StartsWith and" & _
40 " EndsWith methods", MessageBoxButtons.OK, _
41 MessageBoxIcon.Information)
42 End Sub ' Main
43
44 End Module ' modStartEnd
Fig. 15.4 StartsWith and EndsWith methods.