Kruger wrote in dk.edb.internet.webdesign.serverside.asp:
>
> Jeg har et array med en masse navn i en tilfældig orden.
>
> myarray(0) = btest
> myarray(1) = htest
> myarray(2) = atest
> myarray(3) = gtest
>
> Hvordan får jeg nemmest sorteret dem i alfebetisk orden?
>
> myarray(0) = atest
> myarray(1) = btest
> myarray(2) = gtest
> myarray(3) = htest
>
Fandt endelig ud af en metode. Har lavet en lille function:
arrSort = AlphaSort(arrUnsort)
Private Function AlphaSort(byVal UnsortedArray)
Dim I, J, Temp, Gap, Swapped
Dim ArrSize, Combcom, Combswap
Const Shrink = 1.3
ArrSize = UBOUND( UnsortedArray )
Gap = Arrsize - 1
Do
Gap = Int(Gap / Shrink)
Swapped = True
Combcom = Combcom + 1
For J = 0 To Arrsize - Gap
If UnsortedArray(J) > UnsortedArray(J + Gap) Then
Temp = UnsortedArray(J)
UnsortedArray(J) = UnsortedArray(J + Gap)
UnsortedArray(J + Gap) = Temp
Swapped = False
Combswap = Combswap + 1
End If
Next
Loop Until Not Swapped And Gap = 1
CombSort = UnsortedArray
End Function
Den virker glimrende
--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials