[Tustep-Liste] Seitenzahlen im Register bearbeiten | KOPIERE

[Kuno Schälkle]

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

-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <https://lists.itug.de/pipermail/tustep-liste/attachments/20170223/6b92e39f/attachment.htm>