Align columns: Difference between revisions

Content deleted Content added

Inline

@@ Line 3,629: / Line 3,629: @@
     for y = 0 to Tally(Line, "$")
         LWord = Field$(Line, "$", y+1)
+        NrSpaces = ColWidth(y) - len(LWord)
         'left align
-        AWord = LWord + String$(ColWidth(y) - len(LWord) +1, " ")
+        TextLeft = TextLeft + LWord + String$(NrSpaces +1, " ")
-        TextLeft = TextLeft + AWord
         'Right align
-        AWord = String$(ColWidth(y) - len(LWord) +1, " ") + LWord
+        TextRight = TextRight + String$(NrSpaces +1, " ") + LWord
-        TextRight = TextRight + AWord
         'Center
-        NrSpaces = (ColWidth(y) - len(LWord))/2
+        TextCenter = TextCenter + String$(floor((NrSpaces)/2)+1, " ") + LWord + string$(Ceil((NrSpaces)/2), " ")
-        AWord = String$(floor(NrSpaces)+1, " ") + LWord + string$(Ceil(NrSpaces), " ")
-        TextCenter = TextCenter + AWord
     next
     TextLeft = TextLeft + Newline
@@ Line 3,647: / Line 3,644: @@
 Sample output:
-<pre style="height:15ex;overflow:scroll">TextLeft contains:
+<pre style="height:20ex;overflow:scroll">TextLeft contains:
 Given      a          text       file   of     many      lines,     where    fields  within  a      line
 are        delineated by         a      single 'dollar'  character, write    a       program