' Collection of code snippets by Arne Vajhøj
' posted to eksperten.dk, usenet and other places (2002-now)
s = "
Tekst
"
pat = "[^<]*
"
Set re = New RegExp
re.Pattern = pat
re.Global = True
Set mm = re.Execute(s)
Set m = mm.Item(0)
attr_id = m.SubMatches(0)
attr_class = m.SubMatches(1)
attr_rel = m.SubMatches(2)
Set m = Nothing
Set mm = Nothing
Set re = Nothing
WScript.Echo s
WScript.Echo pat
WScript.Echo attr_id & " " & attr_class & " " & attr_rel