| 
     1 Dim pat, patparts, rxp, inp
    2 pat = WScript.Arguments(0)
    3 patparts = Split(pat, "/")
    4 Set rxp = new RegExp
    5 rxp.Global = True
    6 rxp.Multiline = False
    7 rxp.Pattern = patparts(1)
    8 Do While Not WScript.StdIn.AtEndOfStream
    9   inp = WScript.StdIn.ReadLine()
   10   WScript.Echo rxp.Replace(inp, patparts(2))
   11 Loop
   12 
Cache object: 57ab94bb38dcb9972af5de4d22d8d7e7 
 
 |