[VBScript] Arrrghh!! Sorting out sorting ...

Just when I thought my problems were all over ... or at least the sorting ones ... I found that my machine didn't have enough virtual memory to handle the sort using ADODB (and I don't have the privilege level to do anything about it).

So I ported a heap sort to VBScript and ... so far ... everything look like it's going to work.

Here's the code class HeapSorter '~ http://www.iti.fh-flensburg.de/lang/algorithmen/sortieren/heap/heapen.htm private aVector private n public sub sort( aVec ) aVector = aVec n = UBound( aVector ) + 1 heapsort end sub public function sorted() sorted = aVector end function private sub heapsort() buildheap while n > 1 n = n - 1 exchange 0, n downheap 0 wend end sub private sub buildheap() dim v for v = int( n / 2 ) - 1 to 0 step -1 downheap v next '~ for (int v=n/2-1; v>=0; v--) '~ downheap (v); end sub private sub downheap(v) dim w w = 2 * v + 1 '// first descendant of v while w < n if w + 1 < n then '// is there a second descendant? if aVector( w + 1 ) > aVector( w ) then w = w + 1 end if end if '// w is the descendant of v with maximum label if aVector( v ) >= aVector( w ) then exit sub '// v has heap property end if '// otherwise exchange v, w '// exchange labels of v and w v = w '// continue w = 2 * v + 1 wend end sub private sub exchange(i, j) dim t t = aVector( i ) aVector( i ) = aVector( j ) aVector( j ) = t end sub end class ... and to use it, something like this ... Set oHeap = New HeapSorter oHeap.sort aVector aSortedVector = oHeap.sorted()