一个去除数组里重复元素例子
<%
dim a,i,b(),j,tt
redim preserve b(0)
a = Array(1,2,1,3,3,4,5,5,6,7,2,2,9,8,9)
for j = 0 to ubound(a)
tt = 0
for i = 0 to ubound(b)
if b(i) = a(j) then tt = 1
next
if tt = 0 then
redim preserve b(i+1)
b(i+1) = a(j)
end if
next '最后返回一个数组b()
%>
<%
dim a,i,b(),j,tt
redim preserve b(0)
a = Array(1,2,1,3,3,4,5,5,6,7,2,2,9,8,9)
for j = 0 to ubound(a)
tt = 0
for i = 0 to ubound(b)
if b(i) = a(j) then tt = 1
next
if tt = 0 then
redim preserve b(i+1)
b(i+1) = a(j)
end if
next '最后返回一个数组b()
%>
oldArray = [1,2,1,3,3,4,5,5,6,7,2,2,9,8,9]
var str = oldArray.join(" ");
var reg = /([^ ]+)(.*) \1/g;
while(str.match(reg))str=str.replace(reg,"$1$2")
alert(str.split(" "));
</script>
var tmp = new Array()
var a =new Array("AAAA","B","A","A","B","F","D","C","A","B","A","A","B","C")
tmp=a
for (var i=0;i<a.length;i++)
{
for(j=i+1;j<a.length;j++)
{
if(a[i]==a[j]) tmp[i]=null
}
}
var m = 0,ok = new Array()
for(k=0;k<tmp.length;k++)
{
if(tmp[k])
ok[m++] = tmp[k]
}
alert(ok)</script>
var a =new Array("AAAA","B","A","A","B","F","D","C","A","B","A","A","B","C")
for (var i=0;i<a.length;i++)
{
for(j=i+1;j<a.length;j++)
{
if(a[i]==a[j]) a[i]=null
}
}
var m = 0,ok = new Array()
for(k=0;k<a.length;k++)
{
if(a[k])ok[m++] = a[k]
}
alert(ok)
</script>
Try:[1,2 2,1 1,2,3]