Seite 1 von 1

Text aufteilen?

Verfasst: 04.11.2006 17:25
von 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?

Re: Text aufteilen?

Verfasst: 04.11.2006 17:28
von 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

Re: Text aufteilen?

Verfasst: 05.11.2006 18:16
von PureBasic4.0
Kiffi hat geschrieben:> 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

Verfasst: 05.11.2006 18:21
von 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!

Verfasst: 05.11.2006 18:24
von Vallan
alternativ kannst du natürlich auchnoch "mid()" verwenden, bsonders wenn du keine trennzeichen hast.

Verfasst: 06.11.2006 14:03
von 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.