Тусклое fso, tsIn, tsOut
Установите fso = CreateObject («Scripting.FileSystemObject»)
Установите tsIn = fso.OpenTextFile («c:\Input.txt ")
Установите tsOut = fso.CreateTextFile («c:\Output.txt», поистине)
tsOut.Write заменяют ть (tsIn.ReadAll, «#», "", 1, -1, 1)
tsIn.Close
tsOut.Close
Установите tsIn = ничего
Установите tsOut = ничего
Установите fso = ничего
|