Revision as of 20:58, 9 December 2014 (view source) rosettacode>Midiprog2000 (→‎{{header\|RapidQ}}) ← Older edit		Revision as of 21:01, 9 December 2014 (view source) rosettacode>Midiprog2000 (→‎{{header\|RapidQ}}) Newer edit →
Line 3,609: DefStr TextLeft, TextRight, TextCenter DefStr ~~Line~~MLine, LWord, Newline = chr$(13)+chr$(10) DefInt ColWidth(100), ColCount DefSng NrSpaces Line 3,616: MText.position = 0 for x = 0 to MText.linecount -1 ~~Line~~MLine = MText.ReadLine for y = 0 to Tally(~~Line~~MLine, "$") LWord = Field$(~~Line~~MLine, "$", y+1) ColWidth(y) = iif (ColWidth(y) < len(LWord), len(LWord), ColWidth(y)) next Line 3,626: MText.position = 0 for x = 0 to MText.linecount -1 ~~Line~~MLine = MText.ReadLine for y = 0 to Tally(~~Line~~MLine, "$") LWord = Field$(~~Line~~MLine, "$", y+1) NrSpaces = ColWidth(y) - len(LWord) 'left align

Align columns: Difference between revisions

Align columns (view source)