Re: Exporting PRINT results from Mathematica to other applications
- To: mathgroup at smc.vnet.net
- Subject: [mg18859] Re: Exporting PRINT results from Mathematica to other applications
- From: paulh at wolfram.com (P.J. Hinton)
- Date: Thu, 22 Jul 1999 22:57:52 -0400
- Organization: Wolfram Research, Inc.
- References: <7n68sa$gua@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <7n68sa$gua at smc.vnet.net>, hanssen at zeiss.de writes: > recently, there was a thread "Exporting results from Mathematica to > other applications" in this group, e.g. mg17737, mg17672. > We learned from it, first to convert output cells to OutputForm using > the ConvertTo command. Later one has to select and use > Edit>Copy as>Text. > > If one does this with cells generated with Print, which also contain > formatted numbers (e.g. generated with one or the other option of > PaddedForm or 100*Round[#/100]& etc), the well formatted numbers are > sometimes extended with insignificant digits and the proper formatting > is gone. I have not yet found out, when exactly this happens, at > least it is highly undesireable. > > Any idea, how to avoid around this (it happens in Matheamtica 3.0.1.1x, > what about Mathematica 4)? I suspect that the problem you are encountering is a ramification of using StandardForm as your default output format type. You can force plain text to be used in Print and other kernel output cells by clicking on the front end menu command sequence Cell -> Default Output Format Type -> InputForm or by evaluating an appropriate SetOptions[] command. sets option on a global level SetOptions[$FrontEnd, CommonDefaultFormatTypes -> {"Output" -> OutputForm}] sets option on an individual notebook level SetOptions[EvaluationNotebook[], CommonDefaultFormatTypes -> {"Output" -> OutputForm}] If you wish to retain StandardForm for output, you could write an override function for Print[] that does something similar to the OutputForm. Unprotect[Print]? Remove[Print] System`Print[expr___] := CellPrint[ Cell[TextData[StringJoin[Map[ToString[#, OutputForm] &, {expr}] ]], "Print"]] Protect[Print] -- P.J. Hinton Mathematica Programming Group paulh at wolfram.com Wolfram Research, Inc. Disclaimer: Opinions expressed herein are those of the author alone.