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

[Thomas Kollatz]

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>