Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для UncleD

Пользователь


Сообщения: 100
Благодарности: 7

Профиль | Отправить PM | Цитировать


megaloman, спасибо, все сработало.
В итоге воспользовался вторым вариантом, то есть этим:
Код: Выделить весь код
@Echo Off
cls
>nul Chcp 1251
	Set "FileIn=Z:\Где файл\11.txt"
	Set "Fin=ПоказательТипа=0"
	Set "Rep=ПоказательТипа="

	mshta vbscript:execute("Set FSO = CreateObject(""Scripting.FileSystemObject"") : Set FF = FSO.OpenTextFile(""%FileIn%"", 1) : InTxt = FF.ReadAll : FF.Close : Set FF = FSO.OpenTextFile(""%FileIn%"", 2, True) : FF.Write Replace(InTxt, ""%Fin%"", ""%Rep%"") : FF.Close :close")
Pause
Exit /B
Единственно убрал Pause, чтобы скрипт не ждал эникея и еще /B, ведь если я правильно понял, то он нужен в случае, когда мой скрипт вызывал бы еще один или я что-то путаю?
Еще нашел в сети vbs, через который вызываю свой батник, а он прячет окно командной строки, ну просто чтобы не пугать пользователя регулярно выскакивающими непонятками, хотя решение и не очень элегантное.
Код: Выделить весь код
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run chr(34) & "replace.bat" & Chr(34), 0
Set WshShell = Nothing
После отработки скрипта на всякий случай сравнил в Ворде исходный и итоговый файл, он других отличий кроме отсутствующего нуля он не нашел.
Еще раз благодарю.

Отправлено: 15:26, 18-07-2019 | #16