[Tustep-Liste] Kopiere-Austauschtabelle

[Oliver Gasperlin]

Lieber Herr Hellmann,

hier noch eine TUSCRIPT-Lösung, die ohne Sortieren auskommt und den kleinen
Vorteil hat, dass Ihre Parameter-Karten in der Reihenfolge der Ausgangsdatei
stehen bleiben.

#makro
$$ MODE TUSCRIPT
SET a = FILE ("parameter_1"), b=*
LOOP/99999
   SET zeilen = SIZE (a)
   IF (zeilen.eq.0) EXIT
   SET a = REMOVE (a, 1, auswahl)
   SET b = COLLECT (b, auswahl)
ENDLOOP
FILE/ERASE "parameter_2" = b
*eof

1. Die Daten aus der Datei mit der "parameter_1" werden in die Variable a
gelesen; die Sternvariable b wird definiert.
2. In der Schleife wird ein Satz (eine Teilzeichenfolge) nach dem (der)
anderen a) aus der Variable a entfernt (REMOVE) und in die Variable auswahl
geschrieben sowie b) aus der Variable auswahl in die Variable b geschrieben,
wobei geprüft wird, ob dieser Satz in der Variable b schon vorhanden ist, in
welch letzterem Fall er nicht hineingeschrieben wird (COLLECT).
3. Schließlich wird die Variable b in die Datei "tabelle_2" geschrieben.

(Die ersten beiden Zeilen im Loop sind nur dazu da, die Schleife zu beenden,
sobald in der Variable a keine Teilzeichenfolgen mehr übrig sind.)


Beste Grüße
Oliver Gasperlin