---
title: "Skapa array av värden i For Loop"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/39560-skapa-array-av-värden-i-for-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "aleborg"
published: "2002-03-13T15:02:58.000Z"
updated: "2002-03-13T17:38:23.000Z"
replies: 5
views: 380
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/39560-skapa-array-av-värden-i-for-loop"
---

# Skapa array av värden i For Loop

## #1 — aleborg, 2002-03-13T15:02Z

Jag har en "For" loop där jag får ut två olika värden, en sträng som innehåller ett namn och en som innehåller ett nummervärde!

Hur kan jag lägga till alla värden i en array och sortera dom efter nummervärdena?

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

## #2 — aleborg, 2002-03-13T15:51Z

Försöker skapa en array i For loopen så här:

```
For i = 0 To Ubound(grupper,2)

'massa kod...

SortArr(0,i)=poang
SortArr(1,i)=grupper(1,i)
Next
```

men får bara felet 
Type mismatch: 'SortArr' 

Hur ska man göra?

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

## #3 — aleborg, 2002-03-13T16:44Z

Löste det så här:

```
ReDim PRESERVE SortArr(1,2)
SortArr(0,i)=poang
SortArr(1,i)=grupper(1,i)
```

nu återstår bara sorteringen...

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

## #4 — PatrikB, 2002-03-13T17:18Z

Testa denna. Urklippt ur en VB Script Class som sköter en del array användning, finns upplagd på wF Script.

\[r\]
iPos = den position i den 2-dimensionella arrayen som man ska sortera på
\[/r\]

```
'## -- sort order --
sSortOrder = "ASC"

'## -- get total positions in array --
intPositions = 1

'## -- max index in array --
intMaxIndex = UBound(g_varArray,2)

If UCase(sSortOrder) = "ASC" Then
	'## -- sort ascending --
	For I = 0 To intMaxIndex
		For X = (I + 1) To intMaxIndex
			If g_varArray(iPos, I) > g_varArray(iPos,X) Then
				For intPos  = 0 To intPositions
					varTemp = g_varArray(intPos, I)
					g_varArray(intPos, I) = g_varArray(intPos, X)
					g_varArray(intPos, X) = varTemp
				Next
			End If
		Next
	Next

ElseIf UCase(sSortOrder) = "DESC" Then
	'## -- sort descending --
	For I = 0 To intMaxIndex
		For X = (I + 1) To intMaxIndex
			If g_varArray(iPos, I) < g_varArray(iPos,X) Then
				For intPos  = 0 To intPositions
					varTemp = g_varArray(intPos, I)
					g_varArray(intPos, I) = g_varArray(intPos, X)
					g_varArray(intPos, X) = varTemp
				Next
			End If
		Next
	Next

End If
```

g_varArray får du byta ut till namnet på din array

cya,
PatrikB

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

## #5 — aleborg, 2002-03-13T17:28Z

Tack, funkade utmärkt!  :birp

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

## #6 — PatrikB, 2002-03-13T17:38Z

SKÅL!!!  :birp  :bire

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/39560-skapa-array-av-värden-i-for-loop