Замена нужно текста в объемном файле используя vbs или bat как?

Question

[Сергей Крылов]

Здравствуйте, пытаюсь организовать поиски замену кусочка текста в большом файле.

Нашел в интернете код

Const ForReading = 1 
Const ForWriting = 2 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFSO.OpenTextFile("C:\Program Files (x86)\Steam\steamapps\common\dota 2 beta\game\dota\bin\win64\client.dll", ForReading) 

strText = objFile.ReadAll 
objFile.Close 
strNewText = Replace(strText, "1134", "1401") 

Set objFile = objFSO.OpenTextFile("C:\Program Files (x86)\Steam\steamapps\common\dota 2 beta\game\dota\bin\win64\client.dll", ForWriting) 
objFile.WriteLine strNewText 
objFile.Close

Пытаюсь сделать что бы автоматически находило нужный текст и заменял на нужный мне, к примеру в файле есть 1134 а мне нужно заменить все эти значения на 1401. Опять же не так все просто, нужно 1 раз менять.
Или даже поменять все значения "1134" на "1401" которое находится между dota_camera_pitch_max и dota_camera_distance.
Кому не страшно вот сам файл над которым мучаюсь. https://yadi.sk/d/q-nkzoD_3a692L

Comments

[Saboteur]

поставьте себе sed, например?
Зачем именно скрипт для этого?

[Saboteur]

хм. strFile = "C:\backup\bar\client.dll"
это же не текстовый файл. Вам нужен не текстовый подход.

[Сергей Крылов]

Saboteur, а какой выход? что можно придумать?

[Сергей Крылов]

Saboteur, Вообще я думаю с начало попробовать текстовый вариант.

[Сергей Крылов]

Saboteur, Не вариант, так как этот ВБ скрипт я могу вставить перед запуском игры и она будет сразу на лету делать необходимые мне действия. просто для удобства. Множество людей будут благодарны.

[Saboteur]

Так любую программу можно вставить перед запуском игры.
Не очень понятно что вы хотите делать - редактировать текстовый файл, или править бинарник.
Яндекс диск не везде доступен.

[Сергей Крылов]

Saboteur, бинарник. Подскажите куда залить, залью.

[res2001]

Если это dll, то файл не то что бы большой. Большой - это когда несколько гигабайт и в память не влазит - вот это проблема.
cmd скрипт - для этого точно не подойдет, т.к. работают с файлами как с текстом - это подразумевает определенные преобразования при чтении и записи, поэтому на выходе можете получить (и скорее всего получите) файл, который нельзя будет исполнить.
Скорее всего с sed, grep и т.п. утилитами такая же история.
В vbs и js в объекте FileSystemObject так же нет методов работы с двоичными файлами.
Вам нужно использовать объект ADODB.Stream - он умеет читать/писать двоичные файлы. Тут обсуждение и пример использования.
https://docs.microsoft.com/ru-ru/sql/ado/reference...

Так же нужно помнить, что когда вы читаете файл в двоичном режиме, то на выходе вы получите не строку, а массив байт. Стандартные функции VBS/JS для работы со строками не подойдут. Но в VBS есть набор аналогичных функций с суффиксом "B" для работы с массивом байт. Например MidB, InStrB, AscB, ChrB, LenB.
Функции replace для типа Byte нет, поэтому ее придется реализовать самому.
Вот несколько ссылок по теме:
https://docs.microsoft.com/ru-ru/dotnet/visual-bas...
forum.script-coding.com/viewtopic.php?id=6698

[Сергей Крылов]

Оценили что задача простая и уже неделю не кто решить не может должным образом. кто тот умник который поставил просто?

Answer 1

[Максим Ярошевич]

Как вариант - воспользоваться sed - есть и для Windows, пост на хабре, список команд.