vbs正则表达式

vbic

正则表达式主要用RegExp对象和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

xiaonan

恩,谢谢分享,欢迎原创的东西

michaelyung

这是help里的吧