[Iska]

Destany, например, так:

читать дальше »

Код:

Option Explicit

Const ForReading   = 1
Const ForWriting   = 2


Dim strPath
Dim strReplaceWith

Dim objRegExp

Dim strContent


If WScript.Arguments.Count = 3 Then
	strPath        = WScript.Arguments.Item(0)
	strReplaceWith = WScript.Arguments.Item(2)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FileExists(strPath) Then
			Set objRegExp = WScript.CreateObject("VBScript.RegExp")
			
			objRegExp.Pattern = WScript.Arguments.Item(1)
			objRegExp.Global  = True
			
			With .OpenTextFile(strPath, ForReading)
				strContent = .ReadAll()
				.Close
			End With
			
			Do While objRegExp.Test(strContent)
				strContent = objRegExp.Replace(strContent, strReplaceWith)
			Loop
			
			With .OpenTextFile(strPath, ForWriting)
				.Write strContent
				.Close
			End With
		Else
			WScript.Echo "Can't find file [" & strPath & "]."
		End If
	End With
Else
	WScript.Echo "Usage: cscript.exe //nologo """ & WScript.ScriptName & """ <file> <Pattern> <Replace with>"
End If

WScript.Quit 0

Пример текстового файла E:\Песочница\0269\0001.txt:

Код:

Мама мыла раму.

Рабы не мы,
Мы не рабы.

Пример вызова скрипта:

Код:

cscript.exe //nologo "0001.vbs" "E:\Песочница\0269\0001.txt" "(.*[^Мм])а(.*)" "$1ы$2"

Результат:

Код:

Мама мылы рыму.

Рыбы не мы,
Мы не рыбы.