replace.vbs 458 B

123456789101112131415
  1. strInputFileName = Wscript.Arguments(0)
  2. strOutputFileName = Wscript.Arguments(1)
  3. strOldText = Wscript.Arguments(2)
  4. strNewText = Wscript.Arguments(3)
  5. Set objFSO = CreateObject("Scripting.FileSystemObject")
  6. Set objFile = objFSO.OpenTextFile(strInputFileName, 1)
  7. strText = objFile.ReadAll
  8. objFile.Close
  9. strNewText = Replace(strText, strOldText, strNewText)
  10. Set objFile = objFSO.OpenTextFile(strOutputFileName, 2, True)
  11. objFile.Write strNewText
  12. objFile.Close