[Iska]

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

Как надо:

• берёте конкретную версию библиотеки;
• берёте правильный hex-редактор;
• открываете в нём библиотеку;
• ищете потребное значение и находите;
• делаете потребную замену;
• на основе сделанной замены создаёте патч для исходной библиотеки.

[megaloman]

Hraniti, Если тупо решать задачу как поставлено (Iska наверняка прав!) то вместо Вашего реплэйса

Код:

lstrText = LCase(strText)
marg1 = InStr(1, lstrText, "dota_camera_pitch_max")
marg2 = InStr(1, lstrText, "dota_camera_distance")
repstr = Mid(strText, marg1, marg2 - marg1)

strNewText = Replace(strText, repstr, Replace(repstr, "1134", "1401"))

Если 1134 между указанными строками встречается многократно, то заменятся все.

[Hraniti]

Iska, Я понимаю что не надо, но давайте попробуем реализовать как я прошу попробовать. Ну если есть возможность можете более детальней объяснить как сделать эту надобность.

[Iska]

Hraniti, упаковываете Вашу библиотеку в архив, каковой прикладываете к сообщению. Если сюда не помещается — выкладываете на DropMeFiles.

[Hraniti]

megaloman,

Код:

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) 

lstrText = LCase(strText)
marg1 = InStr(1, lstrText, "dota_camera_pitch_max")
marg2 = InStr(1, lstrText, "dota_camera_distance")
repstr = Mid(strText, marg1, marg2 - marg1)

strNewText = Replace(strText, repstr, Replace(repstr, "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

Пишет ошибку

[Iska]

Код:

Option Explicit

Const strPath2Client = "C:\Мои проекты\0180\client.dll"

Dim strContent
Dim objRegExp


With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strPath2Client) Then
		
		With .OpenTextFile(strPath2Client)
			strContent = .ReadAll()
			.Close
		End With
		
		Set objRegExp = WScript.CreateObject("VBScript.RegExp")
		
		objRegExp.Pattern = "(dota_camera_pitch_max\x00{3})1134(\x00{4}dota_camera_distance)"
		
		If objRegExp.Test(strContent) Then
			With .CreateTextFile(strPath2Client, True)
				.Write objRegExp.Replace(strContent, "$11401$2")
				.Close
			End With
		Else
			WScript.Echo "Can't find pattern [" & Replace(objRegExp.Pattern, Chr(0), " ") & "] in source file [" & strPath2Client & "]."
			WScript.Quit 2
		End If
		
		Set objRegExp = Nothing
	Else
		WScript.Echo "Can't find source file [" & strPath2Client & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

[Hraniti]

Iska, Выдает ошибку и данные не меняются. скриншот прилагаю.

[Hraniti]

Вот собственно сам файл https://yadi.sk/d/q-nkzoD_3a692L

[Iska]

Вот собственно сам файл https://yadi.sk/d/q-nkzoD_3a692L »

Дружище, попробуйте, ради интереса, сами найти в нём dota_camera_pitch_max и dota_camera_distance. Или хотя бы одно из них.