WebBuild

一些正则表达式

作者:parno 日期:2006-07-22

字体大小: 小中大

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

求一个正则表达式的模式字符串,匹配下列字符串
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, "");

[本日志由 parno 于 2006-07-22 02:42 AM 编辑]