AW: [Allegro] Trick 74 : Globale Dollarkrise (Den $ global ersetzen)

[Klaus Lehmann]

On Tue, 1 Dec 2009 09:57:30 +0100 Thomas Fischer wrote:

guten tag herr fischer
ich verfolge mit spannung die "dollarkrise".
könnten sie bitte die (korrigierte) endfassung der hier vorgeschlagenen
lösung mal veröffentlichen? 
das wäre sehr nett. 
viele kollegen haben bestimmt mitgelesen, und wissen evtl nicht -wie
ich- was nun die richtige lösung ist.
danke, ihr klaus lehmann



<>
<>Hallo Herr Allers,
<> 
<>danke für den Hinweis!
<>Ich hatte zu kurz gelesen:
<> 
<>first [Gegenteil: last ] avanti
<>first r 
<>            Der erste Satz der Erg.menge, in der vorher eingestellten
<>Sortierfolge, wird geladen.
<>            Mit if no ... kann man checken, ob es keinen solchen
gibt, weil
<>die Ergebnismenge leer ist.
<>
<>und nicht weiter gelesen:
<>
<>            Mit first r wird nur die Kurzzeile in die  iV  geladen,
der Satz
<>selbst nicht. 
<>
<>Das erklärt vieles...
<>
<>Und danach stimmt auch der Zähler der Ergebnismenge.
<>
<>Mit freundlichen Grüßen
<>Thomas Fischer 
<>
<>
<>
<>
<>  _____  
<>
<>Von: allegro-bounces at biblio.tu-bs.de
<>[mailto:allegro-bounces at biblio.tu-bs.de] Im Auftrag von Heinrich
Allers
<>Gesendet: Dienstag, 1. Dezember 2009 01:13
<>An: Allegro-C Diskussionsliste
<>Betreff: Re: [Allegro] Trick 74 : Globale Dollarkrise (Den $ global
<>ersetzen)
<>
<>
<>Herr T. Fischer teilte mit:
<>
<>
<>> ich experimentiere mit der Schleife in Ihrem Trick 74 in einem
reduzierten
<>> Flex mit dem folgenden Inhalt:
<>> 
<>> _____________________________
<>> 
<>> 
<>> first r
<>> ...
<>> if not *#14_$_ jump weiter
<>> ...
<>> :weiter
<>> next r
<>> ...
<>
<>
<>> So wie er da steht sollte er m.E. das Auftreten der $-Zeichen
zählen.
<>> ....
<>
<>
<>Nein, das kann er nicht, denn in dem Hilfetext xnext.rtf steht:
<>
<>
<>next r  holt nur die Kurzzeile des Satzes in die  iV  und lädt nicht
den
<>Satz selbst. 
<>
<>
<>Mit 'first r' und 'next r' sich durch eine Ergebnismenge arbeitend
kann man
<>also nicht den Datensatzinhalt untersuchen, geschweige denn diese
<>Untersuchung auf bestimmte Felder beziehen.
<>
<>
<>Es geht so (praktisch von mir ausprobiert):
<>
<>
<>
<>
<>first
<>   Jeder Satz wird in dieser Schleife verarbeitet:
<>:schleife
<>             kein Satz mehr, Ende erreicht
<>if no jump exit
<>   falls der Satz gelöscht ist: nächster Satz
<>if del jump weiter
<>
<>
<>   Kommt $ in #14 vor? Wenn nicht, -> :weiter
<>
<>
<>if not *#14_$_ jump weiter
<>
<>
<>z + 1
<>   Nächsten Satz holen
<>:weiter
<>next
<>jump schleife
<>
<>
<>:exit
<>var 'Zähler: ' z
<>mes
<>
<>
<>
<>
<>Mit besten Grüßen von
<>
<>
<>Heinrich Allers
<>
<>allers at t-online.de * http://www.h-allers.de
<>Netztagebuch: http://heinrich-erlo-ger.blogspot.com/
<>Bitácora: http://heinrich-erlo-spa.blogspot.com/
<>
<>