set si = WScript.StdIn set so = WScript.StdOut set dc = CreateObject("Scripting.Dictionary")sub process_paragraph() set re = new RegExp re.Pattern = "tag (\w+)=(\w+)" found = false do while not si.AtEndOfStream l = si.ReadLine() if Len(l) …