[Iska]

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

читать дальше »

Код:

Option Explicit

' IOMode Enum
Const ForReading   = 1
Const ForWriting   = 2
Const ForAppending = 8


Dim strFileName
Dim strContent

Dim strFind
Dim strReplace


strFileName = WScript.Arguments.Item(0)

strFind    = "package_extract_dir(""boot"", ""/boot"");"
strReplace = "assert(package_extract_file(""boot.img"", ""/tmp/boot.img"")," & vbCrLf & _
	"write_raw_image(""/tmp/boot.img"", ""boot"")," & vbCrLf & _
	"delete(""/tmp/boot.img""));"

With WScript.CreateObject("Scripting.FileSystemObject")
	If .FileExists(strFileName) Then
		With .OpenTextFile(strFileName, ForReading)
			strContent = .ReadAll()
			
			.Close
		End With
		
		With .OpenTextFile(strFileName, ForWriting)
			.Write Replace(strContent, strFind, strReplace)
			
			.Close
		End With
	Else
		WScript.Echo "File [" & strFileName & "] not found"
	End If
End With

WScript.Quit 0

Файл для поиска включения указывается аргументом скрипта:

Код:

Script.vbs "c:\Sample folder\Sample file.cfg"