这篇文章是asp下删除重复数组的函数，已经经过测试。
function cxarraynull(cxstr1,cxstr2)
if isarray(
cxstr1) then
cxarraynull = “对不起，参数1不能为数组”
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
%>
使用方法和函数表示：
1、cxarraynull(cxstr1,cxstr2)函数中的两个参数：
cxstr1：要检测的数组变量，可以为空，或其它未知的错误数据，当为空或则为错误数据返回”nodate”。
cxstr2：数组的分割符号，可以为空，或为chr(13)等，自动替换输出。
2、测试代码：
<%
s=”1,2,3,4,2,3,5,3″
s=cxarraynull(s,”,”)
response.write s
%>
输出：1,2,3,4,5
脚本之家增强版本，解决了数组中最后一位的,逗号问题。
function cxarraynull(cxstr1,cxstr2)
if isarray(cxstr1) then
cxarraynull = “对不起，参数1不能为数组”
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
%>
测试代码:
s=cxarraynull(s,”,”)
response.write s
以上就是asp 数组 重复删除函数(脚本之家增强版)的详细内容，更多请关注gaodaima搞代码网其它相关文章！
转载请注明原文链接：asp 数组 重复删除函数(脚本之家增强版)
