1
mirror of https://github.com/jedisct1/libsodium.git synced 2024-12-20 02:25:14 -07:00
libsodium/msvc-scripts/rep.vbs
2013-09-30 13:31:37 -07:00

13 lines
294 B
Plaintext

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