[Tustep-Liste] a tergo-Sortieren

[Thomas Kollatz]

Liebe Frau Storeck, 
auch wenn Ihr Problem schon gelöst wurde, habe ich mich dennoch nicht 
abhalten lassen, auch noch einmal mit Kommandomakros "a tergo" zu 
sortieren.

Das zu sortierende Datenfeld ist in der Beispieldatei durch <ort>...
</ort> markiert.

Beispieldaten (quelle):
<ort>Warschau</ort>
<ort>Paris</ort>
<ort>Austerlitz</ort>
<ort>Xanten</ort>
<ort>Trier</ort>
<ort>Pisa</ort>
<ort>Frankfurt</ort>

--------------------------------

$$! quelle, zd1, zd2
$$=- {}
mode variable

SET status = CHECK (quelle,READ,TUSTEP)
ERROR/STOP "quelle: ", status
SET status = CHECK (zd1,WRITE,TUSTEP)
ERROR/STOP "zd1: ", status
SET status = CHECK (zd2,WRITE,TUSTEP)
ERROR/STOP "zd2: ", status

-Standard-Sortierung:
SET unsortiert = file (quelle)
- alphabetisch sortiert:
SET a_z = alpha_sort (unsortiert)
FILE/ERASE "{zd1}"
DATA Standard-Sortierung
DATA {a_z}
ENDFILE

-Rückläufige Sortierung:
BUILD S_TABLE apos = ":<<ort>>:"
BUILD S_TABLE epos = ":<</ort>>:"
SET z_a = turn (unsortiert, -, apos|, epos)
SET z_a = ALPHA_SORT (z_a)
SET z_a = turn (z_a, -, apos|, epos)
FILE/ERASE "{zd2}"
DATA Rückläufige Sortierung
DATA {z_a}
ENDFILE

--------------------------------

Ergebnis (zd1): 
Standard-Sortierung
<ort>Austerlitz</ort>
<ort>Frankfurt</ort>
<ort>Paris</ort>
<ort>Pisa</ort>
<ort>Trier</ort>
<ort>Warschau</ort>
<ort>Xanten</ort>

Ergebnis (zd2): 
Rückläufige Sortierung
<ort>Pisa</ort>
<ort>Xanten</ort>
<ort>Trier</ort>
<ort>Paris</ort>
<ort>Frankfurt</ort>
<ort>Warschau</ort>
<ort>Austerlitz</ort>

Herzliche Grüße
THOMAS KOLLATZ

Am 09.12.2005 09:46:28, schrieb "Christiane storeck" <c_storeck at st-
georgen.uni-frankfurt.de>:

>
>
>  Datum:  Fri, 09 Dec 2005 09:46:28 +0100
>
>  Von:    "Christiane storeck" <c_storeck at st-georgen.uni-frankfurt.de>
>  An:     <tustep-liste at itug.de>
>  Kopie
>  (Cc):
>  Betreff:[Tustep-Liste] a tergo-Sortieren
>
>
>
>  Liebe TUSTEPler,
>  ich möchte ein Datenfeld meiner strukturierten Daten vom Satzende her
>  sortieren.
>  Wie kann ich das mit TUSTEP bewerkstelligen ?
>  Da gibt es doch bestimmt Erfahrungen! Für Hinweise wäre ich sehr 
dankbar.
>   
>  Mit freundlichen Grüßen 
>  Christiane Storeck
>   
>  Hugo von Sankt Viktor-Institut
>  Phil.-Theol. Hochschule St. Georgen
>  Offenbacher Landstr. 224
>  60599 Frankfurt am Main
>  Tel.: 069/6061-222

-- 
drs Thomas Kollatz - wissenschaftlicher Mitarbeiter / research assistant
Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte
D - 47057 Duisburg, Geibelstrasse 41, Tel: 49-203-370071
www.steinheim-institut.de/das_institut/mitarbeiter/kollatz/index.xml