Re: Q: How do I format text within a cell of GridBox[]?

*To*: mathgroup at smc.vnet.net*Subject*: [mg64785] Re: Q: How do I format text within a cell of GridBox[]?*From*: bghiggins at ucdavis.edu*Date*: Thu, 2 Mar 2006 19:28:06 -0500 (EST)*References*: <dtrvfb$ltl$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Terry, Here is a modification of David's suggestion that allows the user to determine the size of the heading fragment on each line.It makes use of RegularExpressions(need Version 5.1 or later) My first post of this a few days ago never appeared on the mathgroup We need two auxillary functions.The first function called myNewLineLoc places a new line locator (\n) in front of any word after the first in a heading that has n or more word characters(digits,letters,or _) myNewLineLoc[str_String, n_Integer] := StringReplace[str, RegularExpression["((?!^)\\b\\w{" <> \ ToString[n] <> "})"] :> "\n" <> "$1"] The second function called setColumnWidths determines the size of the largest heading fragment using the same rule as above for splitting up the header SetColumnWidths[str_String, n_Integer] := Max[Map[StringLength[#] &, \ StringSplit[StringReplace[str, RegularExpression["((?!^)\\b\\w{" <> ToString[n] <> "})"] :> "\n" <> "$1"], "\n"]]] Finally we call these functions in a PrintHeading function PrintHeading[{str__String}, {colWidths__}] := \ Print[DisplayForm[GridBox[{Map[Cell[myNewLineLoc[#[[1]], #[[2]]], \ TextAlignment -> Center] &, Transpose[{{str}, {colWidths}}]]}, ColumnSpacings -> 0.8, ColumnWidths -> Map[SetColumnWidths[#[[1]], #[[2]]] \ &, Transpose[{{str}, {colWidths}}]]]]] The following shows how the options work: PrintHeading[{"Time", "Number of Times Parameters Changes Directions", \ "Error"}, {4, 6, 5}] PrintHeading[{"Time", "Number of Times Parameters Changes Directions", \ "Error"}, {4, 8, 5}] The one limitation is that the size of the columnwidth is based on the number of characters in the largest heading fragment,which does not map one-to-one on how Mathematica defines a width of a column.Hope this helps, Cheers Brian terry wrote: > Hi, > > I run a lot of simulations where I make use of GridBox[] to display a > nice table of my results. Naturally the first call to GridBox is to > display the column headings for my table and the call looks something > like this: > > > Print[GridBox[{{"Time","Number of Times Parameters Changes > Directions","Error","Parameter #1"}}, ColumnWidths->{5,5,4,6}] // > DisplayForm]; > > I pretty much got everything formatted correctly except for headings > that consist of more than one word (like the second heading). > Ideally in cases like this I would like Mathematica to automatically > break the sentence into appropriate fragments that fit into the cell > widths defined by ColumnWidths then to center each individual > fragment). Is there a simple way to do this? > > Thanks for all your help. I've been puzzling over this one for awhile. > > Terry