---
title: "Avancerad loop?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/9616-avancerad-loop"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "saw"
published: "2001-05-20T10:34:00.000Z"
updated: "2001-05-20T15:02:00.000Z"
replies: 6
views: 217
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/9616-avancerad-loop"
---

# Avancerad loop?

## #1 — saw, 2001-05-20T10:34Z

Bara mest för skoj skull, så försöker jag att skriva ut ascii-tabellen. Nu är det ju så, att den gör många hop i numrena. Den går ifrån :
33 - 383
402
416 - 417
431 - 432
461 - 476
osv alltså en massa hop.
Om jag skriver som vanligt:
For i = 33 TO 500 så får jag ju åxå med dom tomma luckerna (som bara skriver ut fyrkant.
Kan man på något sätt komma förbi detta problem?

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

## #2 — Vide, 2001-05-20T11:58Z

Bara att ändra värdet av i där det blir en lucka:

```
For i = 33 To 476
'gör dina saker här
If i = 383 Then i = 401
If i = 402 Then i = 415
If i = 417 Then i = 430
If i = 412 Then i = 460
'OSV
Next
```

Mvh, Vide

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

## #3 — saw, 2001-05-20T12:16Z

Jo jag kom så lång åxå, men TO-värdet?
Om jag försöker med att ändra det i if-satsen så för jag fel!!

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

## #4 — LarsG, 2001-05-20T13:22Z

```
i = cint(33)
while i <= 476
'gör dina saker här
If i = 383 Then 
   i = 401
elseif i = 402 Then 
   i = 415
elseif i = 417 Then 
   i = 430
elseif i = 412 Then 
   i = 460
else
   i = i + 1
end if
wend
```

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

## #5 — Vide, 2001-05-20T13:35Z

Eller varför inte: ;)

```
For i = 33 To 476
'gör dina saker här
Select Case i
Case 383
i = 401
Case 402
i = 415
Case 417
i = 430
Case 412
i = 460
End Select
Next
```

To värdet kan du inte ändra i efterhand, men du kan när som helt anrop "Exit For" för att hoppa ur loopen... t.ex om värdet överstiger 500:

```
For i = 33 To 476
'gör dina saker här
Select Case i
Case 383
i = 401
Case 402
i = 415
Case 417
i = 430
Case 412
i = 460
Case 500
Exit For
End Select
Next
```

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

## #6 — saw, 2001-05-20T14:57Z

Jag har försökt så här, men det lyckas inte alls:

Dim i,j,k

iNr=33
j=33
k=383

response.write "\<table border=1\>\<tr\>\<td\>"

For i = j TO k
If i = 383 THEN
 j = 402
 k = 403
ElseIf i = 403 THEN
 j = 416
 k = 417
ElseIf i = 417 THEN
 j = 431
 k = 432
ElseIf i = 432 THEN
 j = 461
 k = 476
End If

iNr=iNr+1
Response.Write "\<TD\>\<FONT SIZE=2\>" & i & "&nbsp;=&nbsp;" & "&#" & i &";" & "\</FONT\>\</td\>"

If iNr=53 Then
response.write "\</td\>\</tr\>\<tr\>\<TD\>"
iNr=33
End If
Next
response.write "\</FONT\>\</tr\>\</td\>\</table\>"
Den stanar efter första if-satsen, varför? :q

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

## #7 — Vide, 2001-05-20T15:02Z

därför att To-värdet är satt till det värdet... och så slutar satsen... du får sätta k-värdet till det högsta AscII-värdet...

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/9616-avancerad-loop