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

[Thomas Fischer]

Hallo Herr Lehmann,

> 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

Gerne, ich habe den unten angegebenen Flex erfolgreich zur Umsetzung in
einer Ergebnismenge eingesetzt. Soll in der ganzen Datenbank gesucht werden,
so müssen die Zeilen

first
	und
next

durch

first #
	und
next #

ersetzt werden. Damit keine weiteren Änderungen nötig sind, habe ich die
Tests dafür im Flex belassen, sie stören nicht.
Die Möglichkeit, in einzelnen Kategorien oder im ganzen Datensatz zu suchen,
ist im Flex kommentiert.

Mit freundlichen Grüßen
Thomas Fischer 

––––––––––––––––––––––––––––––––––––––––––––––––––––– 

   DOLL.FLX : Dollarzeichen ueberall durch das Dreieck ersetzen
   2009-11-26

   Etwaige Umkodierungen deaktivieren:
set c2

first
   falls Ergebnismenge leer: Abbruch
if no jump exit
if del jump weiter

   Jeder Satz wird in dieser Schleife verarbeitet:
:schleife
	Kommt $ vor? Wenn nicht, -> :weiter
	Im ganzen Satz:
	if not _$_ jump weiter
	In einer Kategorie:
if not *#14_$_ jump weiter
z + 1
	Bei ganzem Satz:
	var kn
	Bei spezieller Kategorie:
var "#14 " #14 
	Kombination ^ und _ steht fuer das Dreieck:
insert ,$,^_,
insert
put   	speichern
   Nächsten Satz holen (Ergebnismenge bzw. interne Nummernfolge)
:weiter
next
	 kein Satz mehr, Ende erreicht
if cancel jump exit
	 der Satz ist gelöscht
if del jump weiter
	 es gab noch einen Satz? dann -> :schleife
if yes jump schleife

:exit
var 'Zähler: ' z
mes