Array的sort函数使用总结

最新推荐文章于 2024-05-16 22:05:01 发布

水草会武

最新推荐文章于 2024-05-16 22:05:01 发布

阅读量1.4k

点赞数

分类专栏： Vb.net 文章标签： integer function object class string list

本文链接：https://blog.csdn.net/shuicaohui5/article/details/6191219

版权

Vb.net 专栏收录该内容

92 篇文章 4 订阅

订阅专栏

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