[Tustep-Liste] Antwort: Re: TUSCRIPT Leerzeile einfügen

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

Liebe TUSTEP-Community

Die Lösung von Herrn Schälkle (vielen Dank!) wurde von mir stante pede ins TUSTEP-Wiki aufgenommen, siehe

http://tustep.wikispaces.com/TUSCRIPT+-+Kopieren

unter "Leerzeilen einfügen"

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 at itug.de>
Von: Kuno Schälkle 
Gesendet von: tustep-liste-bounces at lists.uni-wuerzburg.de
Datum: 09.10.2013 14:06
Betreff: Re: [Tustep-Liste] TUSCRIPT Leerzeile einfügen

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

Lieber Herr Schneider,

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Als Frage an Herrn Schälkle/Herrn Ott:
Wäre es nicht möglich, ein LZN-Äquivalent als Funktion zu
implementieren? Der Aufwand scheint mir bei TUSCRIPT im Vgl.
zu #KOPIERE derzeit doch wesentlich höher zu sein, was
schade ist aufgrund der großen Leistungsfähigkeit (insb. in
der FDF-Verarbeitung), die ich mittlerweile für mich
entdeckt habe.
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

mit LZV bzw. LZN wird in #ko jeweils eine Leerzeile vor
allen Sätzen eingefügt, die mit einer bestimmten Zeichen-
folge beginnen, bzw. jeweils eine Leerzeile nach allen Sätzen
eingefügt, die mit eine bestimmten Zeichenfolge enden.

Dies kann man in TUSCRIPT z.B. wie folgt erreichen:

ACCESS q: READ       /RECORDS/ISO "{quelle}" n, text
ACCESS z: WRITE/ERASE/RECORDS/ISO  "{ziel}"  n, text

LOOP/999999
   READ/NEXT/EXIT q
   - Parameter LZV
   IF (text.SW."v1","v2")  WRITE/NEXT z ""
   WRITE/NEXT z
   - Parameter LZN
   IF (text.EW."n1","n2")  WRITE/NEXT z ""
ENDLOOP

ENDACCESS/PRINT q
ENDACCESS/PRINT z

Die Abfragen können auch mit S_TABLEs erfolgen, z.B.

   IF (text.CT.":{[}v1:{[}v2:")  WRITE/NEXT z ""
   ...
   IF (text.CT.":n1{]}:n2{]}:")  WRITE/NEXT z ""

oder auch mit R_TABLEs, z.B.


   IF (text.MA.":v1*:v2*:")  WRITE/NEXT z ""
   ...
   IF (text.MA.":*n1:*n2:")  WRITE/NEXT z ""

Herzliche Grüße
Ihr Kuno Schälkle

------------------------------------------------------------
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/20131009/86920356/attachment.htm>