For - Next Schleife, ich bitte um HILFE

[Ironsmurf]

Hallo zusammen

ich möchte einen Satz in einzelne Wörter zerlegen, nun dies habe ich auch geschafft, allerdings nicht besonders gut, da ich mit den For Next Schleifen noch nicht wirklich klar komme.

;String wird in einzelne Woerter geteilt
For k=1 To 15
ergebnis$ = StringField(text$, k, " ") : Debug (ergebnis$)
If k=1 : wort1$ = ergebnis$
ElseIf k=2 : wort2$ = ergebnis$
ElseIf k=3 : wort3$ = ergebnis$
ElseIf k=4 : wort4$ = ergebnis$
ElseIf k=5 : wort5$ = ergebnis$
ElseIf k=6 : wort6$ = ergebnis$
ElseIf k=7 : wort7$ = ergebnis$
ElseIf k=8 : wort8$ = ergebnis$
ElseIf k=9 : wort9$ = ergebnis$
ElseIf k=10 : wort10$ = ergebnis$
ElseIf k=11 : wort11$ = ergebnis$
ElseIf k=12 : wort12$ = ergebnis$
ElseIf k=13 : wort13$ = ergebnis$
ElseIf k=14 : wort14$ = ergebnis$
ElseIf k=15 : wort15$ = ergebnis$
EndIf
Next


Vieleicht ist jemand so nett, mir zu erklären wie ich diese Wörter in eine Schleife packen kann.
Benutze noch die Demo von PureBasic, habe die Vollversion schon bestellt, damit ich bald alle Funktionen nutzen kann.

Vielen Dank für eure Hilfe im voraus

[ts-soft]

Hier mal ein Codebeispiel:

Code: Alles auswählen

text$ = "Die Geschwindigkeit nicht auf kosten der Sicherheit erhöhen"

;8 Wörter im String, als wird ein Array von 8 elementen gebildet
Dim Wort$(7) ;8 elemente (0-7)
For I = 0 To 7
  Wort$(I) = StringField(text$, I + 1, " ")
  Debug Wort$(I)
Next

[Froggerprogger]

Hier ein weiteres, bei dem die Anzahl der Worte automatisch bestimmt wird:

Code: Alles auswählen

text$ = "Die Geschwindigkeit nicht auf kosten der Sicherheit erhöhen." 

;Anzahl der Wörter im String bestimmen:
num = CountString(text$, " ") + 1
Dim Wort$(num) ;num viele elemente (0 bis num-1) 
For I = 0 To num-1
  Wort$(I) = StringField(text$, I + 1, " ") 
  Debug Wort$(I) 
Next