chgArraypos

'pre-esiste un vettore di n elementi

dim p1 as integer, p2 as integer, scambio as string

p1=lbound(vettore)
do while p1<=ubound(vettore)
p2=p1+1
do while p2<=ubound(vettore)
if vettore(p1)=vettore(p2) then
vettore(p2)=vettore(ubound(vettore))
redim preserve vettore(ubound(vettore)-1)
else
p2=p2+1
end if
loop
p1=p1+1
loop