Code aufteilen

Hallo,

ich stehe mal wieder vor einem Problem.
Über die serielle Schnittstelle erhalte ich folgenden Code:

0-0-28-24-0-1-0-105

Jede Zahl kann zwischen 1 und 3 Stellen haben. Sie sind immer durch einen - getrennt.

Ich möchte nun drei Varianlen V1, V2, V3, V4, V5, V6, V7 und V8 mit dem jeweiligen Zahlenwert füllen und breche mir ganz schön einen ab.
Sicher geht das ganz einfach
Kann mir jemand helfen?

Tobias

Zitat:

---

Zitat von elkokiller

Jede Zahl kann zwischen 1 und 3 Stellen haben. Sie sind immer durch einen - getrennt.

---

Hallo Tobias!

Du kannst den Text mit dem SPLIT-Befehl http://avrhelp.mcselec.com/index.html?split.htm aufteilen. Du erhälst die aufgeteilten Daten in einem Array. Der Inhalt des Arrays sind einzelne Strings. Wenn du Zahlen brauchst, dann musst du sie nur noch mit VAL einzeln in Zahlen umwandeln und deinen Variablen zuweisen.

mfg
Gerold
:-)

PS:

Code:

---

Dim Tmp As Byte
Dim S As String * 31
Dim Arr(8) As String * 3
Dim V0 As Byte
Dim V1 As Byte
Dim V3 As Byte
...

S = "0-0-28-24-0-1-0-105"
Tmp = Split(s , Arr(1) , "-")
V0 = Val(arr(1))
V1 = Val(arr(2))
V3 = Val(arr(3))
...

---

Super, Danke python_rocks