[Allegro] Zusammenfassung von Kategorien

[Anando Eger]

Hallo Herr Fischer,

evtl. gibt Ihnen dieses Beispiel einen Anhaltspunkt für die Lösung 
Ihres Problems per Flex.

Das können Sie in der Demo-Datenbank ausprobieren:

---- folgendes als test.flx speichern -------------------

  // Vorbereitung des Testfalls

var "Hallo"\ins #81
var "Hallo2"\ins #812
var "Hallo3"\ins #813
var "Hallo4"\ins #814
var "Hallo5"\ins #815
var "Hallo6"\ins #816
sho rec

mes pause

  // Diese Funktion erledigt die Arbeit
perf collect_and_put
jump ende


  //--------------------------------------
:collect_and_put
  //--------------------------------------
  
  // zuerst Liste der erwarteten Folgezeichen definieren
var "2345678"\ins $sFolgezeichen

  // in dieser Kat soll alles gesammelt werden
var "#81 " #81\ins $kZiel

:Loop
var $sFolgezeichen (0,1)\ins $c
var "#81" $c\var\ins $tmp
if "" jump LoopNext
var $kZiel " ; " $tmp\ins $kZiel
  // übernommene Kat löschen
var "#81" $c\ins

:LoopNext
  // "verbrauchtes" Folgezeichen aus Liste löschen
var $sFolgezeichen (1,0)\ins $sFolgezeichen
if not "" jump Loop

:LoopEnd
var $kZiel\ins
  // aktivieren, wenn Test o.k.
  // put
return
  //--------------------------------------

:ende
sho rec
end

-------------- Ende Test.flx --------------


Viele Grüße
Anando Eger

-------------------------------------------------------------------
Anando Eger Datenverarbeitung
Herr Dipl.-Ing. Anando Eger
Gustav-Voigt-Str. 24
01156 Dresden
Tel.: +49 (0)351 454 1236  http://www.aneg-dv.de
Fax: +49 (0)351 454 1238  mailto:a.eger at aneg-dv.de
-------------------------------------------------------------------
== Wir sprechen deutsch. ==