D.S

adndevblog.typepad.com

Comments on Inventor API: Alpha Sort Occurrences in Assembly browser

Comments on Inventor API: Alpha Sort Occurrences in Assembly browser Comments on Inventor API: Alpha Sort Occurrences in Assembly browser Nathaniel commented on 'Inventor API: Alpha Sort Occurrences in Assembly browser' Quick Sort --------------------- Sub QuickSort(SortMe() As String, lowbound As Long, hibound As Long) 'Recursive QuickSort routine for VBA. Sorts an array of strings into ascending order. 'SortMe() is the array of strings to be sorted. lowbound is the index of thefirst 'element in the array (usually 0 or 1). hibound is the index of the lastelement in 'the array. Dim low As Long, high As Long, midval As String, temp As String low& = lowbound& high& = hibound& midval$ = SortMe((low + high) / 2) While (low lowbound) high = high - 1 Wend If (low <= high) Then temp = SortMe(low) SortMe(low) = SortMe(high) SortMe(high) = temp low = low + 1 high = high - 1 End If Wend If (lowbound < high) Then Call QuickSort(SortMe(), lowbound, high) End If If (low < hibound) Then Call QuickSort(SortMe(), low, hibound) End If End Sub Nathaniel commented on 'Inventor API: Alpha Sort Occurrences in Assembly browser' error when I run this >> Quicksort cannot be found. What is the reference for this?