I have a notebook which has a lot of generated data (which I would rather not regenerate), and the kernel is dead. So, the question is, how do I recover the data in the notebook (I know it is there, since the save file is very, very large, but obbiously %28
, or whatever, will not work). I can copy the output cell as LaTeX or MathML [which is not what I want] or convert it to InputForm (which IS what I want, but where does the converted thing go then?)
Anyway, this is a newbie sort of question, but, well...
With[{l = Length[#]}, CreateDocument@ Table[ With[{var = "x" <> ToString[i]}, Composition[ Cell[#, "Input"] &, BoxData, Cases[#, BoxData[x_] :> RowBox[{var, "=", x, ";"}], 1][[1]] &,NotebookRead ]@#[[i]] ], {i, l}] ] &[Cells[EvaluationNotebook[], CellStyle -> "Output"] ]
$\endgroup$