Soren Winslow
Sorting Arrays Ascending or Descending
This is a sub-routine that can sort an array in ascending or descending order. It works by running the array, then as a temporary variable is holding the value of that item, it loops through the array again an compares the temporary value to all the other values in the array and reassigns the temporary value to the current array number depending on of you are sorting it ascending or descending. You could compare it to a ladder. The sub-routine will move the temporary value up or down the ladder accordingly and shift the other values in the array to make room for it.
In the example below, I have two methods of declaring arrays and how to use them with this sub-routine.

Here is the ASP code for this script:





   <%



    Sub SortArray(TheArr,AscDesc)

        TempVal = ""

        For x = 0 to UBound(TheArr)

           

           For y = x+1 to UBound(TheArr)

              If AscDesc = "Desc" Then

                If TheArr(x) < TheArr(y) then

                   TempVal = TheArr(y)

                   TheArr(y) = TheArr(x)

                   TheArr(x) = TempVal

                End If

              Else

                If TheArr(x) > TheArr(y) then

                   TempVal = TheArr(x)

                   TheArr(x) = TheArr(y)

                   TheArr(y) = TempVal

                End If

              End If

           Next



        Next



    End Sub



   'Below are examples of how to use the SortArray sub





   Dim SomeArr(5)

   SomeArr(0) = "Triumph Motorcycles is also the oldest " & _

                "continuous production motorcycle company in the world. "

   SomeArr(1) = "Gentlemen. You can't fight in here. " & _

                "This is the War Room! "

   SomeArr(2) = "1981 Darrel Griffith, selected by the Jazz with the #2 overall pick in the NBA Draft"

   SomeArr(3) = "1979-87, 80 Kellen Winslow, San Diego Chargers Tight End"

   SomeArr(4) = "2003 Triumph Speedmaster"

   SomeArr(5) = "1972 Trident/BSA Rocket III"





   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _

                        "style=" & chr(34) & "padding:5px;" & chr(34) & ">" & _

                  "<b>The Original Array</b>:"

   For x = 0 to UBound(SomeArr)

       Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & " " & _

                            "style=" & chr(34) & "padding-left:15px;" & chr(34) & ">" & _

                      "<b class=" & chr(34) & "Bull" & chr(34) & ">" & x & "</b>. " & _

                      SomeArr(x) & _

                      "</div>"

   Next

   Response.Write "</div>"



   Call SortArray(SomeArr,"Asc")

   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _

                        "style=" & chr(34) & "padding:5px;" & chr(34) & ">" & _

                  "<b>The Array Sorted Ascending</b>:"

   For x = 0 to UBound(SomeArr)

       Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & " " & _

                            "style=" & chr(34) & "padding-left:15px;" & chr(34) & ">" & _

                      "<b class=" & chr(34) & "Bull" & chr(34) & ">" & x & "</b>. " & _

                      SomeArr(x) & _

                      "</div>"

   Next

   Response.Write "</div>"



   Call SortArray(SomeArr,"Desc")

   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _

                        "style=" & chr(34) & "padding:5px;" & chr(34) & ">" & _

                  "<b>The Array Sorted Descending</b>:"

   For x = 0 to UBound(SomeArr)

       Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & " " & _

                            "style=" & chr(34) & "padding-left:15px;" & chr(34) & ">" & _

                      "<b class=" & chr(34) & "Bull" & chr(34) & ">" & x & "</b>. " & _

                      SomeArr(x) & _

                      "</div>"

   Next

   Response.Write "</div>"



   Response.Write "<hr>"





   ListItems = "Soren Winslow,Utah Jazz,Triumph Motorcycles,San Diego Chargers," & _

               "ASP Scripts,CafePress Pages,Squidoo Pages,My Web Sites"

   ListArr = Split(ListItems, ",")



   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _

                        "style=" & chr(34) & "padding:5px;" & chr(34) & ">" & _

                  "<b>The Original Array</b>:"

   For x = 0 to UBound(ListArr)

       Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & " " & _

                            "style=" & chr(34) & "padding-left:15px;" & chr(34) & ">" & _

                      "<b class=" & chr(34) & "Bull" & chr(34) & ">" & x & "</b>. " & _

                      ListArr(x) & _

                      "</div>"

   Next

   Response.Write "</div>"



   Call SortArray(ListArr,"Asc")

   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _

                        "style=" & chr(34) & "padding:5px;" & chr(34) & ">" & _

                  "<b>The Array Sorted Ascending</b>:"

   For x = 0 to UBound(ListArr)

       Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & " " & _

                            "style=" & chr(34) & "padding-left:15px;" & chr(34) & ">" & _

                      "<b class=" & chr(34) & "Bull" & chr(34) & ">" & x & "</b>. " & _

                      ListArr(x) & _

                      "</div>"

   Next

   Response.Write "</div>"



   Call SortArray(ListArr,"Desc")

   Response.Write "<div class=" & chr(34) & "breg" & chr(34) & " " & _

                        "style=" & chr(34) & "padding:5px;" & chr(34) & ">" & _

                  "<b>The Array Sorted Descending</b>:"

   For x = 0 to UBound(ListArr)

       Response.Write "<div class=" & chr(34) & "bnotes" & chr(34) & " " & _

                            "style=" & chr(34) & "padding-left:15px;" & chr(34) & ">" & _

                      "<b class=" & chr(34) & "Bull" & chr(34) & ">" & x & "</b>. " & _

                      ListArr(x) & _

                      "</div>"

   Next

   Response.Write "</div>"



   Response.Write "<hr>"





   %>



               

Here are the results of the above ASP Script:
The Original Array:
0. Triumph Motorcycles is also the oldest continuous production motorcycle company in the world.
1. Gentlemen. You can't fight in here. This is the War Room!
2. 1981 Darrel Griffith, selected by the Jazz with the #2 overall pick in the NBA Draft
3. 1979-87, 80 Kellen Winslow, San Diego Chargers Tight End
4. 2003 Triumph Speedmaster
5. 1972 Trident/BSA Rocket III
The Array Sorted Ascending:
0. 1972 Trident/BSA Rocket III
1. 1979-87, 80 Kellen Winslow, San Diego Chargers Tight End
2. 1981 Darrel Griffith, selected by the Jazz with the #2 overall pick in the NBA Draft
3. 2003 Triumph Speedmaster
4. Gentlemen. You can't fight in here. This is the War Room!
5. Triumph Motorcycles is also the oldest continuous production motorcycle company in the world.
The Array Sorted Descending:
0. Triumph Motorcycles is also the oldest continuous production motorcycle company in the world.
1. Gentlemen. You can't fight in here. This is the War Room!
2. 2003 Triumph Speedmaster
3. 1981 Darrel Griffith, selected by the Jazz with the #2 overall pick in the NBA Draft
4. 1979-87, 80 Kellen Winslow, San Diego Chargers Tight End
5. 1972 Trident/BSA Rocket III

The Original Array:
0. Soren Winslow
1. Utah Jazz
2. Triumph Motorcycles
3. San Diego Chargers
4. ASP Scripts
5. CafePress Pages
6. Squidoo Pages
7. My Web Sites
The Array Sorted Ascending:
0. ASP Scripts
1. CafePress Pages
2. My Web Sites
3. San Diego Chargers
4. Soren Winslow
5. Squidoo Pages
6. Triumph Motorcycles
7. Utah Jazz
The Array Sorted Descending:
0. Utah Jazz
1. Triumph Motorcycles
2. Squidoo Pages
3. Soren Winslow
4. San Diego Chargers
5. My Web Sites
6. CafePress Pages
7. ASP Scripts

© 1967 - 2017 Soren Winslow