---
title: "Sortera en array..."
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74559-sortera-en-array"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "LeonL"
published: "2003-04-20T13:32:11.000Z"
updated: "2003-04-20T14:57:19.000Z"
replies: 9
views: 353
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/74559-sortera-en-array"
---

# Sortera en array...

## #1 — LeonL, 2003-04-20T13:32Z

Det går att sortera detta:

```
arr = Array("E5","E1","E3","E2","E4")
continue = true
Do While continue = true
continue = false
  For i = 0 To Ubound(arr)
    If i = Ubound(arr) Then Exit For
    If arr(i) > arr(i+1) Then
      temp = arr(i)
      arr(i) = arr(i+1)
      arr(i+1) = temp
      continue = true
    End If
  Next
Loop 
strCoords = Join(arr)
Response.Write(strCoords)
Response.End
```

Men inte detta:

```
x = 0
strCoords = ""
For Each str In Request.Form
 If Request.Form(str) = 1 then
   strCoords = strCoords & "," & str
   x = x+1 
 End If
Next
strCoords = Mid(strCoords,2)

arr = Array(strCoords)
continue = true
Do While continue = true
continue = false
  For i = 0 To Ubound(arr)
    If i = Ubound(arr) Then Exit For
    If arr(i) > arr(i+1) Then
      temp = arr(i)
      arr(i) = arr(i+1)
      arr(i+1) = temp
      continue = true
    End If
  Next
Loop 
strCoords = Join(arr)
Response.Write(strCoords)
Response.End
```

Det funkar helt enkelt inte... värdena hamnar i oordning i allafall. Men det gör det inte på den första koden. Varför?
str innehåller en bokstav (A-J) och ett tal (1-10)  :q  :q  :q

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

## #2 — solbulle, 2003-04-20T14:36Z

Den första koden knasar för mig, (oändlig loop) sen fattar jag fortfarande inte varför ni väljer att göra på det där sättet. :)

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

## #3 — @nders, 2003-04-20T14:39Z

```
arr = Array(strCoords)
```

Borde väl vara:

```
arr = Split(strCoords, ",")
```

? Annars skaffar du ju dig en array med en enda "post", som innehåller en kommaseparerad lista.

Mvh

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

## #4 — LeonL, 2003-04-20T14:39Z

Ursäkta mig :p
Det blev fel.. men nu har jag ändrat det och det lär itne bli någon oändlig loop...

btw, finns det andra sätt?

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

## #5 — solbulle, 2003-04-20T14:40Z

Detta ger ju dig en "array" med de fält som är ikryssade:

```
For Each str In Request.Form
 If Request.Form(str) = 1 then
   strCoords = strCoords & "," & str
   x = x+1 
 End If
Next
```

Problemet är att de inte står i rätt ordning, så du vill sortera dom? Stämmer det?

Varför då inte göra så här:

```
<%
arrNum = Array("A1","A2","A3","A4","A5","A6","A7","A8","A9","A10","B1","B2","B3","B4","B5","B6","B7","B8","B9","B10","C1","C2","C3","C4","C5","C6","C7","C8","C9","C10","D1","D2","D3","D4","D5","D6","D7","D8","D9","D10","E1","E2","E3","E4","E5","E6","E7","E8","E9","E10","F1","F2","F3","F4","F5","F6","F7","F8","F9","F10","G1","G2","G3","G4","G5","G6","G7","G8","G9","G10","H1","H2","H3","H4","H5","H6","H7","H8","H9","H10","I1","I2","I3","I4","I5","I6","I7","I8","I9","I10","J1","J2","J3","J4","J5","J6","J7","J8","J9","J10")

For koll = 0 to ubound(arrNum)
	str = arrNum(koll)

	If Request.Form(str) = 1 then
		strCoords = strCoords & "," & str
		x = x+1 
	End If
Next
%>
```

Visst banne mig får du då ut en "array" där fälten står i rätt följd?

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

## #6 — LeonL, 2003-04-20T14:43Z

> **@nders skrev:**
>
> ```
> arr = Array(strCoords)
> ```
>
> Borde väl vara:
>
> ```
> arr = Split(strCoords, ",")
> ```
>
> ? Annars skaffar du ju dig en array med en enda "post", som innehåller en kommaseparerad lista.
> 
> Mvh

Hehe... :p :p  :r 

Tack  :r

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

## #7 — LeonL, 2003-04-20T14:44Z

Solbulle: ditt sätt funkar också! :P Tack ! :P

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

## #8 — LeonL, 2003-04-20T14:45Z

Glömde säga: Ni är bäst! :birp

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

## #9 — solbulle, 2003-04-20T14:46Z

Förklara det för Sebbe. ;)

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

## #10 — LeonL, 2003-04-20T14:57Z

Han är inte online, han tittar på buffy :P:P:P:P

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/74559-sortera-en-array