[Tustep-Liste] Kopiere-Austauschtabelle

[Oliver Gasperlin]

Lieber Michael,

danke für den Hinweis. Derartige Loops verwende ich immer mal wieder, aber
auf die Schnelle habe ich daran vorbei gedacht.

Beste Grüße
Oliver

-----Ursprüngliche Nachricht-----
Von: tustep-liste-bounces at lists.uni-wuerzburg.de
[mailto:tustep-liste-bounces at lists.uni-wuerzburg.de] Im Auftrag von Michael
Trauth
Gesendet: Samstag, 8. August 2009 18:49
An: tustep-liste at itug.de
Betreff: Re: [Tustep-Liste] Kopiere-Austauschtabelle

Diskussionsforum Tustep-Liste
Weitere Informationen: www.itug.de
------------------------------------------------------------


Lieber Oliver,

von Deinem Vorschlag war ich ganz entzückt, weil mir
das COLLECT als hier verwendbare (und vielleicht sogar
nötige bzw. erwünschte) Funktion nicht präsent war:

> $$ 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

Du hast bloß nicht daran gedacht, daß das COLLECT
das REMOVE schon selbst besorgt. Deine ohnehin schon
kurze 9-Zeilen-Lösung läßt sich deshalb noch einmal
um drei weitere Zeilen eindampfen auf:

$$ MODE TUSCRIPT
SET a = FILE ("quelle"), b = *
LOOP tmp = a
   SET b = COLLECT (b, tmp)
END LOOP
FILE/ERASE "ziel" = b

Das scheint mir im übrigen eine weitere schlagende
Werbung für Tuscript zu sein, vor allem wenn man
sich vergegenwärtigt, welche Klimmzüge mit
parametergesteuerten Prozeduren nötig wären, um
dieselbe Leistung zu realisieren.


Viele Grüße reihum von

Michael Trauth


---------------------------------------------------------------
Dr. Michael Trauth                  e-mail: trauth at uni-trier.de
Rechenzentrum                       office: Tel. 0651-201-3413
der Universitaet                            Fax  0651-201-3921
Universitaetsring                secretary: Tel. 0651-201-3417
D-54286 Trier
---------------------------------------------------------------

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