Hey Leute,
ich habe ein Problem ich will die Userliste eines Chattes splitten und bekomme vom Server folgendes raus wenn ich die Userliste aufrufe:
jRAUM#BENUTZER:7:a:::#BENUTZER:27::::#BENUTZER:7::::#BENUTZER:3::::#BENUTZER:27::::#BENUTZER:27::m::#BENUTZER:7:a:::#
die Benutzer will ich rausgefiltert haben und anhand der Rechte also 3, 7, 27 in der entsprechenden Farbe in die Listbox adden kann mir vielleicht jemand helfen?
a und m stehen uebrigens fuer away und maennlich aendert sich genauso wie Benutzer und die Rechte
ich habe bis jetzt nur geschafft die Benutzer rauszufiltern nur das Problem dabei ist ich sehe nicht wer User(3), Operator(7) oder Admin(27) ist
ich habe ein Problem ich will die Userliste eines Chattes splitten und bekomme vom Server folgendes raus wenn ich die Userliste aufrufe:
jRAUM#BENUTZER:7:a:::#BENUTZER:27::::#BENUTZER:7::::#BENUTZER:3::::#BENUTZER:27::::#BENUTZER:27::m::#BENUTZER:7:a:::#
die Benutzer will ich rausgefiltert haben und anhand der Rechte also 3, 7, 27 in der entsprechenden Farbe in die Listbox adden kann mir vielleicht jemand helfen?
a und m stehen uebrigens fuer away und maennlich aendert sich genauso wie Benutzer und die Rechte
ich habe bis jetzt nur geschafft die Benutzer rauszufiltern nur das Problem dabei ist ich sehe nicht wer User(3), Operator(7) oder Admin(27) ist
VB.NET-Quellcode
- Dim source As String = "jRAUM#BENUTZER1:7:a:::#BENUTZER2:27::::#BENUTZER3:7::::#BENUTZER4:3::::#BENUTZER5:27::::#BENUTZER6:27::m::#BENUTZER7:7:a:::#"
- Dim matches As New List(Of String)
- Dim strstart As String = "#"
- Dim strend As String = ":"
- For i As Integer = 0 To source.Length - strstart.Length
- If source.Substring(i, strstart.Length) = strstart Then
- Dim f As String = source.Substring(i + strstart.Length)
- For j As Integer = 0 To source.Length - strend.Length
- If f.Substring(j, strend.Length) = strend Then
- matches.Add(f.Substring(0, j))
- list_Userlist.Items.Add(f.Substring(0, j))
- Exit For
- End If
- Next
- End If
- Next