[Tustep-Liste] Kuerzen eines Textes

[Hagen Reinstein]

Lieber Herr Reeg,

> 
> gibt es eine einfache Möglichkeit mit Mittel dner Makrosprache,
> einen Text so zu verkürzen, daß nur die ersten drei und die letzten drei
> Wörter übrig bleiben?
> 
> Beispiel:
> 
> a b c d e f g h i j k
> 
> zu
> a b c ... i j k
> 

Sie können auch fifo / lifo beim stack dazu benutzen:

====================
$$= - { }
mode variable

set q = "eins zwei drei Rest Rest Rest Rest fünf sechs sieben"

set a = b = c = d = ""

set a = split (q,": :")

stack stapel create 9999
stack stapel split a

loop l1 = 1,3
stack stapel fifo b
set c = append (c," ",b)
endloop

loop l2 = 1,3
stack stapel lifo b
- N.B.: Reihenfolge - erst b, dann d!!
set d = append (b, " ",d)
endloop

set z = concat (c, " ... ",d)

+ vorher:  "{q}"
+ nachher: "{z}"

=============================
Sie brauchen bei dieser Lösung nicht zu zählen und sie ist einigermaßen 
übersichtlich.

Viele Grüße ** H. Reinstein **