1 svar · 312 visningar · startad av margar-0
Har en vektor med följande värden och ordning; 6, 1, 3, 5, 2, 4 (kan givetvis variera, men visar ett ex)
Nu vill jag sortera denna vektor så att den visar 1, 2, 3, 4, 5, 6
Koden nedan gör nästan rätt. Skriver ut vektorn så här 6, 1, 2, 3, 4, 5. Alltså 6 kommer först men ska egentligen komma sist.
Har börjat så här:
<code>
function sortering(arvektor))
for i = 0 to ubound(arvektor)
for j = 1 to ubound(arvektor)
if arVektor(i) < arVektor(j) then
temp = arVektor(i)
arVektor(i) = arVektor(j)
arVektor(j) = temp
end if
next
next
</code>
Funkar i VB, borde väll funka för ASP också =)
Function SortArray(arrArray)
For i = 0 To UBound(arrArray())
For j = i + 1 To UBound(arrArray())
If StrComp(UCase(arrArray(i)), UCase(arrArray(j)), vbTextCompare) = 1 Then
tmpArray = arrArray(i)
arrArray(i) = arrArray(j)
arrArray(j) = tmpArray
End If
Next
Next
SortArray = arrArray
End Function