Re: automatisch Tags einfuegen?

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

ist das grob genug. file ist die Datei mit dem Notebook,
tagPrefix ist der Anfang der Tag Namen die dann MyTag1, MyTag2, ...
heissen. Hier werden nat"urlich nur Input Zellen bearbeitet
aber das l"asst sich ja "andern

MakeTags[file_String,tagPrefix_:"MyTag"]:=
  Module[{nb,i=0,nbx2}
    nb = NotebookGet[NotebookOpen[file]];
    nbx2 = nb /. 
      Cell[w_, "Input", opts___] :> 
        Cell[w, "Input", CellTags -> {tagPrefix <> ToString[++i]},
opts];
    NotebookPut[nbx2]
   ]

Ach so, die Funktion nimmt an, das die Zellen noch keine Tag's haben.
Die alten Tags sind sonst vermutlich futsch.

Ausserdem, wiederspricht das ganze der "Idee" von CellTags die ja gerade
unabh"anging von dem Auftauchen um Notebook sein sollen. So das die
Referenz
auf die "ZelleMitDerWichtigstenFormel" sich unter keinen Umst"anden
"andert.

Gruss
  Jens

"Mag. Werner Cyrmon" wrote:
> 
> Hi,
> hab folgendes Problem.
> Hab ein fertiges Notebook mit einigen Cells.
> Von einem anderen Notebook soll nun eine Funktion aufgerufen werden, die im
> ersten Notebook jeder Cell einen z.B. aufsteigenden numerischen Tag
> verpasst, die Cells also durchnummeriert.
> Wie koennte den eine solche Funktion grob ausschaun.
> Dank duer alle Tipps
> Werner