1*0ac341f1SConrad MeyerDim pat, patparts, rxp, inp 2*0ac341f1SConrad Meyerpat = WScript.Arguments(0) 3*0ac341f1SConrad Meyerpatparts = Split(pat, "/") 4*0ac341f1SConrad MeyerSet rxp = new RegExp 5*0ac341f1SConrad Meyerrxp.Global = True 6*0ac341f1SConrad Meyerrxp.Multiline = False 7*0ac341f1SConrad Meyerrxp.Pattern = patparts(1) 8*0ac341f1SConrad MeyerDo While Not WScript.StdIn.AtEndOfStream 9*0ac341f1SConrad Meyer inp = WScript.StdIn.ReadLine() 10*0ac341f1SConrad Meyer WScript.Echo rxp.Replace(inp, patparts(2)) 11*0ac341f1SConrad MeyerLoop 12*0ac341f1SConrad Meyer 13