PureBoard

Verfasst: **18.04.2006 15:28**

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?

Verfasst: **18.04.2006 15:31**

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

Verfasst: **18.04.2006 15:37**

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

Verfasst: **18.04.2006 15:42**

> 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

Verfasst: **18.04.2006 16:02**

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.

Verfasst: **18.04.2006 16:17**

Danke!
Funktioniert.