Dunkel fso, tsIn, tsOut
Fastställd fso = CreateObject (”Scripting.FileSystemObject”)
Fastställd tsIn = fso.OpenTextFile (”c:\Input.txt”)
Fastställd tsOut = fso.CreateTextFile (”c:\Output.txt” som, är riktiga)
tsOut.Write byter ut (tsIn.ReadAll, ”nr.”, "", 1, -1, 1)
tsIn.Close
tsOut.Close
Fastställd tsIn = ingenting
Fastställd tsOut = ingenting
Fastställd fso = ingenting
|