Fjern dubletter i array

Her er et forsøg - men den reducerer ikke listen - det må du selv gøre...:

dim minarray(5)

minarray(0) = \"1\"
minarray(1) = \"2\"
minarray(2) = \"3\"
minarray(3) = \"3\"
minarray(4) = \"3\"
minarray(5) = \"2\"

for X = 0 to Ubound(minarray)
    for Y = X to Ubound(minarray)-1
    if Minarray(X) = minarray(Y+1) then
    minarray(X) = \" \"
    end if
    next
next

\' Her udskriver vi lige den rensede liste!
for X = 0 to Ubound(minarray)
response.write minarray(X) & \"<br>\"
next

Hvis du benytter dig af en Collection, bruger stikordet som key og ignorerer fejl som opstår ved afvisning af dubletterne...

Så har du en Collection/Array som er renset for dubletter

Det forudsætter du har et array :  stikorod  som du har skrevet i spørgsmålet.

reDim renset_stikord(0)
renset_stikord(0) = stikord(0)
for i = LBound(stikord) to UBound(stikord)
  insertOK = true
  for n = LBound(renset_stikord) to UBound(renset_stikord)
    if renset_stikord(n) = stikord(i) then
      insertOK = false
      exit for
    end if
  next
  if insertOK = true then
    ReDim Preserve renset_stikord(UBOUND(renset_stikord) + 1)
    renset_stikord(UBOUND(renset_stikord)) = stikord(i)
  end if
next

Så får du et array hvor der ikke er to ens.

Array hedder som i spørgsmålet:  renset_stikord

Var det noget du kunne bruge?

...??...