26. april 2003 - 18:56Der er
5 kommentarer og 1 løsning
Array i et loop...
Hejsa. Jeg har et prøblem med et array placeret i et For...Next Loop. Fejlmeddelelsen jeg får ser således ud:
-------------------------------------------- Microsoft VBScript runtime error '800a0009' Subscript out of range --------------------------------------------
Og koden ser således ud:
-------------------------------------------- Dim arrerr() For i = 1 To len(Request.Querystring("ferr")) arrerr(i - 1) = mid(Request.Querystring("ferr"),i,1) Next --------------------------------------------
Er der nogen der umiddelbart kan se hvad der er galt?
Det er fordi den skal havde en længde på arrayet: Dim arrerr(X) Men typsik kender man ikke X og man dessvære ikke skriv Dim arrerr(len(Request.Querystring("ferr"))). Så man er nød til at redime sit aray før man ligger en ny i, så prøv:
Dim arrerr() For i = 1 To len(Request.Querystring("ferr")) Redim Preserve arrerr(i - 1) arrerr(i - 1) = mid(Request.Querystring("ferr"),i,1) Next
Dim arrerr() Redim arrerr(len(Request.Querystring("ferr"))) For i = 1 To len(Request.Querystring("ferr")) arrerr(i - 1) = mid(Request.Querystring("ferr"),i,1) Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
