使用System.StringSplitOptions去除待拆分字符串中的空项



Dim s As String = "0,1,2,"
        Dim res As String() = s.Split(New Char() {","}, StringSplitOptions.RemoveEmptyEntries)
        Dim res1 As String() = s.Split(New Char() {","})
        For Each str As String In res
            MsgBox(str)
        Next
        MsgBox(res.Length)
        For Each str As String In res1
            MsgBox(str)
        Next
        MsgBox(res1.Length)



判断访问网页是电脑还是手机