AW: AW: [Allegro] Wiederholungskategorien im Flex

[Manecke, Mathias]

Liebe Frau Koczian, liebe Liste,

Ich habe Ihre Idee aufgegriffen und wie u. a. geändert (Aus "nn" habe ich "9E" gemacht, um bei mir testen zu können.) So sollte es funktionieren und auch schnell genug sein.

Mit freundlichen Grüßen
Mathias Manecke

    Kategorienummer der ersten Kategorie in iV
var k_1(0,3)
    Schleife
:next
    wenn erste #9E gefunden, Schleife beenden
if "9E" jump gefunden
    wenn keine #9E gefunden, gar nichts tun
if "" end
    Kategorienummer der nächsten Kategorie in iV
var k_2(0,3)
jump next

    mindestens eine #9E wurde gefunden
:gefunden
ins #uwA 
:loop
     Ist die aktuelle Kategorie gerade die uninteressante? 
var #uwA 
if "9E3" jump wt
     Nein, es ist eine der interessanten: ausgeben
mes
:wt
var #uwA(0,3)         aktuelle Kategorienummer herausholen
     Naechste Kategorie, wieder mit Kategorienummer und ohne #. 
var k_2
ins #uwA
if "9E" jump loop
:ende

>-----Ursprüngliche Nachricht-----
>Von: allegro-bounces at biblio.tu-bs.de 
>[mailto:allegro-bounces at biblio.tu-bs.de] Im Auftrag von Sibylle Koczian
>Gesendet: Montag, 21. Februar 2005 11:22
>An: Allegro-C Diskussionsliste
>Betreff: Re: AW: [Allegro] Wiederholungskategorien im Flex
>
>
>Lieber Herr Manecke, liebe Liste,
>
>At 14:48 18.02.2005, you wrote:
>>Liebe Frau Koczian,
>>
>>Nicht sehr elegant, aber eventuell für Sie brauchbar:
>>
>>:start
>>var "124567890"
>>ins #ulg
>
>Dies werde ich noch untersuchen. Mit zu vielen oder gar beliebigen 
>Wiederholungszeichen wuerde die Loesung vemutlich langsam, 
>aber in meinem 
>Fall muesste es eigentlich gehen.
>
>Beim Studium der Dokumentation hatte ich noch eine andere 
>Idee, die nur 
>leider nicht funktioniert:
>
>    Kategorienummer der letzten #nnf in Anwendervariable:
>_nn:(0,3)
>insert #uwZ
>    Keine #nnf da: Schluss
>if "" jump ende
>    Erste #nnf in Anwendervariable, mit der Kategorienummer: 
>variable _nn. insert #uwA :loop
>     Ist die aktuelle Kategorie gerade die uninteressante? 
>variable #uwA if "nn3" jump wt
>     Nein, es ist eine der interessanten: ausgeben
>message
>:wt
>variable #uwA(0,3)         aktuelle Kategorienummer herausholen
>     War es schon die letzte #nnf?
>if =#uwZ jump ende
>     Naechste Kategorie, wieder mit Kategorienummer und ohne 
>#. *** Dies 
>geht leider nicht wie gewuenscht, s. unten
>variable k_2
>insert #uwA
>if yes jump loop
>:ende
>
>Das Original ist natuerlich vollgestopft mit message-Befehlen.
>
>Es waere so schoen, aber leider geht die ganze Konstruktion 
>deshalb nicht, 
>wie sie soll, weil k_2 mit der ersten Kategorie (#00) beginnt, 
>wenn vorher 
>nicht k_1 benutzt wurde. Mit #nn. arbeitet es anscheinend 
>nicht zusammen, 
>schade.
>
>Man koennte natuerlich auch den Schleifenanfang durch Vergleich der 
>aktuellen Kategorienummer mit #nn. finden, aber das eignet 
>sich bestenfalls 
>fuer Kategorien mit niedrigen Nummern.
>
>Beste Gruesse, Koczian
>
>
>Dr. Sibylle Koczian
>Universitaetsbibliothek, Abt. Naturwiss.
>D-86135 Augsburg
>
>Tel.: (0821) 598-2400, Fax : (0821) 598-2410
>e-mail : Sibylle.Koczian at Bibliothek.Uni-Augsburg.DE
>
>_______________________________________________
>Allegro mailing list
>Allegro at biblio.tu-bs.de 
>http://sun250.biblio.etc.tu-bs.de/mailman/listinfo/allegro
>