Home | History | Annotate | Line # | Download | only in msvc-scripts 
      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 
     13