---
title: "arrayer.."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/129549-arrayer"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thomasa"
published: "2005-06-07T10:40:54.000Z"
updated: "2005-06-08T07:55:42.000Z"
replies: 6
views: 366
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/129549-arrayer"
---

# arrayer..

## #1 — Thomasa, 2005-06-07T10:40Z

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
```

Permalänk: https://www.webforum.nu/p/129549

## #2 — LarsG, 2005-06-07T10:54Z

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
```

Permalänk: https://www.webforum.nu/p/1624999

## #3 — Thomasa, 2005-06-07T12:37Z

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?

Permalänk: https://www.webforum.nu/p/1625043

## #4 — Thomasa, 2005-06-07T15:11Z

<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!

Permalänk: https://www.webforum.nu/p/1625100

## #5 — Erik Juhlin, 2005-06-07T15:22Z

Gamla hederliga bubble-sort... :OO

Permalänk: https://www.webforum.nu/p/1625102

## #6 — LarsG, 2005-06-08T07:41Z

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
```

Permalänk: https://www.webforum.nu/p/1625326

## #7 — Thomasa, 2005-06-08T07:55Z

ja då var ju din enklare :) nu löste de sig men tack så mycket iaf!!

Permalänk: https://www.webforum.nu/p/1625335

---

Tråden på webben: https://www.webforum.nu/amne/asp/129549-arrayer