codice:
function totVolte(stringa,carattere)
tot=0
for i=1 to len(stringa)
if(instr(i,stringa,carattere)>0) then
tot = tot + 1
i=instr(i,stringa,"c")
end if
next
totVolte=tot
end function
arrValori = Array(1,1,2,3,4,2,4,5,6)
str = UNsplit(arrValori,",")
for i=0 to ubound(arrValori)
if totVolte(str,""&arrValori(i))>1 and instr(1,exit,""&arrValori(i))=0 then
exit = exit&","&arrValori(i)
end if
next
if right(exit,1)="," then
exit=left(exit,len(exit)-1)
end if
arrDoppi = split(exit,",")
così dovrebbe andare