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

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

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

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

相关阅读
旅行社网站模板默认风格1
asp计算页面执行时间显示到毫秒
求实时获取两个input日期型值的差
旅行社网站模板9
网站需要SEO,基本的SEO建站要点
rs操作数据表记录集对象的方法
本站出现验证码问题
偏重于汽车租赁服务商建站解决方案
更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
2026 aliyun阿里域名云注册续费优惠口令
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
更多>>随机抽取信息
微信小程序开发中链接navigateTo与redirectTo的对比说明
一些关于素材的网站
昌平欢乐之旅旅行社
uni-app浏览历史记录功能实现
设为首页代码
要想创业成功必读的 36 条铁律