[Tustep-Liste] Benutzereingabe abfragen und in #ko verarbeiten

Niels Bohnert niels.bohnert at gmx.de
Do Sep 25 13:19:35 CEST 2014


Sehr geehrter Herr Brunschön,

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):

#MAKRO
$$? "Soll ein Asterisk angefügt werden? (Ja/Nein)", antw="ja"
#KO,A,B,,+,*
$$ IF("<antw>".AB."Ja") THEN
xx        |eingabe|ausgabe*|
$$ ELSE
xx        |eingabe|ausgabe|
$$ END IF
*eof*
*eof

Mit freundlichen Grüßen,
Niels Bohnert


On 24.09.2014 21:51, Matthias Schneider wrote:
> Diskussionsforum Tustep-Liste
> Weitere Informationen: www.itug.de
> ------------------------------------------------------------
>
>
>
> Sehr geehrter Herr Brunschön,
>
> nachstehend und anliegend zwei Vorschläge:
>
> 1) ASK.P = TUSCRIPT-Rahmen mit Benutzerabfrage für Ihr Kopiere (mit 
> {}-Parametern)
>
> $$!
> $$ MODE TUSCRIPT, {}
>
> - Parameterdatei für Kopiere anlegen und ggf. Inhalt löschen
> par = "par"
> ERROR/STOP CREATE (par, SEQ-O, -STD-)
> ERROR/STOP ERASE (par)
>
> - Quelldatei anmelden, Zieldatei anlegen
> q_datei = "a"
> ERROR/STOP OPEN (q_datei, READ, -STD-)
> z_datei = "b"
> ERROR/STOP CREATE (z_datei, SEQ-O, -STD-)
>
> - Benutzerabfrage
> ASK "Soll ein Asterisk angefügt werden? (Ja/Nein)", antw=""
>
> - Ausführung mit Fallunterscheidung
> IF (antw .EQ. "ja") THEN
>    par_data = "xx        |eingabe|ausgabe­*|"
>    FILE/ERASE $par = par_data
>
> ELSE IF (antw .EQ. "nein") THEN
>    par data = "xx        |eingabe|ausgabe|"
>    FILE $par = par_data
>
> ELSE
>    PRINT "Fehlerhafte Eingabe. Nur  Ja  oder  Nein  sind vorgesehen."
> END IF
>
> EXECUTE #KO,a,b,,+,PA=par
>
>
>
> 2) ASK.M = reine TUSCRIPT-Lösung für Ihre Aufgabenstellung
>
> $$!
> $$ MODE TUSCRIPT, {}
>
> - Parameterdatei für Kopiere anlegen und ggf. Inhalt löschen
> par = "par"
> ERROR/STOP CREATE (par, SEQ-O, -STD-)
> ERROR/STOP ERASE (par)
>
> - Quelldatei anmelden, Zieldatei anlegen
> q_datei = "a"
> ERROR/STOP OPEN (q_datei, READ, -STD-)
> z_datei = "b"
> ERROR/STOP CREATE (z_datei, SEQ-O, -STD-)
>
> - Quelltext einlesen
> txt = FILE (q_datei)
>
> - Benutzerabfrage
> ASK "Soll ein Asterisk angefügt werden? (Ja/Nein)", antw=""
>
> - Ausführung mit Fallunterscheidung
> IF (antw .EQ. "ja") THEN
>    BUILD X_TABLE x ja = "|eingabe|ausgabe­*|"
>    txt = EXCHANGE (txt, x_ja)
>    FILE/ERASE $z_datei = txt
>
> ELSE IF (antw .EQ. "nein") THEN
>    BUILD X_TABLE x nein = "|eingabe|ausgabe|"
>    txt = EXCHANGE (txt, x_nein)
>    FILE/ERASE $z_datei = txt
>
> ELSE
>    PRINT "Fehlerhafte Eingabe. Nur  Ja  oder  Nein  sind vorgesehen."
> END IF
>
>
> Beide Makros können mit $?$ask.p bzw. $?$ask.m von der Kommandoebene 
> aus gestartet werden.
>
> Ich habe beide Snippets an Testdateien probiert. Es scheint das 
> gewünscht Ergebnis erzeugt zu werden. Falls nicht, lassen Sie es mich 
> wissen.
>
> Viele Grüße
> Matthias Schneider
>
>
>
>
> Am 24.09.2014 um 18:51 schrieb Wolfram Brunschön:
>> Diskussionsforum Tustep-Liste
>> Weitere Informationen: www.itug.de
>> ------------------------------------------------------------
>>
>> Liebe TUSTEP-Gemeinde,
>>
>> wie kann ich für ein kleines #ko mit einer Austauschanweisung den
>> Benutzer durch Auswählen einer Ja/Nein-Schaltfläche entscheiden lassen,
>> ob im Ausgabesatz ein Asteriscus eingefügt werden soll oder nicht?
>>
>> #=   Frage an den Benutzer: * für Ausgabesatz: ja/nein
>>
>> #ko,a,b,,+,*
>> xx    |eingabe|
>> xx    |ausgabe*| oder |ausgabe|
>> *eof
>>
>> Vielen Dank im voraus!
>> Wolfram Brunschön.
>>
>> ------------------------------------------------------------
>> Tustep-Liste at itug.de
>> https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste
>
>
>
>
> ------------------------------------------------------------
> Tustep-Liste at itug.de
> https://lists.uni-wuerzburg.de/mailman/listinfo/tustep-liste

-- 
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

-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <https://lists.itug.de/pipermail/tustep-liste/attachments/20140925/05e765cb/attachment.htm>


Mehr Informationen über die Mailingliste Tustep-Liste