订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

asp中利用split,instr组合去除二维数组中重复项

深山行者个人网站 2011/1/21 13:10:06 深山行者 字体: 浏览 15613

<%
'******************************
'函数: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)
%>

相关阅读
万家乐
设置个性的文字链接样式,集齐网页上常见的链接样式
四川省中国青年旅行社有限公司总部
如何让文本框不出现提交过的表单信息
微信公众号回复音乐消息或用客服接口推送音乐消息
禁止网站的静态模板被下载
JavaScript:iframe自动适应高度
利用CSS中的float属性实现文字环绕图片的效果
更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
一个超级变态的DIV+CSS
在网页标题栏上或收藏夹前面显示网站ico小图标的方法
微信公众平台
PS常用密技
中国签证行业领导者--91出国签证网
在图片未知尺寸情况下,利用CSS把图片垂直居中于div中心(2)