Faible fso, tsIn, tsOut
Placer le fso = le CreateObject (« Scripting.FileSystemObject »)
Placer le tsIn = le fso.OpenTextFile (« c:\Input.txt ")
Placer le tsOut = le fso.CreateTextFile (« c:\Output.txt », vrais)
tsOut.Write remplacent (tsIn.ReadAll, « # », "", 1, -1, 1)
tsIn.Close
tsOut.Close
Placer le tsIn = rien
Placer le tsOut = rien
Placer le fso = rien
|