28,409
社区成员
发帖
与我相关
我的任务
分享糊涂问题：一个一维数组，如何去掉其中相同的值？
糊涂问题：一个一维数组，如何去掉其中相同的值？
脑子晕晕，折腾半天也没整出来。。。
最好给个vbscript函数，返回一个没有重复值的数组 ^o^
脑子晕晕，折腾半天也没整出来。。。
最好给个vbscript函数，返回一个没有重复值的数组 ^o^
...全文
请发表友善的回复…
发表回复
超级大笨狼 2004-11-21
- 打赏
- 举报
http://community.csdn.net/Expert/topic/3353/3353124.xml?temp=.231167
lienzhu 2004-11-21
- 打赏
- 举报
function newarr(oldarr)
redim arr(0)
arr(0)=oldarr(0)
alen=0
for i=1 to ubound(oldarr)
dif=true
for j=0 to alen
if arr(j)=oldarr(i) then
dif=false
exit for
end if
next
if dif then
alen=alen+1
redim Preserve arr(alen)
arr(alen)=oldarr(i)
end if
next
newarr=arr
end function
redim arr(0)
arr(0)=oldarr(0)
alen=0
for i=1 to ubound(oldarr)
dif=true
for j=0 to alen
if arr(j)=oldarr(i) then
dif=false
exit for
end if
next
if dif then
alen=alen+1
redim Preserve arr(alen)
arr(alen)=oldarr(i)
end if
next
newarr=arr
end function
yqh1314 2004-11-21
- 打赏
- 举报
ARRY（I）
FRO I=0 TO ARRY（I）
FRO I=0 TO ARRY（I）
是是非非 2004-11-21
- 打赏
- 举报
依次查找
