1139804SimpDim pat, patparts, rxp, inp 2133588Simppat = WScript.Arguments(0) 336973Sdfrpatparts = Split(pat, "/") 436973SdfrSet rxp = new RegExp 536973Sdfrrxp.Global = True 636973Sdfrrxp.Multiline = False 736973Sdfrrxp.Pattern = patparts(1) 836973SdfrDo While Not WScript.StdIn.AtEndOfStream 936973Sdfr inp = WScript.StdIn.ReadLine() 1036973Sdfr WScript.Echo rxp.Replace(inp, patparts(2)) 1136973SdfrLoop 1236973Sdfr 1336973Sdfr