regexp.vbs

来自「VBS解析_delphi.rar function ParseFileDir(」· VBS 代码 · 共 16 行

function GetUrlFile(Url)
    Set RegObject = New RegExp 
    With RegObject
    .Pattern = "\w+\.\w+(?!.)"
    .IgnoreCase = True
    .Global = True
    End With
    Set matchs =  RegObject.Execute(Url)
    If matchs.Count > 0 Then
        For Each mach in matchs
            GetUrlFile=mach.value
        Next
    End If
    Set RegObject = nothing
end function