---
title: "sorteringsalgoritm - array"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/118445-sorteringsalgoritm-array"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "margar-0"
published: "2004-12-20T18:18:13.000Z"
updated: "2004-12-20T19:07:00.000Z"
replies: 1
views: 312
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/118445-sorteringsalgoritm-array"
---

# sorteringsalgoritm - array

## #1 — margar-0, 2004-12-20T18:18Z

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

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

## #2 — Poffe, 2004-12-20T19:07Z

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

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/118445-sorteringsalgoritm-array