Anonymous




Register
Login

Amiga Future

Community

Knowledge

Service

Search




Advanced search

Unanswered topics
Active topics

Last Magazine

The Amiga Future 147 was released on the November 4th.

The Amiga Future 147 was released on the November 4th.
The Amiga Future 147 was released on the November 4th.

The Amiga Future 147 was released on the November 4th.
More informations

Social Media

Twitter Amigafuture Facebook Amigafuture RSS-Feed [german] Amigafuture RSS-Feed [english] Instagram YouTube

Advertisement

Amazon

Partnerlinks

Arexx: Fehler im Skript ?

Alles über programmieren am Amiga, Pegasos, Aros...

Moderator: AndreasM

Post Reply
ThorstenS

Arexx: Fehler im Skript ?

Post by ThorstenS »

In einer der AMIGA-Magazin Ausgaben habe ich ein Arexx-Skript gefunden, dass wie folgt ausschaut:

Code: Select all

/* Datumsausgabe mit Begrüßung */

Datum=date(s) ; Tag=date(w) ; Zeit=Time(n)
T=1*right(Datum,2) ; MNr=substr(Datum,5,2) ; J=left(Datum,2) Stunde=left(Zeit,2)

Monate = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
TageE = "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
TageD = "Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag"

if Stunde >=0 & Stunde <=3 then Begr="Hi, so spät noch aktiv ???"
if Stunde >3 & Stunde <=6 then Begr="So früh am Computer? Geh lieber ins Bett!"
if Stunde >6 & Stunde <=8 then Begr="Guten Morgen! Schon so früh auf?"
if Stunde >8 & Stunde <=12 then Begr="Guten Morgen."
if Stunde >12 & Stunde <=18 then Begr="Guten Tag."
if Stunde >18 & Stunde <=23 then Begr="Guten Abend."
if MNr=12 & T=31 then Begr="Ich wünsche eine feuchtfröhliche Silvester-Party!"
if MNr=01 & T=1 then Begr="Ich wünsche ein frohes neues Jahr."
if MNr=12 & T=23 then Begr="Frohe Weihnachten Thorsten!"

MonatName = word(Monate,MNr)
TNr = find(TageE,Tag)
TagName = word(TageD,TNr)

say " "; say Begr; say " "
say "Heute ist "TagName" der "T". "MonatName" "J". Es ist "left(Zeit,5)"  Uhr"
exit
Mein Problem ist, dass er die Jahreszahl nicht korrekt ausgibt. Dort wo die Jahreszahl stehen sollte, steht nur eine Ziffer, die Null ( 0 ).

Zudem steht ganz oben in dem Fenster das Wort "Begr". Dort sollte aber, so denke ich, der betreffende Tageszeiten-Satz stehen.

Benötige Hilfe !!

Ein paar Umstellungen im Skript, brachten keinen Erfolg. :(

Thomas
Amiga Future Redaktion
Amiga Future Redaktion
Posts: 971
Joined: 03.07.2001 - 02:00
Contact:

Post by Thomas »

Da fehlt ein Semikolon zwischen J=left(Datum,2) und Stunde=left(Zeit,2). Ich würde dir raten, als Anfänger immer nur einen Befehl in eine Zeile zu schreiben.

Außerdem muß es J=left(Datum,4) heißen.

Gruß Thomas
Last edited by Thomas on 11.01.2007 - 17:14, edited 1 time in total.

daxb
AFF Profi
AFF Profi
Posts: 594
Joined: 10.11.2002 - 01:42

Post by daxb »

Code: Select all

/* Datumsausgabe mit Begrüßung */

Datum=date(s) ; Tag=date(w) ; Zeit=Time(n)
T=1*right(Datum,2) ; MNr=substr(Datum,5,2) ; J=left(Datum,4) ; Stunde=left(Zeit,2)

Monate = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
TageE = "Monday Tuesday Wednesday Thursday Friday Saturday Sunday"
TageD = "Montag Dienstag Mittwoch Donnerstag Freitag Samstag Sonntag"

if Stunde >=0 & Stunde <3>3 & Stunde <6>6 & Stunde <8>8 & Stunde <12>12 & Stunde <18>18 & Stunde <=23 then Begr="Guten Abend."
if MNr=12 & T=31 then Begr="Ich wünsche eine feuchtfröhliche Silvester-Party!"
if MNr=01 & T=1 then Begr="Ich wünsche ein frohes neues Jahr."
if MNr=12 & T=23 then Begr="Frohe Weihnachten Thorsten!"

MonatName = word(Monate,MNr)
TNr = find(TageE,Tag)
TagName = word(TageD,TNr)

say " "; say Begr; say " "
say "Heute ist "TagName" der "T". "MonatName" "J". Es ist "left(Zeit,5)" Uhr"
exit

ThorstenS

Post by ThorstenS »

Vielen Dank!

Es hat funktioniert.. als nächstes kommt die Sprachausgabe dran...

Post Reply