---

Hallo zusammen!

Lange nichts geschrieben. Wir sind jetzt vermehrt in der dritten Dimension unterwegs. 

Jetzt muss ich nach langer Zeit mal wieder ein bestehendes Makro für ME10 ändern und habe dabei ein Problem:
Wir haben mit "READ_FILE ..." Variablen belegt. Ich muss nun von 8 Variablen die mit dem größten Wert herausfinden. Die betreffenden Werte können entweder (alle) aus Zahlen oder (alle) aus Buchstaben bestehen, was das Ganze recht kompliziert macht.
Die Buchstaben brauche ich nicht zu vergleichen, da reicht es, den Wert der letzten belegten Variable zu übernehmen (in unserem Fall: <>'Null'). Dafür muss ich aber die Werte unterscheiden können und da hapert's schon. Außerdem habe ich festgestellt, dass ein Größenvergleich (Var1 > Var2) nicht klappt, vermutlich, weil die Werte für's System nicht numerisch sind?

Kann mir da jemand die entscheidenden 2 Tipps geben?
1. Wie stelle ich fest, ob eine Variable einen numerischen Wert hat?
2. Wie kann ich diese dann größenmäßig vergleichen (auch zweistellige Werte)?

Vielen Dank schon mal für's Nachdenken.
Viele Grüße
Tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

In LISP gibts jede Menge sog. Predicates, um Eigenschaften abzufragen, so z.B.

(numberp objekt)

Mit (read-from-string string) kann man aus eingelesenen Textzeilen wieder was Vernünfiges machen

Empfehlenswert zum Nachschlagen:
Common Lisp the Language, 2nd Edition

------------------
meine LISP-Makros sind auf osd.cad.de
Disclaimer
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Walter!

Danke für die Antwort, aber ich glaube, wir schreiben da aneinander vorbei: Das normale ME10 OSDD 2006 nutzt, glaube ich, kein Lisp? Ich schätze, ich habe dich mit meiner Einleitung verwirrt?

Trotzdem Danke für die Mühe
Tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,

versuche es mal damit:
define test1

local n1
local n2
local n3
local n4

let n1 "123"
let n2 "567"
let n3 "abc"
let n4 987

if (TYPE n4=NUMBER) { Testet auf Nummernwert TYPE n4=STRING => testet auf character}
display ("num = "+(str n4))
else
display ("char = "+(str n4))

if ((num n1) > (num n2))
display (n1)
else
display (n2)
end_if

end_define

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Tom,

1. Wie stelle ich fest, ob eine Variable einen numerischen Wert hat?
DISPLAY (TYPE (VAL "abc")) liefert als Antwort MACRO
DISPLAY (TYPE (VAL "123")) liefert als Antwort NUMBER
Achtung:
DISPLAY (TYPE (VAL "12a")) liefert als Antwort auch NUMBER
aber du sagst ja das das nicht der Fall sein kann.

2. Wie kann ich diese dann größenmäßig vergleichen (auch zweistellige Werte)?
Wenn du die Variable die ja ein String ist mit VAL in Zahlen wandelst funktioniert
der Grössenvergleich.
((VAL Var1) > (VAL Var2))

Vieleicht wäre es am einfachsten mit dem READ_FILE gar nicht erst 8 Variablen zu belegen,
sondern den Check "String oder Zahl" und den Zahlenvergleich im LOOP während des Einlesens
zu erledigen.

------------------
    Gruss Friedhelm

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo ihr zwei!

Herzlichen Dank. Es hat ein wenig Fummelei bedeutet, aber mit Hilfe des "num" habe ich das Problemchen dann gelöst.
Vielen Dank auch dir, Friedhelm, aber eine Lösung reichte mir.  Zur Zeit deines Posts war ich fast fertig. Übrigens brauche ich aber alle Variablen, da das meine Revisionsstände sind. Die wurden früher in Buchstaben angegeben, dann in Zahlen und jetzt, wenn nicht mehr alle Stände in die Schriftkopffelder passen, werden sie ab- statt aufsteigend eingetragen...

Viele Grüße
Tom

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP