[Tustep-Liste] Sortiere-Frage

[Oliver Gasperlin]

Lieber Herr Brunschön,

kleine Alternativ-Version:

#makro
$$ MODE TUSCRIPT
ACCESS q: READ/STREAM/RECORDS "tl1" sn.zn/un, an/200 + txt + en/200, typ, offen
ACCESS z: WRITE/ERASE/STREAM "tl2" sn.zn/un, an + txt + en
LOOP/9999999
   READ/QUIET/EXIT q
      IF (an.hn."Indexref") THEN
         SET txt = EXCHANGE (txt, "~; ~'~")
         SET txt = MIXED_SORT (txt)
         SET txt = EXCHANGE (txt, "~'~; ~")
      ENDIF
   WRITE/CLEAR z
ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z
*eof

Können Sie genau so in eine Datei schreiben, Quell- und Zieldatei anpassen und mit #tue abschicken.

@Herr Schälkle: Wenn man "MIXED_SORT" einen Trenner mitteilen könnte, würde es in einer Zeile funktionieren:
IF (an.hn."Indexref") SET txt = MIXED_SORT (txt, trenner)


Mit besten Grüßen
Oliver Gasperlin