| 123456789101112 |
- Dim pat, patparts, rxp, inp
- pat = WScript.Arguments(0)
- patparts = Split(pat, "/")
- Set rxp = new RegExp
- rxp.Global = True
- rxp.Multiline = False
- rxp.Pattern = patparts(1)
- Do While Not WScript.StdIn.AtEndOfStream
- inp = WScript.StdIn.ReadLine()
- WScript.Echo rxp.Replace(inp, patparts(2))
- Loop
|
