[null999]

http://rgho.st/92GCYyr68

[Iska]

null999, ну и с чего Вы решили, что Config.txt — юникод? Или, может, это я Вас так «запугал»?! Берите код из сообщения #6.

P.S. Выбранный Вами способ — неудачен.

[null999]

подскажите еще, где добавить путь к файлу

[Iska]

подскажите еще, где добавить путь к файлу »

Здесь:

Путь к исходному файлу задаётся параметром скрипта (также можно просто перетащить исходный файл на скрипт в Проводнике). »

[null999]

Dim strSourceFile
strSourceFile = "E:\1.txt"
так?

[Iska]

null999, можете и так. Только закомментируйте/уберите тогда проверку на наличие параметра скрипта и его последующее присвоение переменной strSourceFile.

[null999]

как это сделать?

[Iska]

Например, так (не проверялось):

Скрытый текст

Код:

Option Explicit

Dim strSourceFile

Dim strContent

Dim objRegExp


strSourceFile = "E:\1.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		With .OpenTextFile(strSourceFile)
			strContent = .ReadAll()
			.Close
		End With
		
		Set objRegExp = WScript.CreateObject("VBScript.RegExp")
		
		With objRegExp
			.IgnoreCase = True
			.Global     = True
			.Pattern    = "мама"
		End With
		
		If objRegExp.Test(strContent) Then
			.CopyFile strSourceFile, .GetBaseName(strSourceFile) & ".bak" ,True
			
			Randomize Timer
			
			With .CreateTextFile(strSourceFile, True)
				.Write objRegExp.Replace(strContent, Array("Мама", "мыла", "раму")(Int(Rnd * 3)))
				.Close
			End With
		Else
			WScript.Echo "Pattern [" & objRegExp.Pattern & "] not found in content of source file [" & strSourceFile & "]."
			WScript.Quit 3
		End If
		
		Set objRegExp = Nothing
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 2
	End If
End With

WScript.Quit 0

[null999]

все работает, спасибо