[Tustep-Liste] Editor - Zahlenwerte suchen

[Kuno Schälkle]

Lieber Herr Carls,

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Mein Anliegen war, einheitlich alle Verweise auf einen Seitenbereich, in dem
sich die Seitenzahlen nur um den Wert eins unterscheiden (n-n+1), in
'erste Zahl f.' auszutauschen.
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

das erreichen Sie, wenn Sie die Zeile
      IF (zz.EQ.z2)  SET text = CONCAT ("[[", text, "]]")
durch die Zeile
      IF (zz.EQ.z2)  SET text = CONCAT (z1, " f.")
ersetzen.

Herzliche Grüße
Ihr Kuno Schaelkle

==============================================================
> Möglicher Ausweg: Mit TUSCRIPT  die betroffenen Zahlenpaare
> kennzeichnen und dann im Editor diese Kennzeichnung suchen:
>
>
> $$! quelle, ziel
> $$-
> $$ MODE TUSCRIPT
>
> SET status = CHECK (quelle, READ, TUSTEP)
> ERROR/STOP "QUELLE: ", status
>
> SET status = CHECK (ziel, WRITE, TUSTEP)
> ERROR/STOP "ZIEL: ", status
>
> SET status = UNIQUE (quelle, ziel)
> ERROR/STOP "Datei ", status, " ist mehrfach angegeben"
>
> COMPILE
>
> BUILD S_TABLE ttab = ":<>>/-<>>/:"
>
> ACCESS q: READ/STREAM/RECORDS "{quelle}" ...
>                sn.zn/un, aken + text/ttab + eken, typ
> ACCESS z: WRITE/ERASE/STREAM   "{ziel}"  ...
>                sn.zn/un, aken + text      + eken
>
> LOOP/999999
>   READ/NEXT/EXIT q
>   IF (typ.EQ.4)  THEN
>      SET egal = SPLIT (text, ":-:", z1, z2)
>      SET zz = z1 + 1
>      IF (zz.EQ.z2)  SET text = CONCAT ("[[", text, "]]")
>   ENDIF
>   WRITE z
> ENDLOOP
>
> ENDACCESS/PRINT q
> ENDACCESS/PRINT z
>
> ENDCOMPILE
>
> Damit werden alle betroffenen Zahlenpaare in [[ und ]] eingeschlossen.
>
> Mit der Tabelle ttab werden Zahlenpaare als "Trennzeichen" definiert.
> Immer wenn ein solches Trennzeichen auftritt (typ=4), werden die
> beiden Zahlen auf z1 und z2 aufgeteilt und dann abgefragt, ob die
> beiden Werte unmittelbar aufeinander folgen.