' 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