Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[REBOL] 'formatting' a Rebol text-list ??

From: jfdutcher1958::yahoo::com at: 23-Mar-2006 17:55

The script below astounds me with its ease of developing a neat scrollable text-list of what is about 245 entries. I am comparing this to what was a (4) column table using HTML/PHP......and wondering if there are any features of text-list that would 'format' the (4) vertical columns on 'rigidly spaced' horizontal tabs or starting positions, which would 'beautify' the text-list presentation. Perhaps text-list is not the best approach? Rebol[Title: "Test Case"] port: open/seek %/c/vetssrc/dietsys/dsysmst.txt read-record: func [port record-size record-number] [ copy/part at port record-number - 1 * record-size + 1 record-size ] substr: func [record offset len] [ copy/part at record offset len ] repeat i 299 [ rec1: read-record port 2690 i sortBlock: [] y: 1 regnbr: substr rec1 y + 3 4 lname: substr rec1 y + 7 15 fname: substr rec1 y + 22 15 minit: substr rec1 y + 37 1 if (regnbr <> "XXXX") [ repend/only sortBlock [lname fname mold minit regnbr] ] ] view layout [ backcolor silver h1 "Dietsys for the New York State Vets' Home" h2 "Select from the list below by clicking one of the residents' names" listing: text-list 500x500 data sort sortBlock ]