此功能比较简单,主要利用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 缓存问题的解决
