listbox einträge sortieren
14.05.2003 09:07:55
jobau
mit folgendem progamm-code sortiere ich die einträge (zahlen)
in einer listbox:
U = Int(Log(n) / Log(2))
U = 2 ^ U - 1
While U > 0
For i = 1 To n - U
For j = i To 1 Step -U
If gemeinde(j) <= gemeinde(j + U) Then Exit For
V = gemeinde(j): gemeinde(j) = gemeinde(j + U): gemeinde(j + U) = V
Next j
Next i
U = Int(U / 2)
Wend
ListBox4.Clear
For i = 1 To n
If i = 1 Then
GoTo 57:
End If
ListBox4.AddItem gemeinde(i)
57:
Next i
dummerweise steht dann aber zb. 20,25,35,5 weil die einträge wohl als text
verstanden werden (?) was kann ich ändern, damit die zahlen nach größe sortiert
werden?
danke jörg