RosettaCodeData/Task/Remove-lines-from-a-file/Ring/remove-lines-from-a-file.ring
2016-12-05 23:44:36 +01:00

13 lines
273 B
Text

cStr = read("C:\Ring\bin\filename.txt")
aList = str2list(cStr)
see aList + nl
lineStart = 3
lineCount = 5
num = -1
for n = lineStart to lineStart+lineCount-1
num += 1
del(aList,n-num)
next
cStr = list2str(aList)
see cStr + nl
write("C:\Ring\bin\filename.txt",cStr)