Home | History | Annotate | Line # | Download | only in msvc-scripts 
      1  1.1  riastrad Dim pat, patparts, rxp, inp
      2  1.1  riastrad pat = WScript.Arguments(0)
      3  1.1  riastrad patparts = Split(pat, "/")
      4  1.1  riastrad Set rxp = new RegExp
      5  1.1  riastrad rxp.Global = True
      6  1.1  riastrad rxp.Multiline = False
      7  1.1  riastrad rxp.Pattern = patparts(1)
      8  1.1  riastrad Do While Not WScript.StdIn.AtEndOfStream
      9  1.1  riastrad   inp = WScript.StdIn.ReadLine()
     10  1.1  riastrad   WScript.Echo rxp.Replace(inp, patparts(2))
     11  1.1  riastrad Loop
     12  1.1  riastrad 
     13