Rosetta Code/Fix code tags: Difference between revisions

Content added Content deleted
(Added Delphi example)
m (→‎{{header|REXX}}: added whitespace.)
Line 986: Line 986:


do while lines(iFID)\==0 /*keep reading the file until finished.*/
do while lines(iFID)\==0 /*keep reading the file until finished.*/
$=linein(iFID) /*read a record from the input file. */
$= linein(iFID) /*read a record from the input file. */
do j=1 while old.j \== '' /*change old ──► new until finished. */
do j=1 while old.j \== '' /*change old ──► new until finished. */
$=changestr(old.j,$,new.j) /*let REXX do the heavy lifting. */
$= changestr(old.j,$,new.j) /*let REXX do the heavy lifting. */
end /*j*/
end /*j*/
call lineout oFID,$ /*write re-formatted record to output. */
call lineout oFID,$ /*write re-formatted record to output. */
end /*while*/ /*stick a fork in it, we're all done. */</lang>
end /*while*/ /*stick a fork in it, we're all done. */</lang>
Retrieved from "https://rosettacode.org/wiki/Rosetta_Code/Fix_code_tags"