Align columns: Difference between revisions

Content added Content deleted
m (→‎(with output): changed comments, simplified some code.)
Line 6,557: Line 6,557:
===(with output)===
===(with output)===
<lang rexx>/*REXX program displays various alignments for words in an array of text strings. */
<lang rexx>/*REXX program displays various alignments for words in an array of text strings. */
cols=0; size=0; wid.=0; t.=; @.= /*zero or nullify some variables. */
size= 0; t.=; cols= 0; wid.= 0; @.= /*zero or nullify some variables. */
⚫
t.1 = "Given$a$text$file$of$many$lines,$where$fields$within$a$line$"
⚫
/* [↓] some "text" lines. */
⚫
t.2 = "are$delineated$by$a$single$'dollar'$character,$write$a$program"
⚫
t.1 = "Given$a$text$file$of$many$lines,$where$fields$within$a$line$"
t.3 = "that$aligns$each$column$of$fields$by$ensuring$that$words$in$each$"
⚫
t.2 = "are$delineated$by$a$single$'dollar'$character,$write$a$program"
t.3 = "that$aligns$each$column$of$fields$by$ensuring$that$words$in$each$"
t.4 = "column$are$separated$by$at$least$one$space."
⚫
t.5 = "Further,$allow$for$each$word$in$a$column$to$be$either$left$"
t.4 = "column$are$separated$by$at$least$one$space."
⚫
t.6 = "justified,$right$justified,$or$center$justified$within$its$column."
⚫
t.5 = "Further,$allow$for$each$word$in$a$column$to$be$either$left$"
⚫
do r=1 while t.r\=='' /* [↓] process all the text lines. */
⚫
t.6 = "justified,$right$justified,$or$center$justified$within$its$column."
/* [↑] a null line is the end of text.*/
_= strip(t.r,,'$') /*strip leading & trailing dollar signs*/
do r=1 while t.r\=='' /* [↓] process all the text lines. */
do c=1 until _=='' /* [↓] process each of the words. */
_=strip(t.r,,'$') /*strip leading & trailing dollar signs*/
parse var _ @.r.c '$' _ /*extract the words from a line of text*/
do c=1 until _=='' /* [↓] process each of the words. */
wid.c= max(wid.c, length(@.r.c) ) /*find the maximum word width.*/
parse var _ @.r.c '$' _
end /*c*/
wid.c=max(wid.c, length(@.r.c)) /*find the maximum word width. */
cols= max(cols, c) /*use the maximum COLS found. */
end /*c*/
cols=max(cols,c) /*use the maximum COLS found. */
end /*r*/
end /*r*/


do k=1 for cols; size=size+wid.k; end /*find the width of the biggest line. */
do k=1 for cols; size= size + wid.k; end /*find the width of the biggest line. */
rows=r-1 /*adjust ROWS because of the DO loop.*/
rows= r - 1 /*adjust ROWS because of the DO loop.*/
do j=1 for 3; say; say /*show two blank lines for a separator.*/
do j=1 for 3; say; say /*show two blank lines for a separator.*/
say center(word('left right center', j) "aligned", size+cols-1, "═") /*show title*/
say center(word('left right center', j) "aligned", size+cols-1, "═") /*show title*/
do r=1 for rows; _= /*construct row by row. */
do r=1 for rows; _= /*construct row by row. */
do c=1 for cols; x=@.r.c /* " col " col. */
do c=1 for cols; x= @.r.c /* " col " col. */
if j==1 then _=_ left(x, wid.c) /*justified left. */
if j==1 then _= _ left(x, wid.c) /*justified left. */
if j==2 then _=_ right(x, wid.c) /* " right. */
if j==2 then _= _ right(x, wid.c) /* " right. */
if j==3 then _=_ centre(x, wid.c) /* " center. */
if j==3 then _= _ center(x, wid.c) /* " center. */
end /*c*/
end /*c*/
say substr(_, 2) /*ignore the leading extra blank. */
say substr(_, 2) /*ignore the leading extra blank. */
end /*r*/
end /*r*/
end /*j*/ /*stick a fork in it, we're all done. */</lang>
end /*j*/ /*stick a fork in it, we're all done. */</lang>
{{out|output|text=&nbsp; when using the default input:}}
{{out|output|text=&nbsp; when using the default input:}}
Retrieved from "https://rosettacode.org/wiki/Align_columns"