以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [分享] 关于数组排序的方法  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=55744)

--  作者:jerzhh
--  发布时间:2014/8/22 12:52:00
--  [分享] 关于数组排序的方法

数组Array有一些共享成员个人认为还是比较有用的,例如:

 

 

数组改容

Array.Resize(array, newSize)

 

数组排序(反向)

Array.Reverse(array)

Array.Reverse(array, index, length)

 

数组排序(升序)

Array.Sort(array)

Array.Sort(array, index, length)

Array.Sort(keys, items)

keys:基准数组

items:目标数组

目标数组按基准数组的顺序排序

 

下面是一个实例,以帮助大家直观理解:

 

Dim dts() As String = {"官网","邮编","门诊量","等级","类别","客户编号","地区","区县","省","单位名称"}
Dim dtsIs() As String = {"9","8","7","5","6","3","1","2","0","4"}
Output.Show("-----------------------------")
Output.Show("Keys:  " & String.Join("|",dtsIs))
Output.Show("items: " & String.Join("|",dts))
Array.Sort(dtsIs,dts)
Output.Show("-----------------------------")
Output.Show("Keys:  " & String.Join("|",dtsIs))
Output.Show("items: " & String.Join("|",dts))
Array.Sort(dts,dtsIs,2,5)
Output.Show("-----------------------------")
Output.Show("Keys:  " & String.Join("|",dts))
Output.Show("items: " & String.Join("|",dtsIs))

 

代码执行结果如下:

-----------------------------
Keys:  9|8|7|5|6|3|1|2|0|4
items: 官网|邮编|门诊量|等级|类别|客户编号|地区|区县|省|单位名称
-----------------------------
Keys:  0|1|2|3|4|5|6|7|8|9
items: 省|地区|区县|客户编号|单位名称|等级|类别|门诊量|邮编|官网
-----------------------------
Keys:  省|地区|单位名称|等级|客户编号|类别|区县|门诊量|邮编|官网
items: 0|1|4|5|3|6|2|7|8|9

 


--  作者:don
--  发布时间:2014/8/22 13:33:00
--  
頂頂!
--  作者:lsy
--  发布时间:2014/8/22 14:53:00
--  
好。
--  作者:hanxuntx
--  发布时间:2014/8/22 15:17:00
--  

学习了