[Tustep-Liste] Begriffsregister

[Claudio Notz]

Sehr geehrter Herr Schälkle,
sehr geehrter Herr Bohnert,

vielen Dank für Ihre beiden Vorschläge! Das ist ja unglaublich, wie
schnell man in der Tustep-Liste eine Antwort bekommt. Nein, eine
Antwort ist untertrieben! Man bekommt gleich mehrere Programme, zur
Problemlösung. Das scheint mir hier einzigartig zu sein.

Herrn Bohnerts Vorschlag funktioniert wunderbar, zur Probe von Herrn
Schälkles komme ich leider erst morgen, weil ich auf dem Sprung bin.
Eine kleine Frage ist da noch: Ersetze ich jedes Quelle/Ziel mit
meiner Quelle und meinem Ziel? - Und müssen das permanente Dateien
sein?

Herzliche Grüsse
Claudio Notz

Am 19. Januar 2012 17:47 schrieb Kuno Schaelkle
<schaelkle at zdv.uni-tuebingen.de>:
> Diskussionsforum Tustep-Liste
> Weitere Informationen: www.itug.de
> ------------------------------------------------------------
>
> Sehr geehrter Herr Notz,
>
> -----------------------------------------------------
>
>> <re>êwangeli</re>       <rf><r>4,3</r>  <r>375,3</r></rf>
>> <re>geist</re>          <rf><r>422,1</r></rf>
>> <re>heilig</re>         <rf><r>50,3</r> <r>263,6</r></rf>
>>
>> Diese Liste möchte ich nun in folgende überführen, damit ich sie
>> schlussendlich sortieren und zur Korrektur verwenden kann:
>>
>> <r>4,3</r>      <re>êwangeli</re>
>> <r>50,3</r>     <re>heilig</re>
>> <r>263,6</r>    <re>heilig</re>
>> <r>375,3</r>    <re>êwangeli</re>
>> <r>422,1</r>    <re>geist</re>
>
> -------------------------------------------------------
>
> das folgende Makro sollte diese Aufgabe erledigen.
>
> Mit freundlichen Grüßen
> Kuno Schälkle
>
> ---------------------------------------------------------
>
> $$! quelle, ziel
> $$-
> $$ MODE TUSCRIPT
>
> SET status = CHECK (quelle, READ, TUSTEP)
> ERROR/STOP "QUELLE: ", status
>
> SET status = CHECK (ziel, WRITE, TUSTEP)
> ERROR/STOP "ZIEL: ", status
>
> SET status = UNIQUE (quelle, ziel)
> ERROR/STOP "Datei ", status, " ist mehrfach angegeben"
>
> COMPILE
>
> ACCESS q: READ/RECORDS "{quelle}" sn.zn/un, zeile
>
> SET zeilen = *
> LOOP/999999
>   READ/IGNORE/EXIT q
>   SET text = EXTRACT (zeile, |":<<re>>:", ":<</re>>:"|)
>   SET refs = EXTRACT (zeile, ":<<rf>>:"|, |":<</rf>>:")
>   SET refs = EXCHANGE (refs, ":<> :':")
>   LOOP ref = refs
>      SET zeile  = CONCAT (ref, " ", text)
>      SET zeilen = APPEND (zeilen, zeile)
>   ENDLOOP
> ENDLOOP
>
> ENDACCESS/PRINT q
>
> SET zeilen = MIXED_SORT (zeilen)
>
> FILE/ERASE/PRINT "{ziel}" = zeilen
>
> ENDCOMPILE
>
> ------------------------------------------------------------
> Tustep-Liste at itug.de
> https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste