正则表达式

原创 2004年10月03日 15:30:00

正则表达式
 <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, "");

正则表达式之?、(?:pattern)、(?!pattern)、(?=pattern)理解及应用

今天朋友问我一个问题,是这样子的,通过正则表达式匹配html标签input包含hidden的字符串,具体如下: "" 匹配下来,应该输出: "" 读了这个问题之后,觉得挺简单的,直...
  • sunhuaer123
  • sunhuaer123
  • 2013年11月15日 19:09
  • 59721

正则表达式 "^+$"等符号意义

1、字符/: 意义:对于字符,通常表示按字面意义,指出接着的字符为特殊字符,不作解释. 例如:/b/匹配字符’b’,通过在b 前面加一个反斜杠,也就是/b/,则该字符变成特殊字符,表示匹配一个单词的分...
  • github_36362235
  • github_36362235
  • 2016年11月23日 11:31
  • 1807

正则表达式——入门

写程序7年,从我身边接触到的人来看,相当多的程序员把正则表达式看得很高深,甚至觉得是一道不可跨越的鸿沟。有此想法的原因很简单:只是因为你没有花上几个小时的时间去学习一下正则的基础。对,只需要几个小时,...
  • sq_zhuyi
  • sq_zhuyi
  • 2013年10月18日 10:29
  • 18567

最全正则表达式汇总—想要的都有了

正则式太难学,而且容易忘记 ,西西是看过很多次,都是一会就全部不记得了滴。很多不太懂正则的朋友,在遇到需要用正则校验数据时,往往是在网上去找很久,结果找来的还是不很符合要求。所以我最近把开发中常用的一...
  • SH_King
  • SH_King
  • 2015年07月24日 14:01
  • 1390

正则表达式简介及在C++11中的简单使用

正则表达式简介及在C++11中的简单使用
  • fengbingchun
  • fengbingchun
  • 2017年02月02日 13:41
  • 7664

正则表达式常见例题

常见例题 例1:北美地区的电话号     编码方案:电话号码有一个3位数的区号和一位7位数的号码组成(这个7位数有分成  一个3位的局号和一个4位的路号,局号和路号之间使用连字符分隔) 每位电话号...
  • wenwen1538
  • wenwen1538
  • 2014年11月09日 15:23
  • 2372

正则表达式中的"^"这个符号的一些思考

在学习正则表达式的时候,一些常见的规则我们都不难理解,但是有 一个正则表达式中的特殊字符让我一直有点搞不懂,就是”^”这个字符,文档上给出了解释是匹配输入的开始,如果多行标示被设置成了true,同时会...
  • sufubo
  • sufubo
  • 2016年03月27日 11:03
  • 18905

正则表达式全解析+常用示例

在开始写这篇文章之前,我的心里还是纠结的。我在问自己要不要写这篇东西,关于相似的内容网上多如牛毛,而且还不乏珍品,况且,就算我写了也不一定能写的好。但是现在你既然看到了,那说明我还是写了出来。就算是对...
  • xuemoyao
  • xuemoyao
  • 2012年09月29日 18:40
  • 25671

正则表达式的四种功能

正则表达式主要是针对字符串进行操作,可以简化对字符串的复杂操作,其主要功能有匹配、切割、替换、获取。 一、匹配 检查字符串是否符合正则表达式中的规则,有一次不匹配,则返回false。如: Str...
  • tanpeng199134
  • tanpeng199134
  • 2016年09月18日 08:19
  • 1871

正则表达式中的逻辑运算符或(怎么用逻辑运算符或连接两个正则表达式)

今天使用正则表达式是遇到一个问题, 磨了半天, 发现犯了个低级错误, 因此记录下来加深印象 问题描述:  我需要把 ^drawable(-[a-zA-Z0-9]+)*$  和  ^mipmap(-[a...
  • voo00oov
  • voo00oov
  • 2015年07月20日 11:07
  • 9754
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:正则表达式
举报原因:
原因补充:

(最多只允许输入30个字)