VB.NET排名基於排序的Excel列

Question

好吧，我打了很多這樣的事情，並且已經到了可以對我的數組進行排序的地步。我現在需要做的是採取下面的代碼，並按降序排列元素，而不是升序。我不知道怎麼做，在代碼中的兩個參數：

Dim Cols(3) As Int16 
Cols(0) = ColumnNumber + 1 
Cols(1) = ColumnNumber + 2 
Cols(2) = ColumnNumber + 3 
Cols(3) = ColumnNumber + 4 

Dim Vals(3) As Double 
Vals(0) = xlsWorkSheet.Cells(r, ColumnNumber + 1).value 
Vals(1) = xlsWorkSheet.Cells(r, ColumnNumber + 2).value 
Vals(2) = xlsWorkSheet.Cells(r, ColumnNumber + 3).value 
Vals(3) = xlsWorkSheet.Cells(r, ColumnNumber + 4).value 

Array.Sort(Vals, Cols) 

Answer 1

如果我正確理解你的問題，你可以通過反向排序結果實行按降序排序。

您應該能夠提供反轉排序順序的IComparer實例。

Public Class myReverserClass 
    Implements IComparer 

    ' Calls CaseInsensitiveComparer.Compare with the parameters reversed. 
    Function Compare(x As [Object], y As [Object]) As Integer _ 
     Implements IComparer.Compare 
     Return New CaseInsensitiveComparer().Compare(y, x) 
    End Function 'IComparer.Compare 

End Class 'myReverserClass 

執行反向排序，像這樣：

Dim myComparer = New myReverserClass() 
Array.Sort(Vals, Cols, myComparer) 

有做這個MSDN上的例子：http://msdn.microsoft.com/en-us/library/system.array.sort(v=vs.71).aspx