Re: Print in a loop
- To: mathgroup at smc.vnet.net
- Subject: [mg61635] Re: [mg61617] Print in a loop
- From: ggroup at sarj.ca
- Date: Mon, 24 Oct 2005 03:39:16 -0400 (EDT)
- References: <200510240543.BAA29041@smc.vnet.net>
- Reply-to: ggroup at sarj.ca
- Sender: owner-wri-mathgroup at wolfram.com
On Monday, October 24, 2005 at 01:43 GMT -0400, Kalymereau wrote:
> I would like that at each step, the new output erases the previous one,
> i.e. that a be replaced by b and b by c etc (that is, a kind of
> "clock")
> How can I do that ?
Use the Notebook FrontEnd manipulation commands. I'm sure the
following isn't optimal, but is seems to do what you want.
l={a,b,c};
nb = EvaluationNotebook[];
SelectionMove[nb, All, GeneratedCell];
Scan[
(NotebookDelete[nb];
Print[#];
Pause[1];
SelectionMove[nb, All, GeneratedCell];
)&, l]
- References:
- Print in a loop
- From: kalymereau@yahoo.fr
- Print in a loop