[Tustep-Liste] Begriffsregister

[Claudio Notz]

Sehr geehrter Herr Schälkle

Vielen Dank für die Ausführungen zu den Makros. Ich habe jetzt ein Makro erstellt, allerdings funktioniert es nicht ganz so wie ich mir das wünsche. Es dreht einfach die Reihenfolge von Lemma und Seitenzahlen um. Mir schwebt schon eher die Lösung von Herrn Bohnert vor, in der jede Seitenzahl einen einzelnen Eintrag bekommt.

Da ich nun auch über die Lösung von Herrn Bohnert verfüge, brauchen Sie sich nicht weiter darum zu kümmern, ich danke Ihnen allen vielmals!

Herzliche Grüsse
Claudio Notz

Am 19.01.2012 um 18:42 schrieb Kuno Schaelkle:

> Diskussionsforum Tustep-Liste
> Weitere Informationen: www.itug.de
> ------------------------------------------------------------
> 
> Sehr geehrter Herr Notz,
> 
>> Eine kleine Frage ist da noch: Ersetze ich jedes Quelle/Ziel mit
>> meiner Quelle und meinem Ziel? - Und müssen das permanente Dateien
>> sein?
> 
> Sie können das Makro als Segment in Ihre Makro-Datei
> schreiben. Wenn Sie dabei z.B. den Segmentnamen REFAUFL
> verwenden, können Sie danach das Makro mit
> #$refaufl, quelldateiname, zieldateiname
> aufrufen. Dabei können Sie permanente oder temporäre
> Dateien angeben. Die Makro-Datei muss mit
> #definiere,makrodatei
> definiert worden sein.
> 
> Wenn Sie das Makro in eine Kommandofolge einfügen wollen,
> schreiben Sie davor
> #MAKRO
> und dahinter
> *eof
> und ergänzen die erste Zeile wie folgt:
> $$! quelle=quelldateiname, ziel=zieldateiname
> 
> 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