[Iska]

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

Код:

Option Explicit

Dim strSourceFile
Dim strPatternFile
Dim strDestFile

Dim strContent
Dim strLine
Dim arrPattern

Dim objDictionary
Dim strKey


strSourceFile  = "C:\Мои проекты\0053\build.prop"
strPatternFile = "C:\Мои проекты\0053\path.txt"
strDestFile    = "C:\Мои проекты\0053\new_build.prop"



With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strSourceFile) Then
		If .FileExists(strPatternFile) Then
			With .OpenTextFile(strPatternFile)
				strContent = .ReadAll()
				.Close
			End With
			
			Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
			
			For Each strLine In Split(strContent, vbLf)
				strLine = Trim(strLine)
				
				If Len(strLine) > 0 Then
					arrPattern = Split(strLine, "=")
					objDictionary.Add Trim(arrPattern(0)), Trim(arrPattern(1))
				End If
			Next
			
			With .OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With WScript.CreateObject("VBScript.RegExp")
				.IgnoreCase = True
				.Global     = True
				
				For Each strKey In objDictionary.Keys
					.Pattern = "[\f\t\v]*(" & strKey & ")[\f\t\v]*=[\f\t\v]*?.*[\f\t\v]*"
					
					If .Test(strContent) Then
						strContent = .Replace(strContent, "$1=" & objDictionary.Item(strKey))
					End If
				Next
			End With
			
			With .CreateTextFile(strDestFile, True)
				.Write strContent
				.Close
			End With
			
			objDictionary.RemoveAll
			Set objDictionary = Nothing
		Else
			WScript.Echo "Can't find pattern file [" & strPatternFile & "]."
			WScript.Quit 2
		End If
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0

Вообще-то, патч по-англицки именуется «patch».

[vngreez@vk]

Iska, А можно сделать, чтобы абсолютные пути не использовались? (чтобы скрипт работал из любой папки)
Например как в батнике:
strSourceFile = "%dp0\0053\build.prop"
strPatternFile = "%dp0\0053\path.txt"
strDestFile = "%dp0\0053\new_build.prop"
Возможно сделать что-то подобное?

[Iska]

Можно. Только то, что Вы приводите в пример — это вовсе не «из любой папки», а строго «из того же каталога, в котором расположен пакетный файл». Будем считать, что на самом деле Вас интересует именно второе (хоть это и не есть правильно).

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

Код:

Option Explicit

Dim strSourceFile
Dim strPatternFile
Dim strDestFile

Dim strPath2Script

Dim strContent
Dim strLine
Dim arrPattern

Dim objDictionary
Dim strKey


strSourceFile  = "build.prop"
strPatternFile = "path.txt"
strDestFile    = "new_build.prop"

With WScript.CreateObject("Scripting.FileSystemObject")
	strPath2Script = .GetParentFolderName(WScript.ScriptFullName)
	
	strSourceFile  = .BuildPath(strPath2Script, strSourceFile)
	strPatternFile = .BuildPath(strPath2Script, strPatternFile)
	strDestFile    = .BuildPath(strPath2Script, strDestFile)
	
	If .FileExists(strSourceFile) Then
		If .FileExists(strPatternFile) Then
			With .OpenTextFile(strPatternFile)
				strContent = .ReadAll()
				.Close
			End With
			
			Set objDictionary = WScript.CreateObject("Scripting.Dictionary")
			
			For Each strLine In Split(strContent, vbLf)
				strLine = Trim(strLine)
				
				If Len(strLine) > 0 Then
					arrPattern = Split(strLine, "=")
					objDictionary.Add Trim(arrPattern(0)), Trim(arrPattern(1))
				End If
			Next
			
			With .OpenTextFile(strSourceFile)
				strContent = .ReadAll()
				.Close
			End With
			
			With WScript.CreateObject("VBScript.RegExp")
				.IgnoreCase = True
				.Global     = True
				
				For Each strKey In objDictionary.Keys
					.Pattern = "[\f\t\v]*(" & strKey & ")[\f\t\v]*=[\f\t\v]*?.*[\f\t\v]*"
					
					If .Test(strContent) Then
						strContent = .Replace(strContent, "$1=" & objDictionary.Item(strKey))
					End If
				Next
			End With
			
			With .CreateTextFile(strDestFile, True)
				.Write strContent
				.Close
			End With
			
			objDictionary.RemoveAll
			Set objDictionary = Nothing
		Else
			WScript.Echo "Can't find pattern file [" & strPatternFile & "]."
			WScript.Quit 2
		End If
	Else
		WScript.Echo "Can't find source file [" & strSourceFile & "]."
		WScript.Quit 1
	End If
End With

WScript.Quit 0