hvorfor ?
Jeg bruger det her til at gennemgå en html-fil.hvorfor finder den kun 1 match.
Altså den første den 'støder på' ??
Den skulle gerne skrive alle links ud fra en side.
Function RegExpTest(strng)
Dim regEx, Match, Matches ' Create variable.
Set regEx = New RegExp ' Create regular expression.
regEx.Pattern = "(\bhttp\:\/\/)?(\bw{3}\.\S+\.[a-z][a-z]+\b)(\/\S+\b)?(\?\S+\b)?"
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(strng) ' Execute search.
For Each Match in Matches ' Iterate Matches collection.
RetStr = RetStr & "Match " & I & " found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is "'
RetStr = Match.Value & vbCRLF
Next
RegExpTest = RetStr
End Function
