DDR爱好者之家

[asp]中的正则表达式运用代码
站长资源 2024/11/25 佚名
30 1538
DDR爱好者之家 Design By 杰米
今天在改一套b2b的电子商务系统时，发现ASP正则，虽然用ASP很久了，但从来没用过正则表达式，这套系统中有个正则的函数很不错，自己看吧。
复制代码 代码如下:
<%  
Function RegExpTest(patrn, strng) 
    Dim regEx, Match, Matches   ' 建立变量。 
    Set regEx = New RegExp   ' 建立正则表达式。 
     regEx.Pattern = patrn   ' 设置模式。 
    regEx.IgnoreCase = False   ' 设置是否区分字符大小写。 
    regEx.Global = True   ' 设置全局可用性。 
    Set Matches = regEx.Execute(strng)   ' 执行搜索。 
    For Each Match In Matches   ' 遍历匹配集合。 
    On Error Resume Next 
    RetStr = RetStr & Match.Value&"|" 
    Next 
    RegExpTest = RetStr 
End Function 

 str = "我来自#5565#哈哈" 
 strInfo = RegExpTest("#\w+(\((\b[,0-9]+\b)?\))?#", str) 
 Response.Write(strInfo) 
%> 

再看一例：

复制代码 代码如下:
Function noHtml(str) 
     Dim re 
     Set re=New RegExp 
     re.IgnoreCase =True 
     re.Global=True 
     re.Pattern="(\<.*?\>)" 
     str=re.Replace(str,"") 
     re.Pattern="(\<\/.*?\>)" 
     str=re.Replace(str,"") 
     noHtml=str 
End Function
DDR爱好者之家 Design By 杰米
广告合作：本站广告合作请联系QQ：858582 申请时备注：广告合作（否则不回）
免责声明：本站资源来自互联网收集,仅供用于学习和交流,请遵循相关法律法规,本站一切资源不代表本站立场,如有侵权、后门、不妥请联系本站删除！
DDR爱好者之家 Design By 杰米
ddrfans.com DDR爱好者之家
8,675无损音乐
1,324高清电影
213破解软件
70,141收录资讯

更新日志

友情链接

杰晶网络 DDR爱好者之家 南强小屋 黑松山资源网 白云城资源网
DDR爱好者之家 Design By 杰米