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

Re: Saving notebooks without graphics

  • To: mathgroup at smc.vnet.net
  • Subject: [mg27000] Re: Saving notebooks without graphics
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Tue, 30 Jan 2001 23:22:20 -0500 (EST)
  • Organization: Universitaet Leipzig
  • References: <95634i$83@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Hi,

nb = NotebookPut[
      NotebookGet[
          NotebookOpen[
            "yourNotebook.nb"]] //. 
        Cell[_, "Graphics", ___] :> Sequence[]];


will do it.
But, the notebook is loaded into the kernel !! and this may need
a lot of time and memory.

Regards
  Jens

David Chapman wrote:
> 
> I'm generating lots of plots in a notebook that I'm working on on two
> different computers.  The notebook is very big because of the graphics,
> so to fit the notebook on a floppy disk when I take it from one computer
> to the other I delete output cells containin the graphics.  Is there any
> way I can automatically delete all the graphics (or all the output
> cells), to save having to go through each one individually (or,
> equivalently, save the notebook without the graphics/output cells)?
> 
> Thanks for any ideas,
> David


  • Prev by Date: Re: Saving notebooks without graphics
  • Next by Date: Re: (no subject)
  • Previous by thread: Re: Saving notebooks without graphics
  • Next by thread: RE: Saving notebooks without graphics