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

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

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

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

相关阅读
总结一下with open()和open()的区别与使用方法
网页制作,改变你的思维方
javascript根据内容转换为拼音
js指定日期加n天加n月加n年
CSS选择符详解
针对table,div隔行变色的JS方法
fiddler抓包在内容的SyntaxView窗口里面是乱码
阿里云短信验证码签名不合法isv.SMS_SIGNATURE_ILLEGAL
更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
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还有其它的吗
更多>>随机抽取信息
asp正则表达式 替换HTML源文件里的链接地址
旅行社手机网站模板11
关于网页里面的DOCTYPE见解
批量删除access字段里面fld.Properties.Delete
Div+CSS+JS树型菜单,可刷新
旅行社网站模板7