Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Imports System.Text.RegularExpressions
- Dim mcMatches As MatchCollection
- Dim mMatch As Match
- Dim strInput As String = "<html> <head> </head><body><a href=""blah"" /><p>This is a paragraph</p></body></html>"
- mcMatches = Regex.Matches(strInput, "<(/?[A-Za-z][^>]*?)>")
- For Each mMatch In mcMatches
- MsgBox(mMatch.Groups(1).Value)
- Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement