vb.net – 从数组中删除最后一个元素

Dim foo() As String = "This is a test".Split(New Char() {" "c},StringSplitOptions.RemoveEmptyEntries)
    Array.Resize(foo,foo.Length - 1)
    Dim s As String = String.Join(" ",foo)

或使用清单

Dim foo As New List(Of String)
    foo.AddRange("This is a test".Split(New Char() {" "c},StringSplitOptions.RemoveEmptyEntries))
    foo.RemoveAt(foo.Count - 1)
    Dim s As String = String.Join(" ",foo)

至于使用LINQ和性能,自己判断

Public Class Form1

    'to LINQ or not to LINQ
    'judge for yourself

    Dim stpw As New Stopwatch

    Private Sub Button1_Click(sender As System.Object,_
                              e As System.EventArgs) Handles Button1.Click

        Dim ipsumA() As String = New String() {"Lorem","ipsum","dolor","sit",_
                                               "amet","consectetur","adipisicing",_
                                               "elit","sed","do","eiusmod",_
                                               "tempor","incididunt","ut","labore",_
                                               "et","dolore","magna","aliqua","Ut",_
                                               "enim","ad","minim","veniam","quis",_
                                               "nostrud","exercitation","ullamco",_
                                               "laboris","nisi","aliquip","ex",_
                                               "ea","commodo","consequat","Duis","aute",_
                                               "irure","in","reprehenderit",_
                                               "voluptate","velit","esse","cillum",_
                                               "eu","fugiat","nulla","pariatur","Excepteur",_
                                               "sint","occaecat","cupidatat","non","proident",_
                                               "sunt","culpa","qui","officia","deserunt",_
                                               "mollit","anim","id","est","laborum"}

        Const tries As Integer = 100000
        Debug.WriteLine("")

        stpw.Reset()
        stpw.Start()
        For x As Integer = 1 To tries
            Dim s As String = arrayTake(ipsumA)
        Next
        stpw.Stop()
        Debug.WriteLine(stpw.ElapsedTicks.ToString)

        stpw.Reset()
        stpw.Start()
        For x As Integer = 1 To tries
            Dim s As String = arrayRsz(ipsumA)
        Next
        stpw.Stop()
        Debug.WriteLine(stpw.ElapsedTicks.ToString)

    End Sub

    Private Function arrayRsz(test As String()) As String
        Array.Resize(test,test.Length - 1)
        Return String.Join(" ",test)
    End Function

    Private Function arrayTake(test As String()) As String
        Return String.Join(" ",test.Take(test.Length - 1))
    End Function
End Class