Private Sub btnSplit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSplit.Click
Dim qqStr As String = "QQ: 6,4,3,1,666,0,1"
Dim strSplitArray() As String
strSplitArray = qqStr.Split(",")
Dim qq As String = ""
For i As Integer = 0 To strSplitArray.Length - 1
qq = qq & strSplitArray(i)
Next
MsgBox(qq)
End Sub
Dim qqStr As String = "QQ: 6,4,3,1,666,0,1"
Dim strSplitArray() As String
strSplitArray = qqStr.Split(",")
Dim qq As String = ""
For i As Integer = 0 To strSplitArray.Length - 1
qq = qq & strSplitArray(i)
Next
MsgBox(qq)
End Sub