一个asp正则替换的方法
作者:hayden 来源:烦恼's BLOG 时间:2008-11-25 14:05:00
我想大多写web的朋友应该和我一样,正则是不可少的,可是每次到用时去百度一下,也麻烦,存在电脑里也得找半天~换了电脑还是得靠google了~,找到的要不得改半天,要不就少半截的,头痛!
还是在这里记录一下吧,自己整理过的代码,用起来了手顺!
程序代码
<%
'示例一个将内容中的邮箱标记转换成html标记的(其实原型是ubb转换函数中)
Dim strContent : strContent = "原字符串sdfsdf[emails]hayden@yeah.net[/emails]"
Dim re, strMatchs, strMatch, tmpStr1
Set re=new RegExp ' 建立正则表达式。
re.IgnoreCase =True ' 设置是否区分大小写。
re.Global=True
re.Pattern = "\[emails](.[^\[]*)\[\/emails]"
Set strMatchs = re.Execute(strContent)
For Each strMatch in strMatchs
tmpStr1=strMatch.SubMatches(0)
'多个标记...strMatch.SubMatches(1)
strContent=replace(strContent,strMatch.Value,"<a href=""mailto:"&tmpStr1&""">"&tmpStr1&"</a>",1,-1,0)
Next
%>
再来个简单点的处理方法:
程序代码
<%
'功能同上
Dim Str : Str = "原字符串sdfsdf[emails]hayden@yeah.net[/emails]"
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="\[emails](.[^\[]*)\[\/emails]"
Str = re.replace(Str,"<a href=""mailto:""$1"">$1</a>")
%>
关于正则式的写法在这里就不多介绍了,可以按我的老方法:GOOGLE一下!
标签:正则,正则表达式,替换,asp
0
投稿
猜你喜欢
WEB打印分页类(JS)
2008-01-22 14:02:00
交互设计杂七杂八
2010-09-25 18:41:00
CSS布局之浮动(一)两列布局
2008-08-18 21:24:00
英文罚抄引发的艺术创意
2008-05-13 12:02:00
在flash中使用XML动态菜单
2007-09-06 19:16:00
mysql 插入优化
2010-12-14 15:29:00
丰富段落里的标签
2008-03-16 14:11:00
提一个懒人需求——找遥控器的电视
2009-03-23 18:16:00
设计师挖掘用户需求浅谈
2009-10-25 13:24:00
几种修复ACCESS数据库的实用方法
2008-11-20 17:37:00
谈谈Javascript中的++和–操作符
2009-05-08 11:43:00
触手生春【4.14】CSS与HTML结构
2008-12-09 18:10:00
JavaScript性能优化小技巧,创建文档碎片
2010-03-31 18:27:00
VBScript运行出错信息涵义列表
2007-08-12 18:03:00
Js的MessageBox
2008-05-16 10:25:00
Access数据库用另一种方式管理密码
2008-10-13 12:25:00
用不着妄自菲薄对ASP和ASP程序员的一些话
2007-08-22 15:09:00
低效的键盘和高效的登录框
2007-08-22 09:17:00
看看那些名牌LOGO的成长史
2009-03-24 20:37:00
解释FCKeditor样式的工作原理
2007-10-11 13:34:00