MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

[Fwd: Notebook Filename]


This may not be exactly what you want, but here is an abbreviated
example of a scheme I use at the start of a notebook.

CellPrint@
    Cell[TextData[{"Notebook name is ", 
          StringDrop[("FileName" /. 
                  NotebookInformation[SelectedNotebook[]])[[2]], -3], 
          ".nb\nLast updated ", ValueBox["DateLong"], " ",
ValueBox["Time"]}],
       "SmallText",
      CellFrame -> {{0, 0}, {2, 0}}, CellFrameColor -> RGBColor[0, 0.8,
0], 
      FontSize -> 8, FontWeight -> "Plain"];

Executing this in a notebook will print its name and its time stamp. I
set the input cell to invisible so in the printed notebook it does not
appear.

Dan



  • Prev by Date: Solving Matrix Ricatti Equations ?
  • Next by Date: Re: Trick for getting the comples conjugate in symbolic calculations?
  • Previous by thread: Re: Solving Matrix Ricatti Equations ?
  • Next by thread: Rotation3D, MatrixRotation3D ?