Jens GyldenkærneClausen wrote in
dk.edb.internet.webdesign.serverside.asp:
> john wengel skrev:
>
> > for i =0 to ubound(array,2)
> >
> > s=0
> >
> > for j=0 to ubound(array,2)
> >
> > if array(0,i)=array(0,j) then ' afhængig af hvor i array du har
>
>
> Du sammenligner samtlige pladser med samtlige pladser - det giver
> dels len(array) falske positive og dels en mængde overflødige
> sammenligninger.
>
> De falske positive kommer hver gang i er lig j - fx i allerførste
> sammenligning:
>
> if array(0,0) = array(0,0)
>
> De ekstra sammenligninger kommer fordi du overser at det er
> underordnet hvilken rækkefølge man sammenligner to pladser i. Hvis
> ordet på position 3 er det samme som ordet på position 17, er det
> naturligvis også sandt at ordet på position 17 er det samme som
> ordet på position 3.
>
> En noget hurtigere algoritme (her med et endimensionelt array):
>
> ' Gennemløb hele arrayet i den yderste løkke
> For i = 0 to Ubound(objArray)
>
> ' Gennemløb pladserne til højre for i i den indre løkke
> For j = (i + 1) to Ubound(objArray)
> If objArray(i) = objArray(j) Then
> counter = counter + 1
> description = description & "Ordet """ & _
> objArray(i) & """ fundet på indexNr " & _
> i & " og " & j & ".<br>"
> End If
> Next 'j
> Next 'i
>
> NB: Array er (også) en funktion i vbscript - man kan derfor ikke
> anvende det som variabelnavn.
Indrømmer at din metode er pænere.(selvom det ikke passer mig)
Det var underforstået at brugeren selv skriver navnet på sit array
der hvor jeg skrev array.
> --
> Bolig søges. Andel eller leje i Emdrup, Nordvest, Nørrebro, Søborg
> eller Brønshøj, max 6000 pr. måned.
> Kontakt pr. mail - nospam(at)gyros.dk
> Jens Gyldenkærne Clausen
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials