15 lines
458 B
Text
15 lines
458 B
Text
strInputFileName = Wscript.Arguments(0)
|
|
strOutputFileName = Wscript.Arguments(1)
|
|
strOldText = Wscript.Arguments(2)
|
|
strNewText = Wscript.Arguments(3)
|
|
|
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
|
Set objFile = objFSO.OpenTextFile(strInputFileName, 1)
|
|
|
|
strText = objFile.ReadAll
|
|
objFile.Close
|
|
strNewText = Replace(strText, strOldText, strNewText)
|
|
|
|
Set objFile = objFSO.OpenTextFile(strOutputFileName, 2, True)
|
|
objFile.Write strNewText
|
|
objFile.Close
|