大连网站制作客服
主营业务
  • 网站制作
  • 网站维护
  • 网站推广
  • 域名空间
联系电话
联系人:尹先生
QQ:1050706570
E-mail:biz@noonenet.cn
地址:大连市甘井子区哲林北园29号
·首页 >> 网站技术 >> Asp - 截取重复字符串

Asp - 截取重复字符串

  更新时间:2009-10-16 15:18:12    编辑:阿帆

此功能比较简单,主要利用Asp中split,以及instr函数进行实现

以下是代码片段:
<%
Dim Oldstr,Newstr,oArray,i

Oldstr = "A,B,C,D,E,E,D,C,B,A"
oArray = Split(Oldstr, ",")

Newstr = ""
For i=0 To UBound(oArray)
    If Instr(Newstr, oArray(i)) = 0 Then
        Newstr = Newstr & oArray(i) & ","
    End If
Next

Response.Write "原有重复字符的字符串:" & Oldstr & "<br />"
Response.Write "去掉重复字符的字符串:" & Newstr & "<br />"
%>

代码很简单就不做注释了,输出结果是:
原有重复字符的字符串:A,B,C,D,E,E,D,C,B,A
去掉重复字符的字符串:A,B,C,D,E,

这个只是简单的剔除重复字符,在实际应用中也许就不能这么简单了,例如要去掉用户输入的多个Tag中重复的Tag,如果用户输入的Tag字符串为 AB,A,B,C,B,D,以“,”分割,我们需要的结果是AB,A,B,C,D,用上面的方法得到的结果将是AB,C,D!
用一个比较笨的方法来解决就是:

以下是代码片段:
<%
Dim Oldstr,Newstr,oArray,i

Oldstr = "AB,A,B,C,B,D"
oArray = Split(Oldstr, ",")
Newstr = " " '这里的值是一个空格
For i=0 To UBound(oArray)
    If Instr(Newstr, " " & oArray(i) & " ") = 0 Then '在oArray(i)的前后加一个空格
        Newstr = Newstr & oArray(i) & " " '用空格分开
    End If
Next

Response.Write "原有重复字符的字符串:" & Oldstr & "<br />"
Response.Write "去掉重复字符的字符串:" & Newstr & "<br />"
%>


 

 

原载: No.1网络工作室 http://www.noonenet.cn/
版权声明:原创作品,允许转载,转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。否则将追究法律责任。


Tags:asp 字符串函数 截取重复字符串
同类文章:
· ASP 3.0与ASP 2.0的区别及改进
· 利用正则清除、去掉html标记
· asp程序错误详细说明列表
· 静态页面点击率统计
· Flash 缓存问题的解决
返回新闻列表
top
本站关键字:大连网站制作 - 大连网站建设 - 大连网页制作
CopyRight © 2009-2012 No.1网络工作室 All Rights Reserved  sitemap
地址:大连市甘井子区哲林北园29号 电话:13889684613 E-mail:biz@noonenet.cn QQ:1050706570
logo