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.

------------------
Jag är en tolerant person, men bara mot de jag gillar, så passa dig!

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 :)

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>