25. januar 2007 - 14:45Der er
6 kommentarer og 1 løsning
Array søgning
Hej jeg er ved at lave et søge system hvor jeg har et par ord der ikke er tilladt og der for var det min mening at før jeg søger på dem i min db. ville jeg se om det var et forbudt ord via et Array men jeg må inrøme jeg har ikke før brugt Array så jeg ved ikke hvordan jeg søger i et Array
Pudsigt, jeg skal selv lige have lavet en arraysøgning. En autocomplete trigger et opslag i en comboboks, den kan så blot give mig ID og Tlf nr på en kunde. Jeg skal også bruge navnet, som jeg regner med, at jeg kan slå op vha ID i en 2- dimensionel array. Jeg ser lige, hvad jeg kan finde ud af og poster det her, hvis ikke andre kommer først ;-)
<% Dim FyOrdListen() ReDim FyOrdListen(2) ' sætter listen til at være 2 pladser stor FyOrdListen(0) = "Dumme kalp" FyOrdListen(1) = "Idiot" ReDim Preserve FyOrdListen(4) ' gør listen dobbelt så stor.. men beholder de gamle værdier FyOrdListen(2) = "Nørd" FyOrdListen(3) = "Skole" For Each item In FyOrdListen if item = " Det ord du vil tjekke om er et fy ord " then response.write "fyord fundet!!!" end if Next %>
din opgave er selvfølgelig så bare at hente indholdet dynamisk fra din db..
Function sog(sogeord,sogarray) for sogid = 0 to ubound(sogarray) if sogarray(sogid) = sogeord then sog = sogeord exit for else sog = "" end if next end function
Det er sgu da ikke effektivt, hvis du har flere hundrede fyord:
dim a(5),b a(0)="røv" a(1)="pis" a(2)="lort" a(3)="sex" a(4)="porno" b=Filter(a,"p") document.write(join(b)) Output: pis porno
Synes godt om
Ny brugerNybegynder
Din løsning...
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.