[Tustep-Liste] Zahlendubletten herausziehen

[Wolfram Brunschön]

Liebe TUSTEP-Gemeinde,

der folgende Ausgangssatz:
Text !s92 !s100^!3 !s100^!5 !s100^!7 !s130 !s130^!1 !s130^!2

soll in folgende Form gebracht werden:
Text !s92 !s100^!3.^!5.^!7 !s130 !s130^!1.^!2

D.h.:
1. lese Zahlenwert ein, der zwischen !s und ^! steht (wohl Parameter al und el)
2. vergleiche, ob der folgende Zahlenwert identisch ist (wohl liv i1 i2)
3. wenn ja, ersetze i1 durch einen Punkt.
Hier hapert es bei mir: rr   if (i2.eq.i1) i2=i1 
und eiv    i1 habe ich noch geschrieben, aber wie 
und wo da die Austauschanweisung rein soll, weiß ich nicht.

Wer weiß zu abendlicher Stunde Rat?

Liebe Grüße

Wolfram Brunschön.