arrange arrays in increasing order

[nafri]

I have array of arrays. I need to arrange them in an increased order of
their element 0

Here is what i want.
dim InputArray()() = {{2,0,0},{1,0,0 },{6,0,0},{3,0, 0}}

and this is the output
outputArray()() = {{1,0,0},{2,0,0 },{3,0,0},{6,0, 0}}

Has any body got any idea how to it.

TIA
nafri

[Herfried K. Wagner [MVP]]

"nafri" <sp****@spam.ne t> schrieb:

I have array of arrays. I need to arrange them in an increased order of
their element 0

Here is what i want.
dim InputArray()() = {{2,0,0},{1,0,0 },{6,0,0},{3,0, 0}}

and this is the output
outputArray()() = {{1,0,0},{2,0,0 },{3,0,0},{6,0, 0}}

Has any body got any idea how to it.

Untested (written from scratch):

\\\
Imports System.Collecti ons
..
..
..
Dim InputArray()() As Integer = _
New Integer()() { _
New Integer() {2, 0, 0}, _
New Integer() {1, 0, 0}, _
New Integer() {6, 0, 0}, _
New Integer() {3, 0, 0} _
}
Array.Sort(Inpu tArray, New FooComparer)
..
..
..
Public Class FooComparer
Implements IComparer

Public Function Compare( _
ByVal x As Object, _
ByVal y As Object _
) As Integer Implements IComparer.Compa re
Dim xx As Integer() = DirectCast(x, Integer())
Dim yy As Integer() = DirectCast(x, Integer())
Return yy(0) - xx(0)
End Function
End Class
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[nafri]

thanks, it works well, but arranges them in decreasing order. Although i can
reverse and get it what i want, but is their anything that i can do in the
compare function to make it arrange in decreasing order.

nafri

"Herfried K. Wagner [MVP]" wrote:

"nafri" <sp****@spam.ne t> schrieb:

I have array of arrays. I need to arrange them in an increased order of
their element 0

Here is what i want.
dim InputArray()() = {{2,0,0},{1,0,0 },{6,0,0},{3,0, 0}}

and this is the output
outputArray()() = {{1,0,0},{2,0,0 },{3,0,0},{6,0, 0}}

Has any body got any idea how to it.

Untested (written from scratch):

\\\
Imports System.Collecti ons
..
..
..
Dim InputArray()() As Integer = _
New Integer()() { _
New Integer() {2, 0, 0}, _
New Integer() {1, 0, 0}, _
New Integer() {6, 0, 0}, _
New Integer() {3, 0, 0} _
}
Array.Sort(Inpu tArray, New FooComparer)
..
..
..
Public Class FooComparer
Implements IComparer

Public Function Compare( _
ByVal x As Object, _
ByVal y As Object _
) As Integer Implements IComparer.Compa re
Dim xx As Integer() = DirectCast(x, Integer())
Dim yy As Integer() = DirectCast(x, Integer())
Return yy(0) - xx(0)
End Function
End Class
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Herfried K. Wagner [MVP]]

"nafri" <sp****@spam.ne t> schrieb:

thanks, it works well, but arranges them in decreasing order. Although i
can
reverse and get it what i want, but is their anything that i can do in the
compare function to make it arrange in decreasing order.

Return yy(0) - xx(0)

=> 'Return xx(0) - yy(0)

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Jay B. Harlow [MVP - Outlook]]

nafri,
Have you tried:

Return yy(0) - xx(0)

Return xx(0) - yy(0)

Rather then compare y to x, compare x to y.

Hope this helps
Jay

"nafri" <sp****@spam.ne t> wrote in message
news:0C******** *************** ***********@mic rosoft.com... thanks, it works well, but arranges them in decreasing order. Although i
can
reverse and get it what i want, but is their anything that i can do in the
compare function to make it arrange in decreasing order.

nafri

"Herfried K. Wagner [MVP]" wrote:

"nafri" <sp****@spam.ne t> schrieb:

>I have array of arrays. I need to arrange them in an increased order of
> their element 0
>
> Here is what i want.
> dim InputArray()() = {{2,0,0},{1,0,0 },{6,0,0},{3,0, 0}}
>
> and this is the output
> outputArray()() = {{1,0,0},{2,0,0 },{3,0,0},{6,0, 0}}
>
> Has any body got any idea how to it.

Untested (written from scratch):

\\\
Imports System.Collecti ons
..
..
..
Dim InputArray()() As Integer = _
New Integer()() { _
New Integer() {2, 0, 0}, _
New Integer() {1, 0, 0}, _
New Integer() {6, 0, 0}, _
New Integer() {3, 0, 0} _
}
Array.Sort(Inpu tArray, New FooComparer)
..
..
..
Public Class FooComparer
Implements IComparer

Public Function Compare( _
ByVal x As Object, _
ByVal y As Object _
) As Integer Implements IComparer.Compa re
Dim xx As Integer() = DirectCast(x, Integer())
Dim yy As Integer() = DirectCast(x, Integer())
Return yy(0) - xx(0)
End Function
End Class
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>