REM **************************************************************
REM * VBScript To Use Regular Expressions For Search And Replace *
REM * by Robert S. Robbins                                       *
REM * http://www.williamsportwebdeveloper.com/                   *
REM **************************************************************
REM create file system objects
Set fs = WScript.CreateObject("Scripting.FileSystemObject")
strWorkingDirectory = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName,"\")-1)
Set output = fs.CreateTextFile (strWorkingDirectory & "\output.txt", True, False)
Set txtfile = fs.OpenTextFile(strWorkingDirectory & "\input.txt")
REM
REM create regular expression object
Set rx = new RegExp
rx.Pattern = "[0-9][0-9][0-9]-[0-9][0-9][0-9][0-9]"
rx.Global = True
rx.IgnoreCase = True

REM read through file
Do Until txtfile.AtEndOfStream
  strText = txtfile.Readline
  Set myCollection = rx.Execute(strText)
  For Each element In myCollection
    strText = Replace(strText,element,"")
  Next
  Set myCollection = Nothing
  output.WriteLine strText
Loop     
Set txtfile = Nothing
MsgBox "Done Processing!"

posted by Robert Robbins @ 8:53 PM