problem med att skapa en array

Vad är fel?

<%

dim val = Request.form("val") ' heltal

dim myArray(CInt(val) ) <- Microsoft VBScript compilation error '800a0402' Expected integer constant
dim myArray(CInt(val))
------------^

%>

Du kan inte ange en variabel / ett uttryck som storlek i dim, utan endast i redim.
Sålunda:

dim myArray(0)
redim myArray (CInt(val))

Att du inte fann något när du sökte på webForum är dock ett under. ;)

följande verka iaf fungera:

dim myArray(10)

myArray(1) = 1
myArray(2) = 2

Response.Write(myArray(1) ) <-- skriver ut 1

Det känns dock felaktigt att göra en array som är alldeles för stor.
Titta gärna på koden i mitt inlägg ovan.

Prövade ditt exempel och får då:

Microsoft VBScript runtime error '800a000a'

This array is fixed or temporarily locked

hmm.. man kan tydligen heller inte ha dim val = request.form("val")

utan man måste skriva:

dim val

val = ...

HEJ!

jme skrev:

hmm.. man kan tydligen heller inte ha dim val = request.form("val")

utan man måste skriva:

dim val

val = ...

Nej, i Javascript kan man det (fast utan Request.Form givetvis!), och säkert i andra språk också.

Dim:a variabler kan man däremot göra i rad, Dim a, b, c osv.

hmm.. man kan tydligen heller inte ha dim val = request.form("val")

utan man måste skriva:

dim val

val = ...

Det stämmer. Så funkar vbscript.

Prövade ditt exempel och får då:

Microsoft VBScript runtime error '800a000a'

This array is fixed or temporarily locked

Prova att skapa variabeln först.

val = CInt(val)
dim myArray(0)
redim myArray (val)

Fungerar inte. Får fortfarande:

Microsoft VBScript runtime error '800a000a'

This array is fixed or temporarily locked

dim myArray() <-- ingen nolla
redim myArray (val)

Nu verkar iaf detta fungera

Du hade kunnat bespara dig lite tid om du hade sökt på "Expected integer constant".
En av de första sökträffarna: http://www.webforum.nu/showthread.php?t=127322

Man kan inte nog understryka hur finfint det kan vara att söka lite ibland! (y) :bire