1*f447f37aSriastradhDim pat, patparts, rxp, inp 2*f447f37aSriastradhpat = WScript.Arguments(0) 3*f447f37aSriastradhpatparts = Split(pat, "/") 4*f447f37aSriastradhSet rxp = new RegExp 5*f447f37aSriastradhrxp.Global = True 6*f447f37aSriastradhrxp.Multiline = False 7*f447f37aSriastradhrxp.Pattern = patparts(1) 8*f447f37aSriastradhDo While Not WScript.StdIn.AtEndOfStream 9*f447f37aSriastradh inp = WScript.StdIn.ReadLine() 10*f447f37aSriastradh WScript.Echo rxp.Replace(inp, patparts(2)) 11*f447f37aSriastradhLoop 12*f447f37aSriastradh 13