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