複製** **如下:
function mover(rstr)
dim i,spstr
spstr = split(rstr,",")
for i = 0 to ubound(spstr)
if i = 0 then
mover = mover & spstr(i) & ","
else
if instr(mover,spstr(i))=0 and i=ubound(spstr) then
mover = mover & spstr(i)
elseif instr(mover,spstr(i))=0 then
mover = mover & spstr(i) & ","
end if
end if
next
end function
response.write mover("abc,abc,dge,gcg,dge,gcg,die,dir,die")%>
結果是：abc,dge,gcg,die,dir
如果是兩個陣列進行對比，去掉相同的陣列元素：
複製** **如下:
&nbwww.cppcns.comsp; function mover(farray,sarray)
a = split(farray, ",")
set dic = createobject("scripting.dictionary")
for k=0 to ubound(a)
if a(k)<> "" then dic.add "_" & a(k), a(k)
next
&nbqdpswzmjxesp; a = split(sarray, ",")
for k=0 to ubound(a)
&程式設計客棧nbsp; if a(k)<> "" then
程式設計客棧; if dic.exists("_" & a(k)) then
dic.remove "_" & a(k)
end if
end if
next
items = dic.items()
set dic = nothing
mover=join(items, ",")
end function
n1 = "a,b,1,11,12,13,14,15,16,17,19,20,22"
n2 = "a,1,12,14,18,19,20"
response.write mover(n1,n2)
%>
結果是：
3.陣列a中有為空的元素(如a=array("ww","ss","","dd","","ee")),
想把這些空元素從陣列a中去掉.並把去掉空元素有的陣列賦給陣列b.
複製** **如下:
str=""
for i = lbound(a) to ubound(a)
if a(i)<>"" then
if i<>lbound(a) then str = str + "," end if
str = str & a(i)
end if
next
b = split(str,",")
本文標題: asp下去除陣列中重複項的方法
本文位址: /ruanjian/vb/38522.html
php去除陣列重複項
一維陣列的重複項 使用array unique函式即可，使用例項如下 bb array unique aa print r bb 結果如下 二維陣列的重複項 對於二維陣列咱們分兩種情況討論，一種是因為某一鍵名的值不能重複，刪除重複項 另一種因為內部的一維陣列不能完全相同，而刪除重複項，下面舉例說明 ...
js去除陣列重複項
js去除陣列重複項 方法 一 使用正則法 reg.test str 匹配得到就返回true，匹配不到返回false var arr 345 123 123 345 456 function regremove return str 最後返回出新陣列 console.log regremove arr...
去除陣列中的重複元素的方法
1 去重 清除陣列中重複出現的元素 var arr1 1，3，3，4，4 4，aba aba 陣列字面量的形式建立陣列。var arr2 for var i 0 iif arr2.indexof arr1 i 0 for var i 0 i arr1.length i else for key in...