<html><head><meta http-equiv="Content-Type" content="text/html charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">Sehr geehrter Herr Neumann,<div class=""><br class=""></div><div class=""><div><blockquote type="cite" class=""><div class=""><div class=""> Eintrag1 _ 23 35 36 37 38 59 112 113 117 118 119 127 128 134 135 136 137 138</div></div></blockquote></div><div> soll umgewandelt werden in:</div><div><blockquote type="cite" class=""><div class=""><div class="">Eintrag1 _ 23 35-38 59 112f. 117ff. 127f. 134-138</div></div></blockquote><div><br class=""></div><blockquote type="cite" class=""><div class=""><div class="">Vielleicht fühlen sich ja einige Kollegen angesprochen ein Beispiel mit</div></div></blockquote><blockquote type="cite" class=""><div class=""><div class="">TUSCRIPT zu ergänzen…</div></div></blockquote><div><br class=""></div></div>Nachfolgend ein Beispiel, wie die Seitenzahlen in TUSCRIPT</div><div class="">zusammengefasst werden könnten.</div><div class=""><br class=""></div><div class="">Mit freundlichen Grüßen</div><div class="">Kuno Schälkle</div><div class=""><br class=""></div><div class="">———</div><div class=""><br class=""></div><div class=""><div class=""><font face="Courier New" class="">ACCESS q: READ /RECORDS "{quelle}" sn.zn/un, zeile</font></div><div class=""><font face="Courier New" class="">ACCESS z: WRITE/ERASE/RECORDS "{ziel}" sn.zn/un, zeile</font></div><div class=""><font face="Courier New" class=""><br class=""></font></div><div class=""><font face="Courier New" class="">LOOP/999999</font></div><div class=""><font face="Courier New" class=""> READ/NEXT/EXIT q</font></div><div class=""><font face="Courier New" class=""> - Zeile in Text und Referenzen aufteilen</font></div><div class=""><font face="Courier New" class=""> SET egal = SPLIT (zeile, ": _ :", text, referenzen)</font></div><div class=""><font face="Courier New" class=""> - Blanks zwischen den Zahlen durch Apostroph ersetzen</font></div><div class=""><font face="Courier New" class=""> SET referenzen = EXCHANGE (referenzen, ": :':")</font></div><div class=""><font face="Courier New" class=""> - Seitenzahlen zusammenfassen</font></div><div class=""><font face="Courier New" class=""> SET referenzen = COMBINE (referenzen, "f.", "ff.")</font></div><div class=""><font face="Courier New" class=""> - Apostrophe wieder durch Blanks ersetzen</font></div><div class=""><font face="Courier New" class=""> SET referenzen = EXCHANGE (referenzen, ":': :")</font></div><div class=""><font face="Courier New" class=""> - Zeile aus Text und Referenzen </font><span style="font-family: 'Courier New';" class="">wieder </span><span style="font-family: 'Courier New';" class="">zusammenhängen</span></div><div class=""><font face="Courier New" class=""> SET zeile = CONCAT (text, " _ ", referenzen)</font></div><div class=""><font face="Courier New" class=""> WRITE z</font></div><div class=""><font face="Courier New" class="">ENDLOOP</font></div><div class=""><font face="Courier New" class=""><br class=""></font></div><div class=""><font face="Courier New" class="">ENDACCESS/PRINT q</font></div><div class=""><font face="Courier New" class="">ENDACCESS/PRINT z</font></div></div><div class=""><br class=""></div></body></html>