# How to let output and message be print to two separate external files?

How to let output and message be print to two separate external files? Also, I'd like the content print out to have similar look as when it's print inside the notebook, i.e. it should be in OutputForm or whatever proper form.

-

Sounds like you are looking for $Messages and $Output, and maybe also $PrePrint or $Post. $Messages and $Output are a list of streams to which corresponding output is written (note that $Output is only getting output from Prints, not from return values of shift-return-evaluations). To cover return values of shift-return-evaluations you might want to manipulate $PrePrint or $Post so it will also write to the desired output file. You can open a file for each with OpenWrite and append the resulting streams to the two lists and the messages and output will be written to those files. You can use the option FormatType of OpenWrite to write to those files in OutputForm. But since these are text files the outcome is not very useful in my opinion: For lengthy expressions the multiline ASCII art is usually harder to read than input form and these files will not be readable for any program. So I'd rather stick with the default InputForm. For return values of shift-return-evaluations you could use something like: $PrePrint = Function[Write[outstream,#];#]

After setting FormatType -> OutputForm, I get errors Intersection::normal: Nonatomic expression expected at position 2 in Intersection[{StandardForm, TraditionalForm}, FormatType]. in the file storing messages. Why? –  qazwsx May 7 '12 at 21:17
What exactly do you do? The following works for me: fh = OpenWrite[fname, FormatType -> OutputForm];Write[fh, "test"];Close[fh]. Do you get the same error for this? If yes, which version of Mathematica are you using on which platform? –  Albert Retey May 8 '12 at 7:39