一个asp正则替换的方法

我想大多写web的朋友应该和我一样，正则是不可少的，可是每次到用时去百度一下，也麻烦，存在电脑里也得找半天～换了电脑还是得靠百度了～，找到的要不得改半天，要不就少半截的，头痛！

还是在这里记录一下吧，自己整理过的代码，用起来了手顺！

 程序代码

<%

    '示例一个将内容中的邮箱标记转换成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一下！

--

365生活网,您身边的朋友

www.365life.org