一个去除数组里重复元素例子
<%
 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()
%>

解决方案 »

  1.   

    <script>
    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>
      

  2.   

    <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>
      

  3.   

    <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>
      

  4.   

    qiushuiwuhen(秋水无恨)的正则表达式真是用的拽呀Cool~~~~~
      

  5.   

    秋水的有Bug
    Try:[1,2            2,1 1,2,3]
      

  6.   

    秋水的bug显然是分割符带来的,但是已经能够对付绝大多数情况了这样比遍历数组的速度肯定快些