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

Matthias Schneider m.schneider at mailbox.org
Wed Sep 24 21:51:49 CEST 2014


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


-------------- next part --------------
A non-text attachment was scrubbed...
Name: ask.m
Type: text/x-objcsrc
Size: 8192 bytes
Desc: not available
URL: <http://lists.uni-wuerzburg.de/pipermail/tustep-liste/attachments/20140924/2ac40ea0/attachment-0001.m>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: ask.p
Type: text/x-pascal
Size: 8192 bytes
Desc: not available
URL: <http://lists.uni-wuerzburg.de/pipermail/tustep-liste/attachments/20140924/2ac40ea0/attachment-0001.p>


More information about the Tustep-Liste mailing list