Re: Comparing side by side notebook files
- To: mathgroup@smc.vnet.net
- Subject: [mg12481] Re: Comparing side by side notebook files
- From: "Rolf Mertig" <rolf@mertig.com>
- Date: Tue, 19 May 1998 13:31:46 -0400
Here is a simple attempt:
Notebookdiff::usage="Notebookdiff[file1, file2] returns a notebook with
all Cells of the notebook saved as file2 which are not in the notebook
saved as file1.";
Notebookdiff[fi1_String, fi2_String] := Block[{x, y, diff},
{x, y} = (Get /@ {fi1, fi2}) //. Cell[CellGroupData[z_,_]] :>z /.
(CellLabel->_) :> Sequence[] ;
Prepend[Rest[x], Complement[Flatten[First[y]], Flatten[First[x]]]]
];
Rolf Mertig
Mertig Research & Consulting
Mathematica training and programming Development and distribution of
FeynCalc Amsterdam, The Netherlands
http://www.mertig.com