German String zerteilen ?

[v150klaus]

Hallo, ich habe folgendes Problem:
Ich empfange über bluetooth eine Textzeile mit vier Werten. Immer mit einem Komma von einander getrennt. Es sind immer die gleiche Anzahl von Werten zb: "1,12,14,65" oder "1,3,32,1" oder 12,34,55,77"
Wie kann ich am schnellsten den String so zerteilen das ich die einzelnen Werte in einem Label anzeigen kann?
Label1 "1"
Label2 "12"
Label3 "14"
Label4 "65"


Mein Code bisher:

Dim Label2 As Label
Dim str(7) As String
Dim Status As String.........

Sub Timer1_Tick
If connected Then
If TextReader1.Ready Then 'check if there is any data waiting to be read
TextLog.Text = TextReader1.ReadLine & CRLF
str = Regex.split(",",txtLog )
Status = str(0)
Std = str(1)
Minunten = str(2)
Sekunden = str(3)
Label2.Text = Status
End If
End If
End Sub


Klappt aber irgendwie nicht.

 

[Kiffi]

 TextLog.Text = TextReader1.ReadLine & CRLF
 str = Regex.split(",",txtLog )

ist das korrekt so, dass Du txtLog splitten willst?

Grüße ... Kiffi

 

[v150klaus]

Danke für den Hinweis !!

So isses besser und funktioniert auch:


Dim Zeile As String
txtLog.Text = TextReader1.ReadLine & CRLF
Zeile = TextReader1.ReadLine

str = Regex.split(",",Zeile )
Status = str(0)