vbs进行正则表达式匹配的方法和需注意的问题

发布时间：2020-12-14 02:23:29 所属栏目：百科来源：网络整理

导读：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 'RetStr = RetStr "Match " I " fo

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 
    'RetStr = RetStr & "Match " & I & " found at position "
    'RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
    'RetStr = RetStr & Match.Value & "'." & vbCRLF
    'RetStr=replace(strng,Match.Value,"")
    RetStr=RetStr & Match.FirstIndex & ". Match Value is "+Match.Value+"<br>"
  Next
  RegExpTest = RetStr
End Function


'RegExpTest("is.","IS1 is2 IS3 is4")
'RegExpTest("/d*/./d+"," ??? 0.0007")

'使用下面的匹配<IMG ....>中所有(含换行)，但剔除符号> <IMG([^>]*|(.|n)*)> '若单独使用 <IMG(.|n)*>将忽略>符号，匹配到了字符结束 <IMG[sS]*?>将匹配不到

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!