6 svar · 351 visningar · startad av Thomasa
finns säkert sen tidigare men jag lyckas ändå inte hitta när jag söker..
jag har en array som ska innehålla ett värde med en distans och ett med ett id.
sparar dem nu genom att separera distansen och idt med :, jag har sedan en funktion som sorterar (som jag hittade här ;))
Den fungerar fin när jag bara sorterar distansen och inte tar med id:t i arrayen, så frågan är: Hur kan jag sortera distanserna och behålla id:t intill?
har helt hjärnsläpp :/
Function SortArray(arvektor)
Dim i,j, temp
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
End Function
Du borde använda en två-dimensionell array istället.
Dim v(22,1)
v(0,0) = distans
v(0,1) = id
...
SortArrray v
Sub SortArray(arvektor)
Dim i,j, temp
for i = 0 to ubound(arvektor)
for j = 1 to ubound(arvektor)
if arVektor(i,0) < arVektor(j,0) then
temp = arVektor(i,0)
arVektor(i,0) = arVektor(j,0)
arVektor(j,0) = temp
end if
next
next
End Sub
Tack Lars, två-dimensionell array var en bra idé men den sorterar inte med subrutinen du skrivit, utan tar bort id:t istället, vad kan vara galet?
http://www.4guysfromrolla.com/webtech/011601-1.shtml
Där finns svaret på en fungerande sorteringsfunktion för 2 dimensionella arrayer om någon annan får samma problem!
Gamla hederliga bubble-sort... :OO
Det som var galet var att jag glömde att även flytta det andra elementet i arrayen.
Sub SortArray(arvektor)
Dim i,j, temp
for i = 0 to ubound(arvektor)
for j = 1 to ubound(arvektor)
if arVektor(i,0) < arVektor(j,0) then
temp = arVektor(i,0)
arVektor(i,0) = arVektor(j,0)
arVektor(j,0) = temp
temp = arVektor(i,1)
arVektor(i,0) = arVektor(j,1)
arVektor(j,1) = temp
end if
next
next
End Sub
ja då var ju din enklare :) nu löste de sig men tack så mycket iaf!!