RosettaCodeData/Task/Truncate-a-file/Ring/truncate-a-file.ring
2016-12-05 23:44:36 +01:00

5 lines
100 B
Text

file = "C:\Ring\ReadMe.txt"
fp = read(file)
fpstr = left(fp, 100)
see fpstr + nl
write(file, fpstr)