I have the "
replace.vbs" file saved to C:\Windows.
I use it to find and replace strings in text files.
Command line Syntax:
replace.vbs OLDSTRING NEWSTRING C:\file.txt
How can I
modify the replace.vbs script to
delete the string
rather than replace it with another string?
I have very little scripting knowledge so I would really
appreciate help with this.
replace.vbs
Dim FileName, Find, ReplaceWith, FileContents, dFileContents
Find = WScript.Arguments(0)
ReplaceWith = WScript.Arguments(1)
FileName = WScript.Arguments(2)
FileContents = GetFile(FileName)
dFileContents = replace(FileContents, Find, ReplaceWith, 1, -1, 1)
if dFileContents <> FileContents Then
WriteFile FileName, dFileContents
End If
function GetFile(FileName)
If FileName<>"" Then
Dim FS, FileStream
Set FS = CreateObject("Scripting.FileSystemObject")
on error resume Next
Set FileStream = FS.OpenTextFile(FileName)
GetFile = FileStream.ReadAll
End If
End Function
function WriteFile(FileName, Contents)
Dim OutStream, FS
on error resume Next
Set FS = CreateObject("Scripting.FileSystemObject")
Set OutStream = FS.OpenTextFile(FileName, 2, True)
OutStream.Write Contents
End Function
<message edited by stevemarks59 on Sunday, January 22, 2012 1:25 AM>