[Tustep-Liste] zusammenfassen von Registereinträgen

[Thomas Kollatz]

Liebe Wieland,

> p.s. Verbesserungen wecken - bei mir zumindest - immer noch mehr  
> Wünsche: Um die Möglichkeiten der aufsteigenden Referenzen aus #ra  
> mit einem Kommandomakro nachbauen zu können, bräuchte es für die  
> nur um eins größere Zahl auch noch die Möglichkeit, diese entweder  
> doch auszugeben oder dies mit 'f.' kenntlich zu machen. Also neben  
> 1-3'6'8-9'... 1-3'6'8f.'... Meine Möglichkeiten beim Umgang mit der  
> Makrosprache reichen hierfür leider nicht aus.


auf Grundlage des Scripts von Herrn Schälkle lässt sich mit wenig  
Aufwand dein Wunsch erfüllen
aus  3'5'6'7'9'10'12'13'14"
wird 3'5-7'9f'12-14

Herzliche Grüße
THOMAS

$$ MODE TUSCRIPT
-TRACE ALL
SET wertealt = "3'5'6'7'9'10'12'13'14"
SET hilf = APPEND (wertealt, "999999999")
SET rest = REMOVE (hilf, 1, wert_1)
SET wert_2 = wert_1, wert_3 = wert_2 + 1
SET werteneu = ""
LOOP wert = rest
   IF (wert.NE.wert_3)  THEN
      SET werteneu = APPEND (werteneu, wert_1)
      IF (wert_1.NE.wert_2) THEN
      SET testauff=wert_1+1
        IF (testauff.EQ.wert_2) THEN
        SET werteneu = CONCAT (werteneu, "f")
        ELSE
        SET werteneu = CONCAT (werteneu, "-", wert_2)
        ENDIF
      ENDIF
      SET wert_1 = wert
   ENDIF
   SET wert_2 = wert, wert_3 = wert_2 + 1
ENDLOOP
PRINT wertealt
PRINT werteneu



drs Thomas Kollatz  - wissenschaftlicher Mitarbeiter / research  
assistant
* Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte
   D-47057 Duisburg  Geibelstr. 41 T 0203-370071  F 0203-373380
* Geschichtszentrum euregio rhein-maas-nord T 02151-5137430
Route <http://maps.google.de/maps?f=q&hl=de&q=Geibelstr.+41,+Du>
Homepage <http://134.91.195.113/wiki/index.php/ 
Mitarbeiter:Thomas_Kollatz>
Epigraphische Datenbank <http://www.steinheim-institut.de/cgi-bin/ 
epidat>