asp數(shù)組重復(fù)刪除函數(shù)
因?yàn)橐獙?xiě)個(gè)東西用到,所以百度了一下,居然有朋友亂寫(xiě),而且比較多,都沒(méi)有認(rèn)真測(cè)試過(guò),只對(duì)字符可以,但是對(duì)數(shù)字就不可以,而且通用性很差,需要修改才可以真正使用。沒(méi)辦法就自己寫(xiě)了,經(jīng)過(guò)測(cè)試完全沒(méi)有問(wèn)題,而且思路很方便,代碼很短,如下:
復(fù)制代碼 代碼如下:
<%
function cxarraynull(cxstr1,cxstr2)
if isarray(cxstr1) then
cxarraynull = "對(duì)不起,參數(shù)1不能為數(shù)組"
Exit Function
end if
if cxstr1 = "" or isempty(cxstr1) then
cxarraynull = "nodate"
Exit Function
end if
ss = split(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
for m = 0 to ubound(ss)
cc = cxstr2&ss(m)&cxstr2
if instr(sss,cc)=0 then
sss = sss&ss(m)&cxstr2
end if
next
cxarraynull = right(sss,len(sss) - len(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
end Function
%>
使用方法和函數(shù)表示:
1、cxarraynull(cxstr1,cxstr2)函數(shù)中的兩個(gè)參數(shù):
cxstr1:要檢測(cè)的數(shù)組變量,可以為空,或其它未知的.錯(cuò)誤數(shù)據(jù),當(dāng)為空或則為錯(cuò)誤數(shù)據(jù)返回"nodate"。
cxstr2:數(shù)組的分割符號(hào),可以為空,或?yàn)閏hr(13)等,自動(dòng)替換輸出。
2、測(cè)試代碼:
<%
s="1,2,3,4,2,3,5,3"
s=cxarraynull(s,",")
response.write s
%>
輸出:1,2,3,4,5
增強(qiáng)版本,解決了數(shù)組中最后一位的,逗號(hào)問(wèn)題。
復(fù)制代碼 代碼如下:
<%
function cxarraynull(cxstr1,cxstr2)
if isarray(cxstr1) then
cxarraynull = "對(duì)不起,參數(shù)1不能為數(shù)組"
Exit Function
end if
if cxstr1 = "" or isempty(cxstr1) then
cxarraynull = "nodate"
Exit Function
end if
do while instr(cxstr1,",,")>0
cxstr1=replace(cxstr1,",,",",")
loop
if right(cxstr1,1)="," then
cxstr1=left(cxstr1,len(cxstr1)-1)
end if
ss = split(cxstr1,cxstr2)
cxs = cxstr2&ss(0)&cxstr2
sss = cxs
for m = 0 to ubound(ss)
cc = cxstr2&ss(m)&cxstr2
if instr(sss,cc)=0 then
sss = sss&ss(m)&cxstr2
end if
next
cxarraynull = right(sss,len(sss) - len(cxstr2))
cxarraynull = left(cxarraynull,len(cxarraynull) - len(cxstr2))
end function
%>
測(cè)試代碼:
復(fù)制代碼 代碼如下:
s="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,,,,,,,,,,,,,,"
s=cxarraynull(s,",")
response.write s