Test af om bruger NNN er i listen. måske kan dette bruges
dim i,NNN,fundet for i=0 to Ubound(A) if NNN=A(i) then response.write(NNN & " er i listen") fundet=true exit for end if next if not fundet then response.write(NNN & " er ikke i listen") end if
DET der, kan jeg godt selv -tak :) Og det er faktisk IKKE særlig let at gennemløbe det, hvordan ville du da gøre det?
Ja, man kan da lave en løkke, men hvis man så bruge Response.Write vil man jo skrive henholdsvis at brugerens id er der og ikke er der for hver 'post' i array'et :)
nej, for når man har fundet brugeren, så skal man forlade for-løkken og ellers skal man forsætte i løkken. Så du min bemærkning om Cint for at være sikker på man ikke sammnesligner et "tekst-tal" med et tal.
-->squashguy: Noget i den stil tænkte jeg også på, men jeg ville have brugt InStr-funktionen på strengen "," & userlist & "," og på "," & ID & ",", men jeg forstod han helst ville have et array.
nmh: Din kode virker af en eller anden grund ikke. har du selv testet den?.. Hvis ikke, kan du ikke lige gøre det, før jeg begynder at kigge hele min egen kode igennem for fejl :)
Jeg har lige testet dette som et VBscript-program, hvor jeg har erstattet response.write... med msgbox NNN & " er i listen" og det virker fint. Men jeg bruger jo 'Cint'.
dim A,i,NNN,fundet,Liste NNN="7" 'f.eks. Liste="1,2,7,8,9,10" A=split(Liste,",") for i=0 to Ubound(A) if Cint(NNN)=Cint(A(i)) then response.write(NNN & " er i listen") fundet=true exit for end if next if not fundet then response.write(NNN & " er ikke i listen") end if
Ovenstående kode virker fint. Hvis du hellere vil benytte InStr, så ser det således ud: (Jeg har erstattet response.write med msgbox, så det kan testes som et VBscript)
dim i,NNN,Liste Liste="1,2,7,8,9,10" NNN="7" if Instr("," & Liste & ",","," & NNN & ",")>0 then msgbox NNN & " er i listen" else msgbox NNN & " er ikke i listen" end if
Hvis du gemmer dette i en tekst-fil med navnet Liste.vbs, så er det et VBscript, som du kan få udført ved at klikke på filen. Det virker som det skal (og det gør den forrige version også). Hvad skete der, da du kørte det?
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.
