Schemerige fso, tsIn, tsOut
Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)
Reeks tsIn = fso.OpenTextFile („c:\Input.txt“)
Reeks tsOut = fso.CreateTextFile („c:\Output.txt“, Waar)
tsOut.Write vervang (tsIn.ReadAll, „#“, "", 1, -1, 1)
tsIn.Close
tsOut.Close
Plaats tsIn = niets
Plaats tsOut = niets
Plaats fso = niets
|