87,922
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
unexpectedly 2003-01-17
- 打赏
- 举报
perfect!!
kel 2002-08-19
- 打赏
- 举报
谢谢各位的帮助
Go_Rush 2002-08-16
- 打赏
- 举报
qiushuiwuhen(秋水无恨)
的正则表达式真是用的拽呀
Cool~~~~~
的正则表达式真是用的拽呀
Cool~~~~~
孟子E章 2002-08-16
- 打赏
- 举报
<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>
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>
孟子E章 2002-08-16
- 打赏
- 举报
<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 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>
qiushuiwuhen 2002-08-16
- 打赏
- 举报
<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>
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>
meizz 2002-08-16
- 打赏
- 举报
一个去除数组里重复元素例子
<%
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()
%>
vivanboy 2002-08-16
- 打赏
- 举报
秋水的bug显然是分割符带来的,但是已经能够对付绝大多数情况了
这样比遍历数组的速度肯定快些
这样比遍历数组的速度肯定快些
孟子E章 2002-08-16
- 打赏
- 举报
秋水的有Bug
Try:
[1,2 2,1 1,2,3]
Try:
[1,2 2,1 1,2,3]
