[Tustep-Liste] page_nr um mehr als 1 erhöhen/erniedrig

[F.Seck]

Lieber Herr Kollatz,

vor kurzem hatte ich ein ganz ähnliches Problem. Durcheinandergeratene Faszikelnummer in Nachlässen sollten bereinigt werden. Sie stehen hinter dem Feldcode "&082 ".
Mit der rechten Maustaste wird die vorangehende Zahl eingelesen, mit der rechten die nächsthöhere eingesetzt. Eine Plausibilitätsprüfung ist eingebaut. Wenn es mit "1" weitergehen soll, schreibt man eine 0 in die Anweisungszeile und liest sie mit rechts ein. Hier die Definitionen:

=Vorangehende Nummer einlesen:
y,M_RC=rd_num
=Einsetzen:
= 1. Prüfen, ob richtige Stelle angeklickt:
y,M_LC=beg_rec,mrk_ini,2*skp_ri,mrk_tst:"|&082 <>>/|",
 if_match:num_hochz,beep,mrk_mrk
= 2. falls Bedingung erfüllt, auf die zu ändernde Nummer springen:
y,num_hochz=beg_rec,skp_ri,switch:sigweiter
= Nummer einsetzen; falls es in Einerschritten weitergeht, 
= nur Leertaste drücken (sonst mit linker Maustaste, oder
= Zahl einlesen; falls um 2 erhöhen: 2mal klicken):
y,sigweiter=del_end,inc_num,wr_num,cmd_line,clr_line,"za*",enter,
 wait,switch:sigblank
y,sigblank=2*jmp_dn:0E,switch:sigweiter
= Colorierung der Stelle, an der die (evtl.) zu ändernden Zahlen stehen:
= (wichtig wegen jmp_dn! Colorierung darf sonst nicht vorkommen)
= Colorieren der in Frage kommenden Sätze:
c5,9=0E:"&082 <|<><%"

Es wird Ihnen nicht schwer fallen, die Makros Ihren Bedürfnissen anzupassen.

Viele Grüße
Friedrich Seck

------------------------------
Dr. Friedrich Seck
72076 Tübingen, Erlenweg 18
Tel.  0 70 71 - 96 49 40
Fax  0 70 71 - 96 49 41
  ----- Original Message ----- 
  From: Thomas Kollatz 
  To: tustep-liste at itug.de 
  Sent: Wednesday, October 31, 2007 12:47 PM
  Subject: [Norton AntiSpam] [Tustep-Liste] page_nr um mehr als 1 erhöhen/erniedrig


  Diskussionsforum Tustep-Liste
  Weitere Informationen: www.itug.de
  ------------------------------------------------------------




------------------------------------------------------------------------------


  Liebe Liste,
  ich bastele gerade an einem Editormakro, das auch ganz gut funktioniert.
  y,aa=set_ins,cur_ri,skp_beg,cur_dn,ins_line,"<Lag>A ",page_nr,"</Lag>
  Es soll die Seitennummer an einer bestimmten Stelle eintragen.
  1, A 1
  2, A 2 
  usw.
  Ok.


  Jetzt sind wir aber in Satz 50 (und Feld B) und da soll es wieder bei eins losgehen.


  Ich suche also etwas wie page_nr - 49,
  dann würde Satz 50 die nr. 1 erhalten
  51, B 2
  52, B 3
  usw.


  Nur wie geht das?
  Mit page_nr_dec kann ich um -1 verringern, aber ich will ja mehr als -1, z.B. -49.
  y,bb=set_ins,cur_ri,skp_beg,cur_dn,ins_line,"<Lag>B ",page_nr_dec,"</Lag>
  51, B 50


  Hat jemand eine Idee?


  Herzliche Grüsse
  THOMAS KOLLATZ



  drs Thomas Kollatz  - wissenschaftlicher Mitarbeiter / research assistant
  Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte
  D-47057 Duisburg, Geibelstr. 41, T: 203 - 370071,  F: 203 - 373380
  Karte <http://maps.google.de/maps?f=q&hl=de&q=Geibelstr.+41,+Du>
  Homepage <http://steinheim-institut.de/das_institut/mitarbeiter/kollatz/index.xml>
  Epigraphische Datenbank <http://www.steinheim-institut.de:50580/cgi-bin/epidat>










------------------------------------------------------------------------------



  ------------------------------------------------------------
  Tustep-Liste at itug.de
  https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <https://lists.itug.de/pipermail/tustep-liste/attachments/20071031/103fd0c5/attachment.htm>