Annette skrev:
> If arrFoto(y) = x Then
Hvilke data gemmer sig i arrFoto(y). Hvis din løkke aldrig bliver
sand (og du mener at den burde blive det) kan det fx være fordi du
sammenligner en tekst med et tal.
Såfremt alle mulige værdier af arrFoto(y) er tal kan du skrive:
If CInt(arrFoto(y)) = x Then
Ellers kan du bruge
If Cstr(arrFoto(y)) = Cstr(x)
(Det er ikke nødvendigt at bruge Cint(x), da definitionen x = 1 i
for-løkken tvinger vb-script til at opfatte x som en integer. På
den anden side skader det ikke at skrive Cint(x), så hvis du synes
at det er mere læsbart på den måde så brug det bare).
> ok = "false"
En lille kommentar. Du kan udnytte at asp/vb-script kan arbejde med
booleske værdier. Så kan du skrive:
ok = False
- og længere nede:
If ok = false (som man så igen kan skrive: If Not Ok Then...)
> Meningen er, at jeg skal have taget de tal ud som er ens (der
> er tal der er ens), men ved udskrivningen er der ingen "false"
Jeg går ud fra at du mener at der burde være en "false"? (om der er
det afhænger jo også af indholdet i arrFoto).
Et lille tip til sidst. Som koden står nu løber hele den indre
løkke igennem uanset hvor et eventuelt match findes. Ved at bruge
"Exit For" kan du bryde ud af løkken hvis en given betingelse er
opfyldt - på den måde kan du spare noget køretid:
ok = True ' Startstatus er o.k.
For x = 1 to intImgCount
For y = 0 to antal - 1
ok = Cbool(CInt(arrFoto(y)) <> x)
If Nok ok Then ' (ok = false)
Exit For ' Gå ud af den inderste løkke
End If
Next
If Not ok Then
response.write ok
End If
Next
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på
http://usenet.dk/netikette/citatteknik.html