tdesktop/Telegram/build/replace.vbs

24 lines
545 B
Plaintext
Raw Normal View History

2016-04-27 12:03:10 +00:00
Dim pat, patparts, rxp, inp, found
pat = WScript.Arguments(0)
pat = Replace(pat, """, chr(34))
pat = Replace(pat, "&hat;", "^")
pat = Replace(pat, "&", "&")
patparts = Split(pat,"/")
Set rxp = new RegExp
found = False
rxp.Global = True
rxp.Multiline = False
rxp.Pattern = patparts(0)
Do While Not WScript.StdIn.AtEndOfStream
inp = WScript.StdIn.ReadLine()
If not found Then
If rxp.Test(inp) Then
found = True
End If
End If
WScript.Echo rxp.Replace(inp, patparts(1))
Loop
If not found Then
WScript.Quit(2)
End If