<font face="Default Sans Serif,Verdana,Arial,Helvetica,sans-serif" size="2">Liebe TUSTEP-Comunity<br><br>Ich habe mir erlaubt, die Lösungen Bohnert (TUSTEP) und Kollatz (TUSCRIPT) zur Aufgabe von Herrn Neumann (leicht modifiziert) ins Wiki aufzunehmen.<br><br>Die Lösung mit TUSTEP-#KOPIERE finden Sie unter http://tustep.wikispaces.com/TUSTEP+-+Kopieren  (unter "Kopieren mit Vergleichstext/Merk-Vergleichstext"). Von dort führt ein direkter Link zur alternativen TUSCRIPT-Lösung.<br><br>Herzliche Grüße aus Zürich<br><br>Wolfram Schneider-Lastin<br><span><br>---<br><br>Dr. Wolfram Schneider-Lastin<br>Universität Zürich<br>Leiter der Abteilung E-Learning an der Philosophischen Fakultät<br>Koordinator für Computerphilologie<br>1. Vorsitzender der International TUSTEP User Group (ITUG)<br>Rämistrasse 69<br>CH-8001 Zürich<br><br>Tel.:  +41 - 44 - 634 50 82<br>       (wenn keine Antwort: +41 - 44 - 252 07 67)<br><br>Mail: wolfram.schneider-lastin@phil.uzh.ch<br>Web:  http://www.phil.uzh.ch/fakultaet/elearning.html</span><br><br><font color="#990099">-----tustep-liste-bounces@lists.uni-wuerzburg.de schrieb: -----</font><div style="padding-left:5px;"><div style="padding-right:0px;padding-left:5px;border-left:solid black 2px;">An: TUSTEP-Liste <tustep-liste@itug.de><br>Von: Thomas Kollatz <kol@steinheim-institut.org><br>Gesendet von: tustep-liste-bounces@lists.uni-wuerzburg.de<br>Datum: 17.11.2013 12:58<br>Betreff: Re: [Tustep-Liste] Kopieren - Austauschen - Nur 1 x kopieren<br><br><div><font face="Courier New,Courier,monospace" size="2">Diskussionsforum Tustep-Liste<br>Weitere Informationen: www.itug.de<br>------------------------------------------------------------<br><br>Lieber Herr Neuman, <br>ich weiss, dass sie ein kopiere wollen, schicke aber trotzdem mal eine TUSCRIPT Lösung über die Liste. Das Skript liest die Quelldatei jahralt zeilenweise und prüft in welchem Jahr wir sind;  wenn wir immer uns immer noch im gleichen Jahr befinden, wird die auszugebende Zeile modifiziert. <br>Das Ergebnis in der Datei jahrneu sieht dann so aus: <br><br><jahr>1963</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr/>           sdfasdfg, asdfsdfsdf (xx)<br><jahr>1974</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr>1983</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr/>           sdfasdfg, asdfsdfsdf (xx)<br><jahr>1991</jahr> sdfasdfg, asdfsdfsdf (xx)<br> <br>Herzliche Grüße an die Runde<br>THOMAS KOLLATZ<br><br>$$ MODE TUSCRIPT,{}<br>MODE DATA<br>$$ daten=*<br><jahr>1963</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr>1963</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr>1974</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr>1983</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr>1983</jahr> sdfasdfg, asdfsdfsdf (xx)<br><jahr>1991</jahr> sdfasdfg, asdfsdfsdf (xx)<br>$$ MODE TUSCRIPT<br>quelle="jahralt",ziel="jahrneu"<br><br>ERROR/STOP CREATE (quelle,seq-o,-std-)<br>ERROR/STOP CREATE (ziel,  seq-e,-std-)<br>FILE/ERASE $quelle = daten<br><br>jahralt=0,substitut="<jahr/>          "<br><br>ACCESS q: READ/RECORDS  $quelle s.z/u, zeile<br>ACCESS z: WRITE/RECORDS $ziel   s.z/u, zeile<br>LOOP/99999999<br> READ/NEXT/EXIT q<br>  jahr=EXTRACT (zeile,":<jahr>:"|,":</jahr>:")<br>  IF (jahr==jahralt) zeile=SUBSTITUTE (zeile,-,":<jahr>:",":</jahr>:"|, substitut)<br>  jahralt=VALUE(jahr)<br> WRITE z<br>ENDLOOP<br>ENDACCESS/PRINT q<br>ENDACCESS/PRINT z    <br><br><br>drs Thomas Kollatz  - wissenschaftlicher Mitarbeiter / research assistant<br>Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte<br>D-45127 Essen * Edmund-Koerner-Platz 2 * T  0201-82162910  * skype kollatzthomas<br>HP <a href="http://www.steinheim-institut.de/wiki/index.php/Mitarbeiter:Thomas_Kollatz">http://www.steinheim-institut.de/wiki/index.php/Mitarbeiter:Thomas_Kollatz</a><br><br>===  Projekte / projects ===<br>Epigraphische Datenbank <<a href="http://www.steinheim-institut.de/cgi-bin/epidat">http://www.steinheim-institut.de/cgi-bin/epidat</a>><br>RiR - Relationen im Raum <<a href="https://dev2.dariah.eu/wiki/display/RIRPUB/RiR">https://dev2.dariah.eu/wiki/display/RIRPUB/RiR</a>><br>DARIAH-DE <<a href="http://de.dariah.eu">http://de.dariah.eu</a>><br>=== btw / sonst noch ===<br>TUSTEP-TUSCRIPT module on Rosetta Code <<a href="http://rosettacode.org/wiki/Category:TUSCRIPT">http://rosettacode.org/wiki/Category:TUSCRIPT</a>><br><br>------------------------------------------------------------<br>Tustep-Liste@itug.de<br><a href="https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste">https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste</a><br></font></div></kol@steinheim-institut.org></div></div><div></div></font>