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

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

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

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

相关阅读
当鼠标靠在某个字上时,背景也随之改变
网页小键盘/软键盘
做海外电商单页的facebook像素广告代码与相关事件处理
PS常用密技
javascript自动获取Tags关键字
微信小程序打开客服提示:该小程序提供的服务出现故障,请稍后重试
jquery获取不同类型表单值的方式
在网页上禁止鼠标右键的方法(1)
更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
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还有其它的吗
更多>>随机抽取信息
详解HTML标记里面的em和strong的区别
连云港酒店预订网站
动态返回selected选择框的代码说明
asp iis 开启本地FSO权限
asp经典正则表达式应用收藏
中国大宗资产交易网