<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<font face="Courier New">Sehr geehrter Herr Brunschön,<br>
<br>
für den Fall, daß Sie Ihr KOPIERE im Rahmen einer größeren
KOPIERE-Prozedur laufen lassen wollen, wäre vielleicht folgende
#MAKRO-Kurzfassung eine Alternative zur "großen" TUSCRIPT-Lösung
(der Vergleich mit ".AB." bewirkt, daß auch Abkürzungen wie "j"
und "n" für "Ja" und "Nein" akzeptiert werden):<br>
<br>
#MAKRO<br>
$$? "Soll ein Asterisk angefügt werden? (Ja/Nein)", antw="ja"<br>
#KO,A,B,,+,*<br>
$$ IF("<antw>".AB."Ja") THEN<br>
xx |eingabe|ausgabe*|<br>
$$ ELSE<br>
xx |eingabe|ausgabe|<br>
$$ END IF<br>
*eof*<br>
*eof<br>
<br>
Mit freundlichen Grüßen,<br>
Niels Bohnert<br>
<br>
<br>
</font>
<div class="moz-cite-prefix">On 24.09.2014 21:51, Matthias Schneider
wrote:<br>
</div>
<blockquote cite="mid:542320D5.4000705@mailbox.org" type="cite">
<pre wrap="">Diskussionsforum Tustep-Liste
Weitere Informationen: <a class="moz-txt-link-abbreviated" href="http://www.itug.de">www.itug.de</a>
------------------------------------------------------------
</pre>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
Sehr geehrter Herr Brunschön,
<br>
<br>
nachstehend und anliegend zwei Vorschläge:
<br>
<br>
1) ASK.P = TUSCRIPT-Rahmen mit Benutzerabfrage für Ihr Kopiere
(mit {}-Parametern)
<br>
<br>
$$!
<br>
$$ MODE TUSCRIPT, {}
<br>
<br>
- Parameterdatei für Kopiere anlegen und ggf. Inhalt löschen
<br>
par = "par"
<br>
ERROR/STOP CREATE (par, SEQ-O, -STD-)
<br>
ERROR/STOP ERASE (par)
<br>
<br>
- Quelldatei anmelden, Zieldatei anlegen
<br>
q_datei = "a"
<br>
ERROR/STOP OPEN (q_datei, READ, -STD-)
<br>
z_datei = "b"
<br>
ERROR/STOP CREATE (z_datei, SEQ-O, -STD-)
<br>
<br>
- Benutzerabfrage
<br>
ASK "Soll ein Asterisk angefügt werden? (Ja/Nein)", antw=""
<br>
<br>
- Ausführung mit Fallunterscheidung
<br>
IF (antw .EQ. "ja") THEN
<br>
par_data = "xx |eingabe|ausgabe*|"
<br>
FILE/ERASE $par = par_data
<br>
<br>
ELSE IF (antw .EQ. "nein") THEN
<br>
par data = "xx |eingabe|ausgabe|"
<br>
FILE $par = par_data
<br>
<br>
ELSE
<br>
PRINT "Fehlerhafte Eingabe. Nur Ja oder Nein sind
vorgesehen."
<br>
END IF
<br>
<br>
EXECUTE #KO,a,b,,+,PA=par
<br>
<br>
<br>
<br>
2) ASK.M = reine TUSCRIPT-Lösung für Ihre Aufgabenstellung
<br>
<br>
$$!
<br>
$$ MODE TUSCRIPT, {}
<br>
<br>
- Parameterdatei für Kopiere anlegen und ggf. Inhalt löschen
<br>
par = "par"
<br>
ERROR/STOP CREATE (par, SEQ-O, -STD-)
<br>
ERROR/STOP ERASE (par)
<br>
<br>
- Quelldatei anmelden, Zieldatei anlegen
<br>
q_datei = "a"
<br>
ERROR/STOP OPEN (q_datei, READ, -STD-)
<br>
z_datei = "b"
<br>
ERROR/STOP CREATE (z_datei, SEQ-O, -STD-)
<br>
<br>
- Quelltext einlesen
<br>
txt = FILE (q_datei)
<br>
<br>
- Benutzerabfrage
<br>
ASK "Soll ein Asterisk angefügt werden? (Ja/Nein)", antw=""
<br>
<br>
- Ausführung mit Fallunterscheidung
<br>
IF (antw .EQ. "ja") THEN
<br>
BUILD X_TABLE x ja = "|eingabe|ausgabe*|"
<br>
txt = EXCHANGE (txt, x_ja)
<br>
FILE/ERASE $z_datei = txt
<br>
<br>
ELSE IF (antw .EQ. "nein") THEN
<br>
BUILD X_TABLE x nein = "|eingabe|ausgabe|"
<br>
txt = EXCHANGE (txt, x_nein)
<br>
FILE/ERASE $z_datei = txt
<br>
<br>
ELSE
<br>
PRINT "Fehlerhafte Eingabe. Nur Ja oder Nein sind
vorgesehen."
<br>
END IF
<br>
<br>
<br>
Beide Makros können mit $?$ask.p bzw. $?$ask.m von der
Kommandoebene aus gestartet werden.
<br>
<br>
Ich habe beide Snippets an Testdateien probiert. Es scheint das
gewünscht Ergebnis erzeugt zu werden. Falls nicht, lassen Sie es
mich wissen.
<br>
<br>
Viele Grüße
<br>
Matthias Schneider
<br>
<br>
<br>
<br>
<br>
Am 24.09.2014 um 18:51 schrieb Wolfram Brunschön:
<br>
<blockquote type="cite">Diskussionsforum Tustep-Liste
<br>
Weitere Informationen: <a class="moz-txt-link-abbreviated" href="http://www.itug.de">www.itug.de</a>
<br>
------------------------------------------------------------
<br>
<br>
Liebe TUSTEP-Gemeinde,
<br>
<br>
wie kann ich für ein kleines #ko mit einer Austauschanweisung
den
<br>
Benutzer durch Auswählen einer Ja/Nein-Schaltfläche entscheiden
lassen,
<br>
ob im Ausgabesatz ein Asteriscus eingefügt werden soll oder
nicht?
<br>
<br>
#= Frage an den Benutzer: * für Ausgabesatz: ja/nein
<br>
<br>
#ko,a,b,,+,*
<br>
xx |eingabe|
<br>
xx |ausgabe*| oder |ausgabe|
<br>
*eof
<br>
<br>
Vielen Dank im voraus!
<br>
Wolfram Brunschön.
<br>
<br>
------------------------------------------------------------
<br>
<a class="moz-txt-link-abbreviated" href="mailto:Tustep-Liste@itug.de">Tustep-Liste@itug.de</a>
<br>
<a class="moz-txt-link-freetext" href="https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste">https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste</a>
<br>
</blockquote>
<br>
<br>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">
------------------------------------------------------------
<a class="moz-txt-link-abbreviated" href="mailto:Tustep-Liste@itug.de">Tustep-Liste@itug.de</a>
<a class="moz-txt-link-freetext" href="https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste">https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste</a></pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
Dr. Niels Bohnert
Mittelhochdeutsches Wörterbuch
Arbeitsstelle der Akademie der Wissenschaften
und der Literatur Mainz
Universität Trier
54286 Trier | DM 339 | Tel. 0651 / 201-2320</pre>
</body>
</html>