Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

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