Fejlen i denne er.... (noget med Cint og split)

Tror du bliver nød til at oprette et nyt array, da man ikke både kan have Strenge og heltal i det samme array.

Og det betyder?

Her splitter du din streng op i en masse små strenge og smider dem ind i et array:

strAryWords = Split(strValue, "+")

Her vil du gerne smide heltal ind i det array som indeholder dine mange små strenge og det må man ikke.

strAryWords(i) = Cint(strAryWords(i))

Hmm...jeg tog vist fejl, i VBScript kan man godt blande appelsiner og elefanter....

Prøv dette:

<%
strAryWords = Split("5+19+2+43+65", "+")

Dim i
Dim test
For i = 0 to Ubound(strAryWords)

test = strAryWords(i)
strAryWords(i) = Cint(test)

Response.Write i & " = " & strAryWords(i) & "<BR>"
Next
%>

Problemet opstår altså først når jeg skal bruge en querystring. Med almindelige konstanter går det fint.


Hvis man bytter strValue = Request.Querystring("produkt_id") ud med strValue = "44+22+576+1" virker det fint.

Så løsningen er ikke sådan lige at få øje på.

el_barto: Har du prøvet at udskrive den værdi array elementet indeholder, INDEN CInt() ? ... Evt. prøv: CInt("0" & strAryWords(i)) ... ell. CLng()

Hvis jeg bruger

strValue = Request.Querystring("produkt_id")
strAryWords = Split(strValue, "+")
' - strAryWords is now an array
Dim i
For i = 0 to Ubound(strAryWords)

Response.Write i & " = " & strAryWords(i) & "<BR>"
Next

Udskriver den 0 = 5 8 11 576

Men hvis jeg bruger

strValue = "5+8+11+576"
strAryWords = Split(strValue, "+")
' - strAryWords is now an array
Dim i
For i = 0 to Ubound(strAryWords)

Response.Write i & " = " & strAryWords(i) & "<BR>"
Next

udskriver den
0 = 5
1 = 8
2 = 11
3 = 576

Det er altså den querystring der ikke kan laves til et array. Hvorfor dog ikke?

Den smed åbenbart + tegnene væk, dette her virker i herttilfælde:

strValue = Request.Querystring("produkt_id")
strAryWords = Split(strValue, " ")
' - strAryWords is now an array
Dim i
For i = 0 to Ubound(strAryWords)

Response.Write i & " = " & strAryWords(i) & "<BR>"
Next