Dim fso, tsIn, tsOut
Set fso = CreateObject("Scripting.FileSystemObject")
Set tsIn = fso.OpenTextFile("c:\Input.txt")
Set tsOut = fso.CreateTextFile("c:\Output.txt", True)
tsOut.Write Replace(tsIn.ReadAll, "#", "", 1, -1, 1)
tsIn.Close
tsOut.Close
Set tsIn = Nothing
Set tsOut = Nothing
Set fso = Nothing
|