PureBoard

Verfasst: **01.12.2004 18:38**

Hallo ich hab da ma ne frage.

Wenn ich einen String hab beispielweise so: string$="[spieler1x]30[spieler2x]9020[message]Hallo"

Kann ich dann irgendwie einzelde Strings daraus machen also beispielweise so:

spieler1x$="30"
spieler2x$="9020"
message$="Hallo"

Danke schonmal im voraus

Verfasst: **01.12.2004 18:42**

1 hilfe: In die anleitung gucken !
2 : nicht enttäuscht sein wenn mal was schief geht.
3 : mir zuhören:

Syntax
Ergebnis$ = Mid(String$, StartPosition, Länge)

So.
Das dürfte reichen.

Verfasst: **01.12.2004 19:01**

Dafür würde ich eher [c]StringField()[/c] benutzen.

Gute alte besserwisser Hilfe hat geschrieben:Syntax

Ergebnis$ = StringField(String$, Index, Trennzeichen$)
Beschreibung

Gibt den Feldinhalt des 'String$' an der angegebenen Stelle 'Index' zurück. 'Trennzeichen$' ist das Zeichen, das zur Aufteilung des Strings benutzt wird (nur ein Zeichen lang). Die erste 'Index' Position ist 1.

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

Verfasst: **01.12.2004 19:17**

Das hab ich ma geproggt (BEACHTET BITE NICHT WIE ICH DIE STRINGS/VARIABLEN GENANNT HABE!) aber das funzst irgendwie net:

Code: Alles auswählen

Procedure string(string$,value$,nextvalue$)
string1=FindString(string$, value$, 0) 
string2=FindString(string$, nextvalue$, 0) 
string3$=Mid(string2$, string1,string2-string1)
string3$=RemoveString(string3$, value$)
ProcedureReturn string3$
endprocedure

[/b]

Verfasst: **01.12.2004 19:24**

Häää???

Icrgenwas mit Procedure Return funktioniert das nicht??? Kann mir da ma jemand helfen

Verfasst: **01.12.2004 19:25**

Also auf Anhieb kann ich mal sagen, daß Procedure.s angeben mußt, da Deine Procedure einen String zurück gibt. Zum Rest kann ich nicht viel sagen, da ich nicht Dein ganzes Programm kenne, bzw. den Teil der, der dafür auch noch wichtig ist...

Verfasst: **01.12.2004 19:27**

DANKE!!! Ich hab das vergessen

Also:

Code: Alles auswählen

Procedure.s string(string$,value$,nextvalue$)
string1=FindString(string$, value$, 0) 
string2=FindString(string$, nextvalue$, 0) 
string3$=Mid(string$, string1,string2-string1)
string3$=RemoveString(string3$,value$,1)
ProcedureReturn string3$
endprocedure