<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p>LIeber Wieland,</p>
<p>vielen Dank für Deine Antwort.</p>
<p>Diese Fassung sollte jetzt ohne HTML-Code sein - woher der kam,
weiß ich nicht. <br>
</p>
<p>Auch der Fehler ist beseitigt.</p>
<pre>DATEN:
Ende des 16. Jh.von 1596 1678-1679 8
4-5 17 5-6
nix
nix
ERGEBNIS:
Ende des 16. Jh.von 1596 1678-1679 8 +++ Paare: 1678-1679
4-5 17 5-6 +++ Paare: 4-5 und 5-6 </pre>
<pre wrap="">$$MODE TUSCRIPT, {}
SET quelle = "reeg_zahl.tf"
SET ziel = "reeg_zahl_.tf"
ACCESS q: READ/RECORDS $quelle sq.zq/uq, text
ACCESS z: WRITE/RECORDS $ziel sq.zq/uq, text
- Differenz, die zwischen Zahl 1 und Zahl 2 bestehen soll.
SET diff=1
LOOP/99999
READ/NEXT/EXIT q
- Im Satz werden Zahlenpaare n-n gesucht.
- Sie stehen dann in der Variablen zahlP
SET zahlen = STRINGS (text,"|{#}-{#}|",1,0,1,0,"'")
- Wenn nichts gefunden wurde, wird der nächste Satz eingelesen
IF (zahlen=="") CYCLE
- Die Teilzeichenfolgen der Variable zahlen werden abgearbeitet
LOOP/CLEAR lp = zahlen
- Trennen der Zahlen
nix = SPLIT (lp,":-:",n1,n2)
- n1 wird um diff erhöht
SET n1 = n1+diff
- Auf der Variablen zahlen werden die Treffer gesammelt.
IF (#n1==n2) SET zahlen = APPEND (zahlen," und ",lp)
ENDLOOP
IF (zahlen=="") CYCLE
- Nur Treffer werden an den Satz angehängt und ausgegeben
SET text= CONCAT (text," +++ Paare: ",zahlen )
WRITE z
ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z
</pre>
<p>Grüße aus Berlin</p>
<p>Gottfried Reeg </p>
<br>
<div class="moz-cite-prefix">Am 25.02.2017 um 00:39 schrieb
Gottfried Reeg:<br>
</div>
<blockquote
cite="mid:59e50273-3ce9-1981-e3ef-07a94731b28c@seegelken-reeg.de"
type="cite">
<pre wrap="">Diskussionsforum Tustep-Liste
Weitere Informationen: <a class="moz-txt-link-abbreviated" href="http://www.itug.de">www.itug.de</a>
------------------------------------------------------------
</pre>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<meta http-equiv="Context-Type" content="text/html; charset=utf-8">
<p>LIeber Wieland,</p>
<p>ein Klecks Senf aus Berlin sollte nun doch nicht mehr fehlen.</p>
<p>Hier eine Lösung mit TUSCRIPT. Wegen des Kommentars ist's etwas
länger geworden.<br>
</p>
DATEN: <br>
Ende des 16. Jh.von 1596 1678-1679 8 <br>
4-5 17 5-6 <br>
nix <br>
nix <br>
<br>
ERGEBNIS: <br>
Ende des 16. Jh.von 1596 1678-1679 8 +++ Paare: 1678-1679 <br>
4-5 17 5-6 +++ Paare: 4-5 und 5-6 <br>
<p>----------------------------<br>
</p>
<br>
<br>
$$MODE TUSCRIPT, {}<br>
ACCES RECORDS $quelle sq.zq/uq, text <br>
ACCESS z: WRITE/RECORDS $ziel sq.zq/uq, text <br>
-Differenz, die zwischen Zahl 1 und Zahl 2 bestehen soll. <br>
SET diff=1 <br>
LOOP READ/NEXT/EXIT q <br>
- Im Satz werden Zahlenpaare n-n gesucht. <br>
- Sie stehen dann in der Variablen zahlP <br>
SET zahlen = STRINGS (text,"|{#}-{#}|",zahlP,1,0,1,0,"'")<br>
- Wenn nicht gefunden wurde, wird der nächste Satz eingelesen <br>
IF (zahlen=="") CYCLE <br>
- Die Teilzeichenfolgen der Variable zahlen werden abgearbeitet<br>
LOOP/CLEAR lp = zahlen <br>
- Trennen der Zahlen <br>
nix = SPLIT (lp,":-:",n1,n2) <br>
- n1 wird um diff erhöht <br>
SET n1 = n1+diff<br>
- Auf der Variablen zahlen werden die Treffer gesammelt. <br>
IF (#n1==n2) SET zahlen = APPEND (zahlen," und ",lp) <br>
ENDLOOP <br>
IF (zahlen=="") CYCLE <br>
- Nur wenn es Treffer, werden sie an den Satz angehängt und
ausgegeben <br>
SET text= CONCAT (text," +++ Paare: ",zahlen ) <br>
WRITE z <br>
ENDLOOP<br>
ENDACCESS/PRINT q<br>
ENDACCESS/PRINT z <br>
<p>--------------------------------------------------------------<br>
</p>
Grüße aus Berlin<br>
Gottfried Reeg<br>
<p><br>
</p>
<br>
<div class="moz-cite-prefix">Am 24.02.2017 um 22:42 schrieb Dr.
Michael Trauth:<br>
</div>
<blockquote
cite="mid:HE1PR0202MB276272BD5A5D6F2DE2F8765EFB520@HE1PR0202MB2762.eurprd02.prod.outlook.com"
type="cite">
<pre wrap="">Diskussionsforum Tustep-Liste
Weitere Informationen: <a moz-do-not-send="true" class="moz-txt-link-abbreviated" href="http://www.itug.de">www.itug.de</a>
------------------------------------------------------------
Lieber Wieland,
kaum hatte ich die Sendetaste meines letzten Postings gedrückt, da fiel mir auch schon ein, wie mein #kopiere-Snippet noch einmal um drei Zeilen verschlankt (und auch ein bißchen kryptischer gestaltet) werden kann. Bitte sehr:
#ko,q,z,,+,*
par {}
zf+ 1 |{#}-{#}|
al 1 = zf+
liv 1 i1 i2
rr 1 if ((iabs(i2)).eq.(i1+1)) goto 22; goto 32;
xx 2 |{\0}{[}-{|}{#}*|::{=2=}|
xx 3 |{\0}{[}-{|}{#}*|!!{=2=}|
spn 3
sp2 8 11 11
xxx |{\0}{[}!!{]}{\0}|-|
*eof
Viele Grüße reihum von
Michael Trauth
------------------------------------------------------------
<a moz-do-not-send="true" class="moz-txt-link-abbreviated" href="mailto:Tustep-Liste@itug.de">Tustep-Liste@itug.de</a>
<a moz-do-not-send="true" class="moz-txt-link-freetext" href="https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste">https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste</a></pre>
</blockquote>
<br>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">
------------------------------------------------------------
<a class="moz-txt-link-abbreviated" href="mailto:Tustep-Liste@itug.de">Tustep-Liste@itug.de</a>
<a class="moz-txt-link-freetext" href="https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste">https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste</a></pre>
</blockquote>
<br>
</body>
</html>