asp 数组 重复删除函数(脚本之家增强版)_ASP教程-查字典教程网
asp 数组 重复删除函数(脚本之家增强版)
asp 数组 重复删除函数(脚本之家增强版)
发布时间:2016-12-29 来源:查字典编辑
摘要:因为要写个东西用到,所以百度了一下,居然有朋友乱写,而且比较多,都没有认真测试过,只对字符可以,但是对数字就不可以,而且通用性很差,需要修改...

因为要写个东西用到,所以百度了一下,居然有朋友乱写,而且比较多,都没有认真测试过,只对字符可以,但是对数字就不可以,而且通用性很差,需要修改才可以真正使用。没办法就自己写了,经过测试完全没有问题,而且思路很方便,代码很短,如下:

复制代码 代码如下:

<%

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="1,2,3,4,55,55,55,333,333,2,3,5,3,88,,,,,,,66,,66,,,,,,,,,,,,,,,,,,,,,,,,"

s=cxarraynull(s,",")

response.write s

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新ASP教程学习
    热门ASP教程学习
    编程开发子分类