[Tustep-Liste] Kopieren - Austauschen - Nur 1 x kopieren

[wolfram.schneider-lastin at phil.uzh.ch]

Liebe TUSTEP-Comunity

Ich habe mir erlaubt, die Lösungen Bohnert (TUSTEP) und Kollatz (TUSCRIPT) zur Aufgabe von Herrn Neumann (leicht modifiziert) ins Wiki aufzunehmen.

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.

Herzliche Grüße aus Zürich

Wolfram Schneider-Lastin

---

Dr. Wolfram Schneider-Lastin
Universität Zürich
Leiter der Abteilung E-Learning an der Philosophischen Fakultät
Koordinator für Computerphilologie
1. Vorsitzender der International TUSTEP User Group (ITUG)
Rämistrasse 69
CH-8001 Zürich

Tel.:  +41 - 44 - 634 50 82
       (wenn keine Antwort: +41 - 44 - 252 07 67)

Mail: wolfram.schneider-lastin at phil.uzh.ch
Web:  http://www.phil.uzh.ch/fakultaet/elearning.html

-----tustep-liste-bounces at lists.uni-wuerzburg.de schrieb: -----
An: TUSTEP-Liste <tustep-liste at itug.de>
Von: Thomas Kollatz 
Gesendet von: tustep-liste-bounces at lists.uni-wuerzburg.de
Datum: 17.11.2013 12:58
Betreff: Re: [Tustep-Liste] Kopieren - Austauschen - Nur 1 x kopieren

Diskussionsforum Tustep-Liste
Weitere Informationen: www.itug.de
------------------------------------------------------------

Lieber Herr Neuman, 
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. 
Das Ergebnis in der Datei jahrneu sieht dann so aus: 

<jahr>1963</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr/>           sdfasdfg, asdfsdfsdf (xx)
<jahr>1974</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr>1983</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr/>           sdfasdfg, asdfsdfsdf (xx)
<jahr>1991</jahr> sdfasdfg, asdfsdfsdf (xx)
 
Herzliche Grüße an die Runde
THOMAS KOLLATZ

$$ MODE TUSCRIPT,{}
MODE DATA
$$ daten=*
<jahr>1963</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr>1963</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr>1974</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr>1983</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr>1983</jahr> sdfasdfg, asdfsdfsdf (xx)
<jahr>1991</jahr> sdfasdfg, asdfsdfsdf (xx)
$$ MODE TUSCRIPT
quelle="jahralt",ziel="jahrneu"

ERROR/STOP CREATE (quelle,seq-o,-std-)
ERROR/STOP CREATE (ziel,  seq-e,-std-)
FILE/ERASE $quelle = daten

jahralt=0,substitut="<jahr/>          "

ACCESS q: READ/RECORDS  $quelle s.z/u, zeile
ACCESS z: WRITE/RECORDS $ziel   s.z/u, zeile
LOOP/99999999
 READ/NEXT/EXIT q
  jahr=EXTRACT (zeile,":<jahr>:"|,":</jahr>:")
  IF (jahr==jahralt) zeile=SUBSTITUTE (zeile,-,":<jahr>:",":</jahr>:"|, substitut)
  jahralt=VALUE(jahr)
 WRITE z
ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z	


drs Thomas Kollatz  - wissenschaftlicher Mitarbeiter / research assistant
Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte
D-45127 Essen * Edmund-Koerner-Platz 2 * T  0201-82162910  * skype kollatzthomas
HP http://www.steinheim-institut.de/wiki/index.php/Mitarbeiter:Thomas_Kollatz

===  Projekte / projects ===
Epigraphische Datenbank <http://www.steinheim-institut.de/cgi-bin/epidat>
RiR - Relationen im Raum <https://dev2.dariah.eu/wiki/display/RIRPUB/RiR>
DARIAH-DE <http://de.dariah.eu>
=== btw / sonst noch ===
TUSTEP-TUSCRIPT module on Rosetta Code <http://rosettacode.org/wiki/Category:TUSCRIPT>

------------------------------------------------------------
Tustep-Liste at itug.de
https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste
-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <https://lists.itug.de/pipermail/tustep-liste/attachments/20131117/2851d899/attachment.htm>