Array的sort函数使用总结

傷城~ 2022-09-28 15:29 169阅读 0赞

用好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