aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Task/Remove-lines-from-a-file/REXX/remove-lines-from-a-file.rexx Normal file
View file

@ -0,0 +1,24 @@
/*REXX program to read a specified file and delete specified record(s). */
parse arg iFID ',' at ',' many /*input FID, del start, how many.*/
if iFID='' then call er "no input fileID specified."
if at='' then call er "no start number specified."
if many='' then many=1 /*Not specified? Assume 1 line.*/
stop=at+many-1 /*calculate high end of deletes. */
oFID=iFID'.out' /*the name of the output file. */
w=0
do j=1 while lines(iFID)\==0 /*J is the line number being read*/
x=linein(iFID) /*read a line from the input file*/
if j>=at & j<=stop then iterate /*if in the range, then ignore it*/
call lineout oFID,x; w=w+1 /*write line, bump the write cnt.*/
end
j=j-1
if j<stop then say "number of lines in file is less than the range given."
q='"' /*handle cases of blanks in FID. */
'ERASE' q || ifid || q
'RENAME' q || ofid || q q || ifid || q
say 'file ' iFID " had" j 'record's(j)", it now has" w 'record's(w)"."
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────ER subroutine───────────────────────*/
er: say; say '***error!***; say; say arg(1); say; exit 13
/*──────────────────────────────────S subroutine────────────────────────*/
s: if arg(1)==1 then return arg(3);return word(arg(2) 's',1) /*plurals.*/