Array的sort函数使用总结

用好Array的话对性能提高 或有很大帮助

 

声明Array的两种方式

      

        'Dim arr1 As Array = Array.CreateInstance(GetType(String), 长度)

       

        给定明确的类型：假设为string的数组
        Dim arr1(长度 - 1) As String

 

利用Array.Sort()给指定的数组或数据key,数据value排序

下文是对Hashtable的key进行排序：（包括按字符升序或降序，字符升序的升序或降序）

        Dim htPara As Hashtable = New Hashtable
        Dim strLog As StringBuilder
        Dim str As New StringBuilder
        Dim arr As New ArrayList

       初始化Hashtable的内容

        htPara.Add("SHIP_ORDER_DATE", "2011/02/16")
        htPara.Add("SHIP_ORDER_DATE_TOMORROW", "2011/02/17")
        htPara.Add("a", "2011/02/18")
        htPara.Add("aa", "2011/02/18")
        htPara.Add("z", "2011/02/19")

        初始化Hashtable的内容（数值型）
        'htPara.Add(1, "2011/02/16")
        'htPara.Add(2, "2011/02/17")
        'htPara.Add(300, "2011/02/17")
        Dim enumerator As IDictionaryEnumerator
        enumerator = htPara.GetEnumerator
        Dim arr1(htPara.Count - 1) As String
        Dim arr2(htPara.Count - 1) As String

 

       把Hashtable的内容复制到Array中
        htPara.Keys().CopyTo(arr1, 0)
        htPara.Values.CopyTo(arr2, 0)

 

        如果内容是数值就可以行Sum()
        Debug.WriteLine(arr1.Max())
        Debug.WriteLine(arr1.Min())
        'Debug.WriteLine(arr1.Sum())

        把Array中的内容复制到 List中
        'Dim list As List(Of Integer) = arr1.ToList

 

       利用排序类进行排序（文字長さでソート(降順)）

       只是按文字的升序的话，可以不用第2个参数。保持默认即可

        Array.Sort(arr1, New SortBySizeDesc)

 

       按文字的升序排序，对像是index的1到3

        Array.Sort(arr1, 1，3)

 

       按文字的升序排序，对像是数组key,数组value排序

        Array.Sort(arr1, arr2)

      

       如果是Arraylist对像的话，还可以这样用。

      假设Arraylist对像 是myArrlst

      利用排序类进行排序（文字長さでソート(降順)）

     myArrlst.Sort(New SortBySizeDesc)

 

以下是排序类：只是按文字的升序的话，可以不用这个参数。保持默认即可

-----------------------------------------------

   ''' <summary>
    ''' 文字長さでソート(昇順)
    ''' </summary>
    ''' <remarks>ソート用</remarks>
    Public Class SortBySizeAsc
        Implements IComparer

        Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
           Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(x.ToString.Length, y.ToString.Length)
        End Function

    End Class

    ''' <summary>
    ''' 文字長さでソート(降順)
    ''' </summary>
    ''' <remarks>ソート用</remarks>
    Public Class SortBySizeDesc
        Implements IComparer

        Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
           Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(y.ToString.Length, x.ToString.Length)
        End Function

    End Class

    ''' <summary>
    ''' 文字でソート(昇順)
    ''' </summary>
    ''' <remarks>ソート用</remarks>
    Public Class SortByCharAsc
        Implements IComparer
        Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
           Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(x, y)
        End Function
    End Class

    ''' <summary>
    ''' 文字でソート(降順)
    ''' </summary>
    ''' <remarks>ソート用</remarks>
    Public Class SortByCharDesc
        Implements IComparer
        Function Compare(ByVal x As Object, ByVal y As Object) As Integer _
           Implements IComparer.Compare
            Return New CaseInsensitiveComparer().Compare(y, x)
        End Function
    End Class