asp match正则函数使用Matchs实例

2016-02-19 11:02 50 1 收藏

下面图老师小编要跟大家分享asp match正则函数使用Matchs实例,简单的过程中其实暗藏玄机,还是要细心学习,喜欢还请记得收藏哦!

【 tulaoshi.com - Web开发 】



  说明   
  Match   对象只能通过   RegExp   对象的   Execute   方法来创建,该方法实际上返回了   Match   对象的集合。所有的   Match   对象属性都是只读的。   
  在执行正则表达式时,可能产生零个或多个   Match   对象。每个   Match   对象提供了被正则表达式搜索找到的字符串的访问、字符串的长度,以及找到匹配的索引位置等。   

  下面的代码说明了   Match   对象的用法:     

  Function   RegExpTest(patrn,   strng)   
      Dim   regEx,   Match,   Matches '   建立变量。   
      Set   regEx   =   New   RegExp '   建立正则表达式。   
      regEx.Pattern   =   patrn '   设置模式。   
      regEx.IgnoreCase   =   True '   设置是否区分大小写。   
      regEx.Global   =   True '   设置全局替换。   
      Set   Matches   =   regEx.Execute(strng) '   执行搜索。   
      For   Each   Match   in   Matches '   遍历   Matches   集合。   
          RetStr   =   RetStr   &   "Match   "   &   I   &   "   found   at   position   "   
          RetStr   =   RetStr   &   Match.FirstIndex   &   ".   Match   Value   is   "'   
          RetStr   =   RetStr   &   Match.Value   &   "'."   &   vbCRLF   
      Next   
      RegExpTest   =   RetStr   
  End   Function   

  MsgBox(RegExpTest("is.",   "IS1   is2   IS3   is4"))  

来源:http://www.tulaoshi.com/n/20160219/1596411.html

延伸阅读
标签: ASP
  DateSerial 函数 描述:对于指定的年、月、日,返回 Date 子类型的 Variant。 语法:DateSerial(year, month, day) year: 从 100 到 9999 之间的数字或数值表达式。 month: 任意数值表达式。 day: 任意数值表达式。 说明:要指定日期,如 1991 年 12 月 31 日,DateSerial 函数中每个参数的取值范围都应该是可接受的;即日的取值应在 1 ...
标签: ASP
  Date 函数 描述:返回当前系统日期。 语法:Date DateAdd 函数 描述:返回已添加指定时间间隔的日期。 语法:DateAdd(interval, number, date) interval: 必选。字符串表达式,表示要添加的时间间隔。有关数值,请参阅“设置”部分。 number: 必选。数值表达式,表示要添加的时间间隔的个数。数值表达式可以是正数(得到未来的日期)或负...
标签: Web开发
代码如下: Function AutoLinkURLs(strString) Dim match, matches, offset, url, email, link, relnkAutoLinkURL relnkAutoLinkURL = "a href=""[[%URL%]]""[[%URLText%]]/a" If Not IsObject(regExp) Then Set regExp = New RegExp regExp.Global = True regExp.IgnoreCase = True 'Look for URLs regExp.Pattern = "...
标签: ASP
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval = "第" & curpage & "页/总" & rs.pagecount & "页 "  retval = retval & "本页" & ...
标签: Web开发
OA登录 贝因美冠军宝贝大赛专用信息平台入口 用户名或密码错误,请重新输入。 2006贝因美冠军宝贝大赛省级晋级赛进行时 帮助文档 意见反馈 222.212.7.171 [Ctrl+A 全选]

经验教程

263

收藏

86
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部