Mega Code Archive
String split by using the Split, String Split()
<![CDATA[
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
The important th
is not to stop question
. --Albert Einstein
The
mportant th
ng
s not to stop quest
on
ng. --Albert E
nste
n
]]>