将Mathematica Print []输出导出为.txt文件

Question

我有一个大型的Mathematica笔记本,它Print[]定期使用命令输出运行时消息.这是此笔记本生成的唯一输出(除了导出的文件).有没有什么办法可以自动将此输出导出到.txt文件而无需重新编写Print[]命令？

Answer 1

根据文档,Print输出到$Output通道,这是一个流列表.所以,在笔记本的开头,

strm = OpenWrite["output.log"];
AppendTo[ $Output, strm ];

并在笔记本的末尾

Close[strm];

请注意,如果在关闭流之前执行被中断,那么您必须手动执行.此外,上面的代码将覆盖"output.log"中的先前数据,因此您可能希望使用OpenAppend.

编辑:为了保证Abort将被调用,请考虑使用此处概述的技术之一.

Answer 2

您需要 PutAppend 命令。