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 集合。
      vStr=mid(Match.value,7,Len(Match.value)-11)
      RetStr = RetStr & vStr & vbcrlf
   Next
   RegExpTest = RetStr
   set regEx=nothing
End Function
set FSO=Wscript.CreateObject("Scripting.FileSystemObject") 
set F=FSO.opentextfile("1.txt",1)
txt=f.readall
MsgBox(RegExpTest("ftp://.*\.html", txt))
set FSO=nothing
复制代码