Sortera array

Jag vet inte om det finns nån inbyggd funktion, men så här kan man göra...

Sub strSort(arr)
	Dim i
	For i = LBound(arr) To UBound(arr) - 2
		Dim min, j, slask
		min = i
		For j = i + 1 To UBound(arr)
			If UCase(arr(j)) < UCase(arr(min)) Then
				min = j
			End If
		Next
		slask = arr(min)
		arr(min) = arr(i)
		arr(i) = slask
	Next
End Sub

'''''''''''''''
'   EXEMPEL   '
'''''''''''''''

Dim minArray
minArray = array("hej", "apa", "BLÖJA")
strSort minArray

' nu är minArray värd array("apa", "BLÖJA", "hej")

Case-insensitive, mao.

det finns en vanlig variant, kallad 'quick sort', jag ska se om jag hittar någon kod till den senare.

i annat fall kan du ju alltid söka lite på altavista så länge