Text aufteilen?

[PureBasic4.0]

Hallo, Leute

Ich habe folgenden Text:
Text$ = Nummer1 Nummer2 Nummer3 Nummer4 Nummer5
Jetzt möchte ich diesen Text in einzelteile aufteilen. Nummer1 bekomme ich ja mit

Code: Alles auswählen

Position = FindString(Text$,"  ",0)
Nummer1$ = Left(Text$,Position-1)

Ich mache das bewusst so umständlich, da der Text variieren kann.
Wie kann ich jetzt die übrigen Textstellen herausfinden?

[Kiffi]

> Wie kann ich jetzt die übrigen Textstellen herausfinden?

dafür gibt's StringField()

Code: Alles auswählen

For k=1 To 6
  Debug StringField("Hello I am a split string", k, " ")
Next

Mit CountString() kannst Du rausfinden, wie viele 'Felder' sich in Deinem
String befinden.

Grüße ... Kiffi

[PureBasic4.0]

> Wie kann ich jetzt die übrigen Textstellen herausfinden?

dafür gibt's StringField()

Code: Alles auswählen

For k=1 To 6
  Debug StringField("Hello I am a split string", k, " ")
Next

Mit CountString() kannst Du rausfinden, wie viele 'Felder' sich in Deinem
String befinden.

Grüße ... Kiffi

aber mit StringField kann man immer nur einen String mit einer Stelle suchen. Die Abstände zwischen den einzelnen Textteilen ist ein ganzer Tab. Da der String, den ich vorgegeben habe, von einem anderen Programm stammt, kann ich es leider nicht so verändern, dass zwischen den Textteilen nur ein Leerzeichen und kein ganzer Tabstop steht

[ts-soft]

Code: Alles auswählen

For k=1 To 6
  Debug Trim(StringField("Hello	I	am	a	split	string", k, #TAB$))
Next

Beim kopieren gehen hier leider die Tabs verloren
Aber es geht!

[Vallan]

alternativ kannst du natürlich auchnoch "mid()" verwenden, bsonders wenn du keine trennzeichen hast.

[PureBasic4.0]

hat doch mit StringField probiert.
Die Textdatei war 7,66 MB groß. Hat auf meinem 3,06 GHZ Rechner 7 Minuten gebraucht, bis die Textdatei in eine Preference-Datei umgewandelt wurde.