Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2001
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2001

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

Search the Archive

[Fwd: Notebook Filename]

  • To: mathgroup at smc.vnet.net
  • Subject: [mg30377] [Fwd: Notebook Filename]
  • From: Dan Dill <dan at bu.edu>
  • Date: Tue, 14 Aug 2001 03:45:29 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

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 ?