常用的正则表达式集合

　　正则表达式 正则表达式
　　 <script language="vbScript" >
　　 set re = new RegExp
　　 re.Pattern = "[-:\s]"
　　 re.Global = true
　　 msgbox re.Replace(now(), "")
　　 set re =nothing
　　 </script>
　　 Function IsVerify(patrn,strng)
　　 strng=Trim(strng)
　　 Select Case patrn
　　 Case "User" ' 用户名
　　 patrn="^[a-z]{1}([a-z0-9]|[._]){2,19}$"
　　 Case "Truename" ' 英文姓名
　　 patrn="^[a-zA-Z]{1,30}$"
　　 Case "Passwd" ' 密码
　　 patrn="^(\w){6,20}$"
　　 Case "Tel" ' 电话 / 传真
　　 patrn="^[+]{0,1}(\d){1,3}[ ]?([-]?((\d)|[ ]){1,12})+$"
　　 Case "Mobil" ' 手机
　　 patrn="^(\d)+[-]?(\d){6,12}$"
　　 Case "Date" ' 日期（格式： yyyy-mm-dd ）
　　 patrn="^[12]{1}(\d){3}[-][01]?(\d){1}[-][0123]?(\d){1}$"
　　 Case "Email" ' 电子邮件
　　 patrn="^((\w)|[-]|[.])+@(((\w)|[-])+[.])+[a-z]{2,4}$"
　　 Case "Postalcode" ' 邮政编码
　　 patrn="^[a-z0-9 ]{3,12}$"
　　 Case "Search" ' 搜索关键字
　　 patrn="^[^`~!@#$%^&*()+=|\\\[\]\{\}:;\'\,.<>/?]{1}[^`~!@$%^&()+=|\\\[\]\{\}:;\'\,.<>?]{0,19}$"
　　 Case "Int" ' 整数
　　 patrn="^[1-9]{1}[0-9]{0,5}$"
　　 Case "Array"
　　 patrn="^[0-9]{1}([0-9]|[\,]){0,150}$"
　　 End Select
　　 Dim regEx
　　 Dim Match
　　 Set regEx = New RegExp
　　 regEx.Pattern = patrn
　　 regEx.IgnoreCase = True
　　 regEx.Global = True
　　 Matches = regEx.test(strng)
　　 IsVerify = Matches
　　 Set regEx = Nothing
　　 End Function
　　 <SCRIPT LANGUAGE=vbs>
　　 a="A1B2C3"
　　 Function F(S,P)
　　 Dim regEx, Match, Matches ' 建立变量。
　　 Set regEx = New RegExp ' 建立正则表达式。
　　 regEx.Pattern = P ' 设置模式。
　　 regEx.IgnoreCase = True ' 设置是否区分字符大小写。
　　 regEx.Global = True ' 设置全局可用性。
　　 Set Matches = regEx.Execute(S) ' 执行搜索。
　　 For Each Match in Matches ' 遍历匹配集合。
　　 S =replace(S,Match.Value,"")
　　 Next
　　 F = S
　　 End Function
　　 MsgBox F(a,"\d")
　　 </SCRIPT>
　　求一个正则表达式的模式字符串 , 匹配下列字符串
　　 href="http://www.csdn.net/abc.jpg"
　　就是匹配以 href= 开头 ,.jpg 或者 .gif,.bmp,.png 等图片扩展名结束的字符
　　但是下面的情况不可以匹配 :
　　 href=imageView.asp?abc.jpg, 就是说字符中含有 .asp,.php,.jsp 等不匹配
　 　具体来说就是一个 html 格式的字符串 , 里面有一些链接点击后显示图片 , 现在要把这些链接替换成 ASP 页面 (imageView.asp), 然后页面中 显示图片 , 图片的 url 用 imageView.asp?url=abc.jpg 这样的参数传递到 imageView.asp
　　 '===================================================
　　 ' 函数名： replaceImageView
　　 ' 作 用：把图片链接替换成网页链接 , 网页中显示图片
　　 ' 参 数： strContent ----------- 要替换的 html 字符串
　　 '===================================================
　　 function replaceImageView( strContent )
　　 Set re = new RegExp
　　 re.IgnoreCase = True
　　 re.Global = True
　　 re.Pattern = "(href=)(S*)((\w)+[.]{1}(jpg|jpeg|gif|bmp|png))"
　　 Set imageLink = re.Execute( strContent )
　　 i = 1
　　 for each imageLinkUrl in imageLink
　　 tempUrl = Replace( imageLinkUrl, "href=", "")
　　 tempUrl = Replace( tempUrl, """", "" )
　　 strContent = Replace( strContent, tempUrl, "imageView.asp?url="+tempUrl )
　　 next
　　 replaceImageView = strContent
　　 end function
　　 a = a.replace(/(^[\s]*)|([\s]*$)/g, "");