vbs 正则

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 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"))

function getimg(str)
 Set re = new RegExp
 re.Pattern = "\<img(.+?)src\=([^\s]+?)(\s|\>)"
 re.Global = True
 re.IgnoreCase = false
 re.MultiLine = false
 Set  rv = re.Execute(str)
 For Each Match in rv   ' 遍历匹配集合。
      g=g+Match.SubMatches(1)+"|"
   Next
   getimg=g
end function
str="<img src=""dsafdsafasfd"" ...><img src=""dsafdsafasfd"" ...><img src=""dsafdsafasfd"" ...><img src=""dsafdsafasfd"" ...>"
msgbox getimg(str)