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

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

33
Task/Create-an-HTML-table/REXX/create-an-html-table.rexx
View file

@ -1,23 +1,23 @@
/*REXX program to create an HTML table of five rows and three columns.*/
arg rows .; if rows=='' then rows=5 /*no ROWS specified? Use default*/
cols = 3 /*specify three columns for table*/
maxRand = 9999 /*4-digit numbers, allow negative*/
headerInfo = 'X Y Z' /*column header information. */
oFID = 'a_table.html' /*name of the output file. */
w = 0 /*number of writes to output file*/
/*REXX program creates an HTML table of five rows and three columns. */
arg rows .; if rows=='' then rows=5 /*no ROWS specified? Then use default.*/
cols = 3 /*specify three columns for the table. */
maxRand = 9999 /*4-digit numbers, allows negative nums*/
headerInfo = 'X Y Z' /*specifify column header information. */
oFID = 'a_table.html' /*name of the output file. */
w = 0 /*number of writes to the output file. */
call wrt "<html>"
call wrt "<head></head>"
call wrt "<body>"
call wrt "<table border=5 cellpadding=20 cellspace=0>"
do r=0 to rows /* [↓] handle row zero special. */
do r=0 to rows /* [↓] handle row 0 as being special.*/
if r==0 then call wrt "<tr><th></th>"
else call wrt "<tr><th>" r "</th>"
else call wrt "<tr><th>" r "</th>"
do c=1 for cols /* [↓] for row zero, add hdrInfo*/
if r==0 then call wrt "<th>" word(headerInfo,c) "</th>"
else call wrt "<td align=right>" rnd() "</td>"
do c=1 for cols /* [↓] for row 0, add the header info*/
if r==0 then call wrt "<th>" word(headerInfo,c) "</th>"
else call wrt "<td align=right>" rnd() "</td>"
end /*c*/
end /*r*/
@ -25,8 +25,7 @@ call wrt "</table>"
call wrt "</body>"
call wrt "</html>"
say; say w ' records were written to the output file: ' oFID
exit /*stick a fork in it, we're done.*/
/*──────────────────────────────────one-liner subroutines───────────────*/
rnd: return right(random(0,maxRand*2)-maxRand,5) /*REXX doesn't gen negs*/
wrt: call lineout oFID,arg(1); say '══►' arg(1); w=w+1; return /*write.*/
/* [↑] functions were subroutinized for better viewabilityness.*/
exit /*stick a fork in it, we're all done. */
/*────────────────────────────────────────────────────────────────────────────*/
rnd: return right(random(0,maxRand*2)-maxRand,5) /*REXX doesn't gen neg RANDs.*/
wrt: call lineout oFID,arg(1); say '══►' arg(1); w=w+1; return /*write.*/