[Tustep-Liste] Geschachtelte Tags auflösen

[Oliver Gasperlin]

Lieber Herr Stahl,

hier noch eine andere TUSCRIPT-Lösung, bei der einfach nur die Records
gelesen werden:

#makro
$$ MODE TUSCRIPT
SET n = 1

ACCESS q: READ/RECORDS "e2" sn.zn/un, txt, anz
ACCESS z: WRITE/ERASE/RECORDS "e3" sn.zn/un, txt

LOOP/999999
   READ/NEXT/EXIT q
      SET txt = MARK (txt, "\\", "|<<add|", "|<</add|", n)
      SET txt = EXCHANGE (txt, "|\\<>>/<<></add|<<<=04add>=03|")
   WRITE/CLEAR z
ENDLOOP

ENDACCESS q
ENDACCESS z
*eof

Das EXCHANGE kann natürlich auch so angepasst werden, dass XML-konforme
Attribute mit Zähler-Werten entstehen.

Das Ding ist, so wie es da steht, lauffähig und braucht (nach Anpassung der
Dateinamen) nur in eine Datei kopiert und ausgeführt zu werden.


Mit besten Grüßen
Oliver Gasperlin




"xx <add> aa <add> bb> <add> cc </add> bb </add> aa </add> xx

daraus

xx <add1> aa <add2> bb <add3> cc </add3> bb </add2> aa </add1> xx"

------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste