Invert an Arraylist.Sort()

[Derek Martin]

Hi List, I have an arraylist of objects. I have created my own IComparable
in the object to return the sort on datetime. This works great! Now, I'd
like to invert the sort. Currently, it gives me 4/1/05 before 4/5/05
(good), but I'd like to have 4/5/05 before 4/1/05 (better!) for my
application.

Public Function CompareTo(ByVal obj As Object) As Integer Implements + _
System.IComparable.CompareTo
If TypeOf obj Is glcobject Then
Dim tmp As glcobject = DirectCast(obj, glcobject)
Return m_datetime.CompareTo(tmp.m_datetime)
End If
End Function

???

Thanks!
Derek

[Marina]

Maybe create a property which tells your object which way to sort. Then in
CompareTo look at that property, and return the appropriate result.

"Derek Martin" <dm*****@DONTSPAMMEokstateDOT.edu> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Hi List, I have an arraylist of objects. I have created my own
IComparable in the object to return the sort on datetime. This works
great! Now, I'd like to invert the sort. Currently, it gives me 4/1/05
before 4/5/05 (good), but I'd like to have 4/5/05 before 4/1/05 (better!)
for my application.

Public Function CompareTo(ByVal obj As Object) As Integer Implements + _
System.IComparable.CompareTo
If TypeOf obj Is glcobject Then
Dim tmp As glcobject = DirectCast(obj, glcobject)
Return m_datetime.CompareTo(tmp.m_datetime)
End If
End Function

???

Thanks!
Derek

[Russell Jones]

Call Sort, and then ArrayList.Reverse.

"Derek Martin" <dm*****@DONTSPAMMEokstateDOT.edu> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Hi List, I have an arraylist of objects. I have created my own
IComparable in the object to return the sort on datetime. This works
great! Now, I'd like to invert the sort. Currently, it gives me 4/1/05
before 4/5/05 (good), but I'd like to have 4/5/05 before 4/1/05 (better!)
for my application.

Public Function CompareTo(ByVal obj As Object) As Integer Implements + _
System.IComparable.CompareTo
If TypeOf obj Is glcobject Then
Dim tmp As glcobject = DirectCast(obj, glcobject)
Return m_datetime.CompareTo(tmp.m_datetime)
End If
End Function

???

Thanks!
Derek

[Derek Martin]

Ooooh - good idea!!!! Thanks Russell...

Derek

"Russell Jones" <ar**@nospam.northstate.net> wrote in message
news:uS**************@TK2MSFTNGP12.phx.gbl...

Call Sort, and then ArrayList.Reverse.

"Derek Martin" <dm*****@DONTSPAMMEokstateDOT.edu> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Hi List, I have an arraylist of objects. I have created my own
IComparable in the object to return the sort on datetime. This works
great! Now, I'd like to invert the sort. Currently, it gives me 4/1/05
before 4/5/05 (good), but I'd like to have 4/5/05 before 4/1/05 (better!)
for my application.

Public Function CompareTo(ByVal obj As Object) As Integer Implements + _
System.IComparable.CompareTo
If TypeOf obj Is glcobject Then
Dim tmp As glcobject = DirectCast(obj, glcobject)
Return m_datetime.CompareTo(tmp.m_datetime)
End If
End Function

???

Thanks!
Derek

[Dennis]

If m_ascending Then
If Not v_CaseSensitive Then Return New
CaseInsensitiveComparer().Compare(x, y) Else Return New
Comparer(ci).Compare(x, y)
Else
If Not v_CaseSensitive Then Return New
CaseInsensitiveComparer().Compare(y, x) Else Return New
Comparer(ci).Compare(y, x)
End If

"Derek Martin" wrote:

Ooooh - good idea!!!! Thanks Russell...

Derek

"Russell Jones" <ar**@nospam.northstate.net> wrote in message
news:uS**************@TK2MSFTNGP12.phx.gbl...

Call Sort, and then ArrayList.Reverse.

"Derek Martin" <dm*****@DONTSPAMMEokstateDOT.edu> wrote in message
news:%2****************@TK2MSFTNGP09.phx.gbl...

Hi List, I have an arraylist of objects. I have created my own
IComparable in the object to return the sort on datetime. This works
great! Now, I'd like to invert the sort. Currently, it gives me 4/1/05
before 4/5/05 (good), but I'd like to have 4/5/05 before 4/1/05 (better!)
for my application.

Public Function CompareTo(ByVal obj As Object) As Integer Implements + _
System.IComparable.CompareTo
If TypeOf obj Is glcobject Then
Dim tmp As glcobject = DirectCast(obj, glcobject)
Return m_datetime.CompareTo(tmp.m_datetime)
End If
End Function

???

Thanks!
Derek