Can Save[] produce a .nb file instead of a text file?

Question

(I use Mathematica 9.0.1 on OS X 10.10.2.)

Suppose I have a notebook in which I make some definitions and assignments.

a = 108
b[x_] := 4x + 8
c = Interpolation[{15, 16, 23, 42}]

Then it is straightforward to save these definitions to a text file:

Save["filename.txt", {a, b, c}]

produces a text file filename.txt containing

a = 4

b[x_] := 8*x

c = InterpolatingFunction[{{1, 4}}, {4, 3, 0, {4}, {4}, 0, 0, 0, 0,
Automatic}, {{1, 2, 3, 4}}, {{15}, {16}, {23}, {42}}, {Automatic}]

But is there a way to produce exactly the above content, not in a text file, but in an ".nb" file?

(Note that the obvious first guess, just changing the extension of the filename I specify in the Save command from ".txt" to ".nb", does not seem to work. Mathematica still treats the file as a text file, rather than a notebook file, it just now has a deceptive file extension.)

score 3 · Answer 1 · edited Apr 13 '17 at 12:55

3

a = 108
b::usage = "test usage msg"
b[x_] := 4 x + 8
c = Interpolation[{15, 16, 23, 42}]

As pointed by OP, the direct usage of FullDefinition produces boxes that are not realy useful. I don't know how to convert them easily without this tiny undocumented function [1], [2]:

Save["test.m", {a, b, c}]

CreateDocument @ Cell[#, "Input"] &@
 First @ FrontEndExecute @ 
   UndocumentedTestFEParserPacket[Import["test.m", "Text"], False]

enter image description here

Old answer, not so handy, in edit history.

edited Apr 13 '17 at 12:55

Community

1

answered Mar 25 '15 at 19:46

Kuba

136,707
13
279
740

Try evaluating the cell, saving and closing the file, and reopening it. – thecommexokid Mar 26 '15 at 20:52
1

@thecommexokid again good point, sorry for not being focused enough :) is my edit ok? :) – Kuba Mar 26 '15 at 21:56
Yes, it is, thanks. It's really weird to me that Save["test.m"] produces a proper .m file, but Save["test.nb"] just produces a text file with a misleading .nb extension. – thecommexokid Mar 27 '15 at 17:59
By the way, not sure why you deleted all your previous comments! I don't think that was really necessary... – thecommexokid Mar 27 '15 at 18:01
@thecommexokid mods don't linke too long discussions in comments :) moreover I thought it is not really useful fo future visitors. – Kuba Mar 27 '15 at 18:08
FrontEndObject::notavail: A front end is not available; certain operations require a front end. – thecommexokid Mar 30 '15 at 06:06
@thecommexokid Makes sense. How are you calling this? – Kuba Mar 30 '15 at 06:07
Without a front end, alas. I am running a script on a remote server. – thecommexokid Mar 30 '15 at 06:08
1

@thecommexokid Try to wrap it with UsingFrontEnd. I will be afk for 1h now. – Kuba Mar 30 '15 at 06:14

Can Save[] produce a .nb file instead of a text file?

1 Answers1