alfabetisk sorterering af array

Du har det i en For?

Obs: dette er Javascript.

<script language=javascript runat=server>

var myarr = new Array(35,62,8,244,50,47,92,45,2,1050,0,44,78,96,14,34,56,74,91,90,12,21,46,86,77);

//eller det array du vil bruge


Response.Write(myarr.sort());

</script>

Den sorterer efter Ascii-værdien (dvs. alfabetisk).

Du skal have det i et array for at kunne arbejde med det.

Der findes ikke nogen smart funktion i ASP, så du selv lave et sortering evt. med bubblesort.

Er det 1.dimensionelt eller 2.dimensionelt array du skal sortére.

Der er en række forskellige algoritmer der sorterer arrays, her en én mulighed:

Function SortArray(ByVal arrToSort)

  Dim arrWork
  Dim intOuterIndex, intInnerIndex, intSmallestIndex
  Dim varTemp
 
  arrWork = arrToSort
 
  For intOuterIndex = 0 To UBound(arrWork)
 
    intSmallestIndex = intOuterIndex
   
    For intInnerIndex = intOuterIndex To UBound(arrWork)
      If arrWork(intInnerIndex) < arrWork(intSmallestIndex) Then
        intSmallestIndex = intInnerIndex
      End If
    Next
   
    If intSmallestIndex <> intOuterIndex Then
      varTemp = arrWork(intOuterIndex)
      arrWork(intOuterIndex) = arrWork(intSmallestIndex)
      arrWork(intSmallestIndex) = varTemp
    End If
 
  Next
 
  SortArray = arrWork

End Function

Dim arrSorted
Dim i

arrSorted = SortArray(Array(\"dette\", \"er\", \"en\", \"test\", \"af\", \"sortering\", \"af\", \"arrays\"))

For i = 0 To UBound(arrSorted)
  Response.Write(arrSorted(i) & \"<br>\")
Next

Ovenstående giver dig:

af
af
arrays
dette
en
er
sortering
test

Bubble sort (den som mwittrock viste) er en ret langsom sorterings-rutine hvis array\'et har mange elementer, men op til ca. 500 fungerer den sikkert fint.