aus einer langen Stringvariablen mehrere kurze

[obbba]

Wie mach ich aus einer langen Stringvariablen mehrere kurze?

Ich hab z.B.

Lang$="|eins|zwei|drei|"

und will, dass in die Variablen Kurz$(0) bis Kurz$(Strichanzahl-1) jeweils

"eins", "zwei" und "drei" reinkommt.


Wie geht das?
Mit searchstring() kann ich ja die Position und die Anzahl der Striche rausfinden.
Wie geht's dann weiter?

[AndyX]

Ich glaube StringField sollte dir helfen. Sieh mal dazu in der Hilfe nach.

[obbba]

In der Hilfe ist das ein bisschen komisch erklärt.
Ich probiers mal aus.

[Kiffi]

> In der Hilfe ist das ein bisschen komisch erklärt.

Code: Alles auswählen

Lang$="|eins|zwei|drei|" 

For Zaehler = 1 To CountString(Lang$, "|") + 1
  Debug Str(Zaehler) + ": " + StringField(Lang$, Zaehler, "|")
Next

beachte, dass das erste und das letzte Feld leer ist.

Grüße ... Kiffi

[obbba]

Code: Alles auswählen

openconsole()
Dim strich(1000)
Dim kurz$(1000)
anzstrich=4

lang$="|eins|zwei|drei|"

For i = 1 to anzstrich
 strich(i)=FindString(lang$,"|",anfg)
 anfg=strich(i)
Next i

For i =0 to anzstrich-1
 If i >0
  kurz$(i)=StringField(lang$, strich(i-1)
 Endif
 PrintN( "kurz$(" + Str(i) + ") = " + kurz$(i)
Next i
Input()

End

Da bleibt bei mir das Fenster schwarz. Was ist falsch?

/edit

Ich war kurz weg, ich probier deins auch mal.

[obbba]

Danke!
Funktioniert.