Public Class Tester
Public Shared Sub Main
Dim quote As String = "The important thing is not to " & _
"stop questioning. --Albert Einstein"
Dim strArray1() As String = Split(quote, "ing")
Dim strArray2() As String = quote.Split(CChar("ing"))
Dim counter As Integer
For counter = 0 To strArray1.Length - 1
Console.WriteLine(strArray1(counter))
Next counter
For counter = 0 To strArray2.Length - 1
Console.WriteLine(strArray2(counter))
Next counter
End Sub
End Class
|