怎么样删除数组中的重复元素？

[chink365]

请各位大虾给以帮助!!!!!

[myvicy]

一个一个判断，等的就去掉啊。

[jarraytan]

可以新做个数组，然后将旧数组元素一个一个的拷进去，拷之前先与新数组中已有元素判断，若已经存在则不拷贝，否则拷贝。

效率有点低哦。。。

[chink365]

在asp里,判断相同数据可以了.但怎么把数组重复去掉了,用什么方法,

[chink365]

用asp的语言能实现吗?,能给点代码吗?谢谢了?

[riyao]

我觉得还是
myvicy(在线解决:你的问题我来解决(因为我不会骗人，所以我最)
这个方法。。。好用。

dim array()
'array_old()为原来的数组
Dim k,i,j
Dim str
k=Lbound(array_old)
array(0)=array_old(k)
str=","& array(0) &","
j=1
for i=k+1 to Ubound(array_old)
if not InStr(str,","& array_old(i) &",") then
array(j)=array_old(i)
str=str & array_old(i) &","
j=j+1
end if
next
这样array()里就没有重复的了。。
代码没验证。

[chink365]

代码有点小问题，下标越界：array(0)=array_old(k)