asp中利用split,instr组合去除二维数组中重复项
<%
'******************************
'函数:MoveR(Rstr)
'参数:Rstr,以逗号做分隔的数组
'描述:去除数组中重复的项
'示例:MoveR("1,2,2,2,3,3,4,a,45,5,6,6")
'******************************
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
xxxlei = "1,2,2,2,3,3,4,a,45,5,6,6"
response.write "原来的:" & xxxlei
response.write "处理过的:" & MoveR(xxxlei)
%>
- 相关阅读
- 用ASP对网页进行限制性的访问
- asp读取163的rss之xml数据
- uniapp的rich-text组件注入的a标签点击跳转处理
- 给个photoshopcs下载地址,大家可能用到
- 连云港党建
- 河南中旅旅行社
- 来自网易空间排行宽度可以变化的选项卡
- 浅论网页优化和网站优化的方式
- 共有0条关于《asp中利用split,instr组合去除二维数组中重复项》的评论
- 发表评论
您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。
- 更多>>同类信息
- ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
- asp显示随机密码
- 通过阿里云服务接口获得ip地址详细信息
- iis点开后任务栏上有显示,但是窗口看不到的解决办法
- RSA加密解密插件
- 微软Encoder加密解密函数