VBScript to remove (delete) string from a text file.

Home Forums Scripting Windows Script Host VBScript to remove (delete) string from a text file.

Viewing 1 post (of 1 total)
  • Author
    Posts
  • #157537

    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

    Code:
    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

Viewing 1 post (of 1 total)

You must be logged in to reply to this topic.