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

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

20
Task/File-input-output/REXX/file-input-output-1.rexx
View file

@ -1,10 +1,12 @@
/*REXX program to read a file and store the contents into an output file*/
iFID = 'input.txt' /*name of the input file. */
oFID = 'output.txt' /*name of the output file. */
call lineout oFID,,1 /*insure output starts at line 1.*/
/*REXX program reads a file and copies the contents into an output file (on a line by line basis).*/
iFID = 'input.txt' /*the name of the input file. */
oFID = 'output.txt' /* " " " " output " */
call lineout iFID,,1 /*insure the input starts at line one.*/ /* ◄■■■■■■ optional.*/
call lineout oFID,,1 /* " " output " " " " */ /* ◄■■■■■■ optional.*/
do while lines(iFID)\==0 /*read records until finished. */
y = linein(iFID) /*read a record from input. */
call lineout oFID,y /*write a record to output. */
end /*while ···*/
/*stick a fork in it, we're done.*/
do while lines(iFID)\==0; $=linein(iFID) /*read records from input 'til finished*/
call lineout oFID, $ /*write the record just read ──► output*/
end /*while*/ /*stick a fork in it, we're all done. */
call lineout iFID /*close input file, just to be safe.*/ /* ◄■■■■■■ best programming practice.*/
call lineout oFID /* " output " " " " " */ /* ◄■■■■■■ best programming practice.*/