VBScript Find and Replace Text in Text Based File

Howes-IT-Going VBScript Find and Replace Text in Text Based File

The following example shows how to create your own simple VBScript to Find and Replace Text in a Text Based File. You will need to have Windows/DOS/CMD prompt experience And a text editor like: Notepad, TextPad or Wordpad. Use the find_replace_text.txt file contents to create the needed VBScript for this example. Always make Backup copies of text files before editing! Use this script At Your Own Risk!

Find_Replace_Text.txt

Save As find_replace_text.vbs If WScript.Arguments.Count <> 3 then WScript.Echo "usage: find_replace_text.vbs filename Find_Word Replace_Word " WScript.Quit end If FindAndReplace WScript.Arguments.Item(0), WScript.Arguments.Item(1), WScript.Arguments.Item(2) WScript.Echo "find_replace_text.vbs completed successfully" function FindAndReplace(strFilename, strFind, strReplace) Set inputFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFilename, 1) strInputFile = inputFile.ReadAll inputFile.Close Set inputFile = Nothing Set outputFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(strFilename,2,true) outputFile.Write Replace(strInputFile, strFind, strReplace) outputFile.Close Set outputFile = Nothing end function