split 例子

    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