[ASP] Array werkt goed in een loop, daarna niet meer

[Urk]

Ik zit met de haren in het hoofd!! Ik heb de volgende code waar ik een Multiple Selectbox uitsplitst en iedere waarde in een Array zet. Binnen de While...Next loop laat hij de inhoud van de variabelen van de array wel goed zien, daarna bij For z=0 to UBound(err_cat2) niet meer... hoe kan dat??

ASP:

If Len(Session("err_cat2")) > 0 Then
 If InStr(Session("err_cat2"), ",") > 0 Then
  i = 0
  ReDim cat2_arr(i)
  
  locationofcomma = InStr(Session("err_cat2"), ",")-1
  newstring = CInt(Trim(Left(Session("err_cat2"),locationofcomma)))
  rest = Trim(Right(Session("err_cat2"),Len(Session("err_cat2"))-locationofcomma-1))
  cat2_arr(i) = newstring
  Response.Write i & ":" & cat2_arr(i) & "<br>"
  
  While InStr(rest, ",") > 0
   i=i+1
   ReDim cat2_arr(i)
   locationofcomma = InStr(rest, ",")-1
   newstring = CInt(Trim(Left(rest,locationofcomma)))
   rest = Trim(Right(rest,Len(rest)-locationofcomma-1))
   cat2_arr(i) = newstring
  'Hier laat hij de waardes in de array wel zien!!!!!
  Response.Write i & ":" & cat2_arr(i) & "<br>"
  Wend
  
  i=i+1
  ReDim cat2_arr(i)  
  cat2_arr(i) = CInt(Trim(rest))
   Response.Write i & ":" & cat2_arr(i) & "<br>"
 
 Else
  ReDim cat2_arr(0)
  cat2_arr(0) = Session("err_cat2")
 End If

  Response.Write "<br><br><br>"

  For z=0 To UBound(cat2_arr)
  'En hier laat hij de waardes niet meer zien!!!!!
   Response.Write cat2_arr(z) & " a<br>"
  Next

End If

De output is bijvoorbeeld dit:

ASP:

0:1
1:4
2:5
3:15



a
a
a
15 a

Het rare is ook, zoals hier te zien is in het resultaat, dat hij in de Ubound loop de laatste waarde van de array wel laat zien...

[ Voor 32% gewijzigd door Urk op 19-03-2004 15:30 ]

[P_de_B]

Dit lost niet je probleem op maar waarom doe je niet gewoon

code:

MyArray = Split(MySelectResult,", ")

om een array van de resultaten van een multiple select te krijgen?

[faabman]

mag ik vragen waarin je de methode gebruikt die je gebruikt

de normale methode lijkt me een

code:

cat2_arr = split(stringetje, ",")

waarna je met een for-loopje de array eenvoudig uit kunt lezen

_{edit: spuit 11}

[ Voor 10% gewijzigd door faabman op 19-03-2004 15:36 ]

[Urk]

faabman schreef op 19 maart 2004 @ 15:35:
mag ik vragen waarin je de methode gebruikt die je gebruikt

de normale methode lijkt me een

code:

cat2_arr = split(stringetje, ",")

waarna je met een for-loopje de array eenvoudig uit kunt lezen

_{edit: spuit 11}

aha, ik dacht al dat zoiets vast wel moest bestaan.
Als ik dus als output heb uit een Multiple selectbox:

1,4, 12, 15, 19

Maakt de functie Split van iedere waarde dan een eigen variabele?

[P_de_B]

Urk schreef op 19 maart 2004 @ 15:50:
[...]


aha, ik dacht al dat zoiets vast wel moest bestaan.
Als ik dus als output heb uit een Multiple selectbox:

1,4, 12, 15, 19

Maakt de functie Split van iedere waarde dan een eigen variabele?

De functie geeft een 1-dimensionale array met elke waarde uit de select list in een element. Let er trouwens op dat je een split doet op [COMMA][SPATIE] en niet alleen op [COMMA]

[Urk]

P_de_B schreef op 19 maart 2004 @ 15:57:
[...]


De functie geeft een 1-dimensionale array met elke waarde uit de select list in een element. Let er trouwens op dat je een split doet op [COMMA][SPATIE] en niet alleen op [COMMA]

OK, geweldig, wist ik nog niet!
Bedankt voor de snelle hulp, scheelt me weer een hoop tijd en gedoe

[_Thanatos_]

Heb je de documentatie van vbscript al? Misschien staan daar nog veel meer dingen in die je niet weet