vbscript中用正则时获得匹配串的心得

作者：slick 日期:2005年11月20日

　　vbscript中用正则比在javascript中麻烦一些。javascript中不用创建RegExp对象就可以用正则，但是在vb中就不可以。还有javascript中可以利用RegExp.$1获得模式匹配，但是vb中就不行。需要用到另外一个对象和一个个集合：MatchCollection，Match

　　举一个例子如下：

　　假设有一个有这样一个串　

　　strNor=";northsnow:塞北的雪;csdn:中国最大的开发者网络;crc:长春轨道客车股份有限公司;"

　　串中包含了很多子串，子串是用;(分号)分割开的，每个子串也分两个部分，前一部分为标识或英文名，后一个部分为中文名或说明。根据给定的标识查找后面的说明怎么做呢？这就是我们这个例子将要解决的问题：

　　代码如下：

dim oStr
oStr=";northsnow:塞北的雪;csdn:中国最大的开发者网络;crc:长春轨道客车股份有限公司;"
function getName(ooID)
     dim objRegExp ,reMatchCol,reMatch,reSubMatch
     dim rValue
     Set objRegExp=new RegExp
     objRegExp.Pattern=";(" & ooID & "):([^;]*)"
     objRegExp.IgnoreCase=true
     objRegExp.Global=true
     set reMatchCol= objRegExp.execute(oStr) '执行查询，并返回匹配到一个匹配集合中
     if reMatchCol.count>0 then
         Set reMatch = reMatchCol(0)                '将第一匹配串放到一个匹配对象中
          Set reSubMatch = reMatch.SubMatches        '返回子匹配集合
          if reSubMatch(0)=ooID then
              rValue=reSubMatch(1)
          else
              rValue=""
          end if
     else
         rValue=""
     end if
     getName=rValue
end function
response.Write getName("northsnow")