Fjerne dubletter fra Array

Har lige flikket noget sammen. Det er med garanti ikke det smukkeste kode der er lavet, men jeg synes det ser ud til at fungere :)

arrValues = Array(7,7,7,7,2,3,6,2,3,4,5,6,7,8,9,10,6,9)
strValues = Join(arrValues,",")
i = 1
do while i < len(strValues) and i > 0
  endPos = instr(i, strValues, ",")
 
  if endPos > 0 then
    strReplace = mid(strValues, i, endPos - i)

    strTempValues = Replace(strValues & ",", "," & strReplace & ",", ",", i + 1, -1)
    strTempValues = left(strTempValues, len(strTempValues) - 1)
    if i > 1 then
      strValues = left(strValues, i) & strTempValues
    else
      'strValues = strTempValues
      strValues = right(strTempValues, len(strTempValues) - 1)
    end if
    i = endPos+1
  else
    exit do
  end if
loop

arrValues = Split(strValues, ",")

Tak. Smid et svar

Velbekomme :)

Tak for point :)