stringzerlegung-problem

moin, ich lese ja momentan das vb.net buch von Galileo.

habe hierbei Probleme:

Code:

---

Private Sub cmdButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdButton2.Click
        Dim strText As String = "Hans W. Fritz"
        Dim strTeile() As String
        Dim intletzte As Integer = 0
        Dim j As Integer = 0

        For i = 0 To strText.Length - 1
            If strText.Substring(i, 1) = " " Then
                ReDim Preserve strTeile(j)
                strTeile(j) = strText.Substring(intletzte, i - intLetzte) j += 1
                intletzte = i + 1
            End If
        Next
    End Sub
End Class

---

dabei kommt folgender Fehler:

Zitat:

---

Fehler 1 "end of"-Anweisung erwartet. 26 75

---

dabei wird:

Zitat:

---

j += 1

---

blau unterstrichen...

(nunja, ich habe doch schon die if schleife beendet?!)

finds ned raus was da falsch is :(

naja wäre froh wenn mir jemand sagen könnte was da falsch is... im buch stehts genau so drin... und ich hab noch nie zuvor mit einem Array gearbeitet.

vll is jemand sonett und hat genug zeit, und könnte die einzelnen schritte mit Hochkomma(') erklären...

@mfg newcode

Mit End Of Anweisung meint VB.NET Das danach nichts mehr kommen darf...


Dim strText As String = "Hans W. Fritz"
Dim strTeile() As String
Dim intletzte As Integer = 0
Dim j As Integer = 0

For i = 0 To strText.Length - 1
If strText.Substring(i, 1) = " " Then
ReDim Preserve strTeile(j)
strTeile(j) = strText.Substring(intletzte, i - intletzte)
j += 1
intletzte = i + 1
End If