From 60711471fc6ca136e75b00b119417001335d77de Mon Sep 17 00:00:00 2001 From: John Preston Date: Mon, 10 Dec 2018 21:41:44 +0400 Subject: [PATCH] Return VB script for UWP version preparing. --- Telegram/build/replace.vbs | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 Telegram/build/replace.vbs diff --git a/Telegram/build/replace.vbs b/Telegram/build/replace.vbs new file mode 100644 index 0000000000..5b23ab8ee4 --- /dev/null +++ b/Telegram/build/replace.vbs @@ -0,0 +1,35 @@ +Dim action, pat, patparts, rxp, inp, matchCount +action = WScript.Arguments(0) +pat = WScript.Arguments(1) +pat = Replace(pat, """, chr(34)) +pat = Replace(pat, "&hat;", "^") +pat = Replace(pat, "&", "&") + +Set rxp = new RegExp +rxp.Global = True +rxp.Multiline = False +If action = "Replace" Then + patparts = Split(pat, "/") + rxp.Pattern = patparts(0) +Else + rxp.Pattern = pat +End If + +matchCount = 0 +Do While Not WScript.StdIn.AtEndOfStream + inp = WScript.StdIn.ReadLine() + If rxp.Test(inp) Then + matchCount = matchCount + 1 + End If + If action = "Replace" Then + WScript.Echo rxp.Replace(inp, patparts(1)) + End If +Loop + +If action = "Replace" Then + If matchCount = 0 Then + WScript.Quit(2) + End If +Else + WScript.Echo matchCount +End If