Sortering af Array

Function ArraySort(aSort, intAsc)
    Dim intTempStore
    Dim i, j
    For i = 0 To UBound(aSort) - 1
      For j = i To UBound(aSort)
          'Sort Ascending
          If intAsc = 1 Then
            If aSort(i) > aSort(j) Then
                intTempStore = aSort(i)
                aSort(i) = aSort(j)
                aSort(j) = intTempStore
            End if 'i > j
          'Sort Descending
          Else
            if aSort(i) < aSort(j) Then
                intTempStore = aSort(i)
                aSort(i) = aSort(j)
                aSort(j) = intTempStore
            End if 'i < j
          End if 'intAsc = 1
      Next 'j
    Next 'i
    ArraySort = aSort
End Function

Når jeg kalder funktionen..
Hvilke parametre skal så ind på de to pladser?
ArraySort(aSort, intAsc)

aSort er det array du gerne vil sortere.
intAsc sættes til 1 for at sortere stigende. 0 for at sortere faldende.

Hhhmm..
Jeg kalder den sådan.. Men det virker ikke
ArraySort(MyArray,0)

Her er hele min test:

<%

Function ArraySort(aSort, intAsc)
    Dim intTempStore
    Dim i, j
    For i = 0 To UBound(aSort) - 1
      For j = i To UBound(aSort)
          'Sort Ascending
          If intAsc = 1 Then
            If aSort(i) > aSort(j) Then
                intTempStore = aSort(i)
                aSort(i) = aSort(j)
                aSort(j) = intTempStore
            End if 'i > j
          'Sort Descending
          Else
            if aSort(i) < aSort(j) Then
                intTempStore = aSort(i)
                aSort(i) = aSort(j)
                aSort(j) = intTempStore
            End if 'i < j
          End if 'intAsc = 1
      Next 'j
    Next 'i
    ArraySort = aSort
End Function

Dim MyArray (5)
MyArray(0)=1
MyArray(1)=2
MyArray(2)=3
MyArray(3)=4
MyArray(4)=5
Response.write MyArray(0) &"<br>"
ArraySort(MyArray(0),1)
Response.write MyArray(0)

%>

Anden siste skulle have set sådan ud:
ArraySort(MyArray,1)

Du skal putte resultatet af sorteringen over i et nyt array:

SorteretArray = ArraySort(MyArray(0),1)

Dette VB Script illustrerer brugen:

Function ArraySort(aSort, intAsc)
    Dim intTempStore
    Dim i, j
    For i = 0 To UBound(aSort) - 1
      For j = i To UBound(aSort)
          'Sort Ascending
          If intAsc = 1 Then
            If aSort(i) > aSort(j) Then
                intTempStore = aSort(i)
                aSort(i) = aSort(j)
                aSort(j) = intTempStore
            End if 'i > j
          'Sort Descending
          Else
            if aSort(i) < aSort(j) Then
                intTempStore = aSort(i)
                aSort(i) = aSort(j)
                aSort(j) = intTempStore
            End if 'i < j
          End if 'intAsc = 1
      Next 'j
    Next 'i
    ArraySort = aSort
End Function

Dim aRaw(10)

For i = 0 to 10
  aRaw(i) = Round(Rnd*100)
Next

' Sortér stigende
aSorted = ArraySort(aRaw, 1)

strMsg = "Stigende:" & vbCRLF
For i = 0 to UBound(aSorted)
  strMsg = strMsg & aSorted(i) & vbCRLF
Next
MsgBox strMsg

' Sortér faldende
aSorted = ArraySort(aRaw, 0)
strMsg = "Faldende:" & vbCRLF
For i = 0 to UBound(aSorted)
  strMsg = strMsg & aSorted(i) & vbCRLF
Next
MsgBox strMsg

Hov, overså lige (0). Syntaxen er

SorteretArray = ArraySort(MyArray,1)

Super...
Den havde jeg lige overset.. Tak for hjælpen :o)