Ggthjy

Should we avoid writing fiction about historical events without extensive research?

Lock enemy's y-axis when using Vector3.MoveTowards to follow the player

Rationale to prefer local variables over instance variables?

Redirecting CellPrint output

How do you say “my friend is throwing a party, do you wanna come?” in german

Book about a time-travel war fought by computers

Would the melodic leap of the opening phrase of Mozart's K545 be considered dissonant?

How do I deal with being envious of my own players?

What is the meaning of "notice to quit at once" and "Lotty points”

Why is it "take a leak?"

School performs periodic password audits. Is my password compromised?

Create chunks from an array

Sometimes a banana is just a banana

Can we carry rice to Japan?

How does signal strength relate to bandwidth?

3.5% Interest Student Loan or use all of my savings on Tuition?

Can a space-faring robot still function over a billion years?

Has Wakanda ever accepted refugees?

What is a term for a function that when called repeatedly, has the same effect as calling once?

Why won't the strings command stop?

Is every open circuit a capacitor?

Make me a metasequence

Why doesn't "adolescent" take any articles in "listen to adolescent agonising"?

A bug in Excel? Conditional formatting for marking duplicates also highlights unique value

Redirecting CellPrint output

Can I Print to a different notebook? (within the context of the same kernel)Temporarily redirect the output of Print[ ] to a second fileA notebook created on demand from a main document showing executable input along with output cellsConsecutive Print to target same output CellConditional printed outputWhy TeXForm[] do not display to notebook if followed by OutputForm[] in same cell?Temporary/popup Output Progress BoxesHow to find the last output cell of the group to which a certain cell belongs?Delete Cell Inside of ModulePrint SlideShowSaving all cell-groups to pdfs with filenamesDelete all output in notebooks

3

1

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

add a comment | 

3

1

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

add a comment | 

$begingroup$

How can I make g[]; or h[]; print the same output as f[];? I am trying to capture the output of one function and put it in a document elsewhere, but the CellPrint output is not cooperating.

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

notebooks cells monitoring

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

$endgroup$

f[] := Module[{},

  Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = AppendTo[printlist, {##}] &,

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[#, "Print"] & /@

    Flatten[printlist, 1]]



f[];

g[];

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

share|improve this question

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

edited 4 hours ago

Kuba♦

106k12206529

edited 4 hours ago

Kuba♦

106k12206529

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

asked 4 hours ago

Chris DegnenChris Degnen

22k23787

3 Answers
3

active

oldest

votes

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function () {
return StackExchange.using("mathjaxEditing", function () {
StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
});
});
}, "mathjax-editing");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "387"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: false,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: null,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f192754%2fredirecting-cellprint-output%23new-answer', 'question_page');
}
);

Post as a guest

Name

Email

Required, but never shown

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

1

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

add a comment | 

$begingroup$

a) notice that depending on the settings Print may be printed to the MessagesNotebook while CellPrint always goes to the parent notebook.

b) I'm not sure what is the context so I will just leave those links here:

Can I Print to a different notebook? (within the context of the same kernel)

Temporarily redirect the output of Print[ ] to a second file

c) the answer:

The problem is that you are doing CellPrint @ ExpressionCell @ Cell[.... Here is what you can do:

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

$endgroup$

f[] := Module[{}, Print["Bob"];

  CellPrint[Cell["", Background -> Blue, "Print"]];

  Print["Bill"]]



printlist = {};

Block[{Print = 

    AppendTo[printlist, ExpressionCell[Row[{##}], "Print"]] &, 

   CellPrint = AppendTo[printlist, {##}] &}, f[]];



g[] := Map[CellPrint, Flatten[printlist, 1]]



h[] := CreateDocument[Flatten[printlist, 1]]



f[];

g[];

share|improve this answer

answered 4 hours ago

Kuba♦Kuba

106k12206529

answered 4 hours ago

Kuba♦Kuba

106k12206529

answered 4 hours ago

Kuba♦Kuba

106k12206529

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

1

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

add a comment | 

$begingroup$

Why not wrap ExpressionCell only around Print calls? For example:

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

Then:

g[];

and:

nb = h[];

CurrentNotebookImage[nb]

seem to do what you want.

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

$endgroup$

printlist={};

Block[

    {

    Print = AppendTo[printlist, Thread[ExpressionCell[{##}, "Print"]]]&,

    CellPrint = AppendTo[printlist, #]&

    },

    f[]

];



g[] := CellPrint /@ Flatten @ printlist

h[] := CreateDocument[

    Flatten @ printlist

]

g[];

nb = h[];

CurrentNotebookImage[nb]

share|improve this answer

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

answered 4 hours ago

Carl WollCarl Woll

69.3k393179

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

1

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

add a comment | 

$begingroup$

CellPrint >> Details:

In CellPrint[expr]:

If expr has head TextCell, ExpressionCell, or CellGroup, it is inserted unchanged into the notebook.

So changing heads Cell to Sequence in the first argument of ExpressionCell works:

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 4 hours ago

kglrkglr

187k10203421

$endgroup$

ClearAll[g, h]



g[] := Map[CellPrint, ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



h[] := CreateDocument[ExpressionCell[# /. Cell -> Sequence, "Print"] & /@ 

   Flatten[printlist, 1]]



g[];

h[]

share|improve this answer

edited 1 hour ago

answered 4 hours ago

kglrkglr

187k10203421

answered 4 hours ago

kglrkglr

187k10203421

answered 4 hours ago

kglrkglr

187k10203421