Alfabetisk sortering

Der er ikke umiddelbart nogen sort metode i VBScript, hverken på Arrays eller strings eller Dictionary objektet.
Den eneste måde er at lave een selv, og for en uøvet er det ikke sjovt.

du kan bruge scriptet her:

<%

function bubblesort(arrSorter)
  for i = 0 to ubound(arrSorter)
    for j = i + 1 to ubound(arrSorter)
      if arrSorter(i) > arrSorter(j) then
        arrTemp = arrSorter(i)
        arrSorter(i) = arrSorter(j)
        arrSorter(j) = arrTemp
      end if
    next
  next
  bubblesort = arrSorter
end function

VarStr=split("Pære,Abrikos,Banan,Kokusnød,Gullerod",",")

arrSort = bubblesort(VarStr)
for x = 0 to ubound(arrSort)
  response.write "arrSort" & "("& x & ") indeholder " & arrSort(x) & "<br>"
next

%>