[Tustep-Liste] Seitenzahlen im Register bearbeiten | KOPIERE

Kuno Schälkle schaelkle at zdv.uni-tuebingen.de
Thu Feb 23 20:15:34 CET 2017


Sehr geehrter Herr Neumann,

>  Eintrag1 _ 23 35 36 37 38 59 112 113 117 118 119 127 128 134 135 136 137 138

        soll umgewandelt werden in:
> Eintrag1 _ 23 35-38 59 112f. 117ff. 127f. 134-138

> Vielleicht fühlen sich ja einige Kollegen angesprochen ein Beispiel mit
> TUSCRIPT zu ergänzen…

Nachfolgend ein Beispiel, wie die Seitenzahlen in TUSCRIPT
zusammengefasst werden könnten.

Mit freundlichen Grüßen
Kuno Schälkle

———

ACCESS q: READ       /RECORDS "{quelle}" sn.zn/un, zeile
ACCESS z: WRITE/ERASE/RECORDS  "{ziel}"  sn.zn/un, zeile

LOOP/999999
   READ/NEXT/EXIT q
   - Zeile in Text und Referenzen aufteilen
   SET egal = SPLIT (zeile, ": _ :", text, referenzen)
   - Blanks zwischen den Zahlen durch Apostroph ersetzen
   SET referenzen = EXCHANGE (referenzen, ": :':")
   - Seitenzahlen zusammenfassen
   SET referenzen = COMBINE  (referenzen, "f.", "ff.")
   - Apostrophe wieder durch Blanks ersetzen
   SET referenzen = EXCHANGE (referenzen, ":': :")
   - Zeile aus Text und Referenzen wieder zusammenhängen
   SET zeile = CONCAT (text, " _ ", referenzen)
   WRITE z
ENDLOOP

ENDACCESS/PRINT q
ENDACCESS/PRINT z

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.uni-wuerzburg.de/pipermail/tustep-liste/attachments/20170223/6b92e39f/attachment.html>


More information about the Tustep-Liste mailing list