Navigation
« 

Anonymous




Register
Login
« 
« 

Amiga Future

« 

Community

« 

Knowledge

« 

Last Magazine

The Amiga Future 167 was released on the March 5th.

The Amiga Future 167 was released on the March 5th.
The Amiga Future 167 was released on the March 5th.

The Amiga Future 167 was released on the March 5th.
More informations

« 

Service

« 

Search




Advanced search

Unanswered topics
Active topics
« 

Social Media

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

Advertisement

Amazon

Patreon

« 

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: 979
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: 614
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