[Tustep-Liste] #ko

[Thomas Kollatz]

Lieber Herr Moser,

es muss nicht immer #ko sein .... auch #ma führt zum Ziel.

Und auch wenn es nicht so aussieht, musste ich doch nur zwei Zeilen  
schreiben:
1. Die Spezifikation von quelle und ziel in Zeile 2;
2. Die Anweisungszeile: If (text.sw."b") SET text = CONCAT  
("<TagNeu>",text)

Den Rest liefert das Standardmakro #*koma frei Haus, da musste ich  
nur die Zeilen zum portionsweisen kopieren löschen.

#ma
$$! quelle=nliste, ziel=tmp.1
$$-
$$ MODE TUSCRIPT

- Spezifikationen prüfen

SET status = CHECK (quelle, READ, TUSTEP)
ERROR/STOP "QUELLE: ", status

SET status = CHECK (ziel, WRITE, TUSTEP)
ERROR/STOP "ZIEL: ", status

SET status = UNIQUE (quelle, ziel)
ERROR/STOP "Datei ", status, " ist mehrfach angegeben"

COMPILE
- Satzweise kopieren

ACCESS q: READ       /RECORDS "{quelle}" sn.zn/un, text
ACCESS z: WRITE/ERASE/RECORDS  "{ziel}"  sn.zn/un, text

- Daten kopieren

LOOP/999999
    READ/NEXT/EXIT q
  - Hier Anweisungen zum Auswählen/Ändern der Daten einfügen
IF (text.sw."b") SET text = CONCAT  ("<TagNeu>",text)
    WRITE z
ENDLOOP

ENDACCESS/PRINT q
ENDACCESS/PRINT z

ENDCOMPILE
*eof

Herzliche Grüße
THOMAS KOLLATZ

drs Thomas Kollatz  - wissenschaftlicher Mitarbeiter / research  
assistant
<http://steinheim-institut.de/das_institut/mitarbeiter/kollatz/ 
index.xml>
Salomon Ludwig Steinheim-Institut fuer deutsch-juedische Geschichte
D-47057 Duisburg, Geibelstr. 41, T: 203 - 370071,  F: 203 - 373380
<http://maps.google.de/maps?f=q&hl=de&q=Geibelstr.+41,+Du>



> Wenn ich Sie richtig verstehe, soll z.B. in der
> folgenden exemplarischen Liste
> ===============================================
> Adam, Eva
> Appel, Norbert
> Berndt, Dieter
> Brandel, Josef
> Buddel, Horst
> Caesar, Julius
> Christen, René
> David, Hans
> Drosselbart, König
> ...
> ===============================================
> das erste Vorkommen eines Namens, der mit 'b'
> beginnt, (und *nur* dieses *eine* Vorkommen) mit
> einem bestimmten Tag versehen werden. Das Ergebnis
> soll also so aussehen:
> ===============================================
> Adam, Eva
> Appel, Norbert
> <TagNeu>Berndt, Dieter
> Brandel, Josef
> Buddel, Horst
> Caesar, Julius
> Christen, René
> David, Hans
> Drosselbart, König
> ...
> ===============================================
>

> Wenn ich recht habe, probieren Sie es bitte einmal mit
>
> #ko,nliste,tmp.1,,+,*
> ws+   1   1
> ta+   1   |b|
> erg   1   |<TagNeu>|
> wss   1   1
> spw        3
> spn        3
> sp2        3
> *eof
>
>
> Viele Gruesse reihum von
>
> Michael Trauth
>
> ---------------------------------------------------------------
> Dr. Michael Trauth                  e-mail: trauth at uni-trier.de
> Rechenzentrum                       office: Tel. 0651-201-3413
> der Universitaet                            Fax  0651-201-3921
> Universitaetsring                secretary: Tel. 0651-201-3417
> D-54286 Trier
> ---------------------------------------------------------------
>
> ------------------------------------------------------------
> Tustep-Liste at itug.de
> https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste