asp下去除数组中重复项的方法
更新时间：2007年08月08日 11:45:09 作者：
这篇文章主要为大家介绍了asp中去除数组中重复项的方法，需要的朋友可以参考下
复制代码 代码如下:
<%
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
如果是两个数组进行对比，去掉相同的数组元素：
复制代码 代码如下:
<%
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
a = Split(sarray, ",")
For k=0 To UBound(a)
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中“对象关闭时,不允许操作。”的诡异问题，找到问题的根本，才能真正意义上解决，供大家参考了。2016-03-03
检查上传图片是否合法的函数,木马改后缀名、图片加恶意代码均逃不过
很多ASP程序检查上传图片是否合法往往只去检查文件的后缀，这样有一个很大的安全隐患，就是如果把ASP文件的后缀名改成.jpg或者.gif上传，或者图片里加入恶意代码再上传，那也会被程序认为是图片文件而照传不误。假如不怀好意的人上传个木马文件进去，虽然是后缀为jpg也许无法直接运行，但确确实实给服务器带来了很大的安全隐患。2008-03-03
利用 cache 做对比静态页的网页技术...2007-10-10
asp下html模板的加载方法，一般有以下几种，大家可以根据情况自己决定，结果都是一样的，都是好方法2008-01-01
asp提醒生日的原理一般就是把用户的出生日期和当前日期对比，如果少于几天则提醒显示,下面是几种方法的实现2008-06-06
防止别人盗链的好方法推荐...2007-01-01
asp中回车换行符CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格
这篇文章主要介绍了asp中回车换行符CHR(10)表示换行，CHR(13)表示回车，CHR(32)表示空格,需要的朋友可以参考下2006-08-08
asp下request.querystring("id")与request("id&quo
一下问题一天遇到2次，复制过来以供下次参考，一般来说还使用万能的request("id")比较好2008-01-01
在.NET Core 中使用 FluentValidation 进行规则验证的方法
这篇文章主要介绍了在.NET Core 中使用 FluentValidation 进行规则验证,本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值，需要的朋友可以参考下2021-02-02
使用ASP在IIS创建WEB站点的函数...2007-01-01
最新评论