sys/contrib/libsodium/msvc-scripts/rep.vbs

   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