Knowledge Base: Examples of Sorting

<script runat="server" language="VBScript">
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
Response.Write "Original Array<br />"
Response.Write LstArry(OriArry)&"<br /> "
NewArry=SrtArry(OriArry)
Response.Write "Sorted Array<br /> "
Response.Write LstArry(NewArry)

Function SrtArry(Ori_Arry)
Dim i, j, temp, tempind
Response.Write "Array Sorting<br /> "
For i = LBound(Ori_Arry) to UBound(Ori_Arry)-1
   For j= UBound(Ori_Arry)-1 to i step -1
       if UCase(Ori_Arry(j))>UCase(Ori_Arry(j+1)) then
           temp=Ori_Arry(j)
           Ori_Arry(j)=Ori_Arry(j+1)
           Ori_Arry(j+1)=temp
       End If
       Response.Write i&" "&j&": "
       Response.Write LstArry(Ori_Arry)&"<br />"
   Next
Next
SrtArry=Ori_Arry
End Function

Function LstArry(Ori_Arry)
Dim i
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   Response.Write Ori_Arry(i)&" "
Next
End Function
</script>

<script runat="server" language="VBScript">
Dim OriArry, NewArry
OriArry=Array("s","i","d","e","w","a","y","o","u","t")
For i = LBound(OriArry) to UBound(OriArry)
   OriArry(i)=array(i,OriArry(i))
Next
Response.Write "Original Array"
Response.Write LstArry(OriArry)&"<br />"
NewArry=SrtArry(OriArry)
Response.Write "Sorted Array"
Response.Write LstArry(NewArry)

Function SrtArry(Ori_Arry)
Dim i, j, temp
For i = LBound(Ori_Arry) to UBound(Ori_Arry)-1
   For j= UBound(Ori_Arry)-1 to i step -1
       if UCase(Ori_Arry(j)(1))>UCase(Ori_Arry(j+1)(1)) then
           temp=Ori_Arry(j)
           Ori_Arry(j)=Ori_Arry(j+1)
           Ori_Arry(j+1)=temp
       End If
   Next
Next
SrtArry=Ori_Arry
End Function

Function LstArry(Ori_Arry)
Dim i
For i = LBound(Ori_Arry) to UBound(Ori_Arry)
   If IsArray(Ori_Arry(0)) Then
       call LstArry(Ori_Arry(i))
   Else
      If i=0 Then
          Response.Write "<br />"
      End If
      Response.Write Ori_Arry(i)&" "
   End If
Next
End Function
</script>