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
|