---

Hallo,

ich möchte die Dateigröße in KB ausgeben. Leider klappt es mit dem rechnen nicht so wie ich will. Die Displayausgabe gibt folgendes aus:
XVL-Dateigroesse 14935/1024 KB

Was für einen Haken habe ich denn in folgendem Code vergessen damit das Ergebnis berechnet wird.

(setf datei (/ (sd-inq-file-size (FORMAT NIL "P:/XVL/~A.xv3" (SD-INQ-OBJ-CONTENTS-NAME A_ASSEM ))) 1024))

(display (format NIL "XVL-Dateigroesse ~A KB" datei))

Tschuess
Martin

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

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

---

Im Unterschied zu anderen Programmiersprachen rechnet LISP so lange, wie es nur geht, praezise, also unter Umgehung von Fliesskommazahlen. In Deinem Fall hat es also den Bruch einfach beibehalten. Das hat den grossen Vorteil, dass keine Nachkommastellen verlorengehen.

Du kannst LISP aber dazu zwingen, das Ergebnis in Fliesskommarepraesentation zu erzeugen. Zum Beispiel so:

Code:

---

  (display (/ (sd-inq-file-size somefile) 1024.0))

---

Hintergrundwissen zum Thema gibt es unter http://www.gigamonkeys.com/book/numbers-characters-and-strings.html .

Claus

------------------
OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/

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

---

@Claus

Geht es nicht auch ueber Umwege so:

==> als string - Ausgabe
(setf datei (sd-num-to-string (/ (sd-inq-file-size (format nil "P:/XVL/~A.xv3" (sd-inq-obj-contents-name a_assem ))) 1024)))

==> und wieder als Nummer:
(setf datei (read-from-string (sd-num-to-string (/ (sd-inq-file-size (format nil "P:/XVL/~A.xv3" (sd-inq-obj-contents-name a_assem ))) 1024))))

Dass es auch eine Fliesskommarepraesentation gibt, wusste ich nicht !
10 U4U

Gruss
RainerH.

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

---

Zitat:

---

Original erstellt von RainerH:
Geht es nicht auch ueber Umwege so:

==> als string - Ausgabe
(setf datei (sd-num-to-string (/ (sd-inq-file-size (format nil "P:/XVL/~A.xv3" (sd-inq-obj-contents-name a_assem ))) 1024)))

==> und wieder als Nummer:
(setf datei (read-from-string (sd-num-to-string (/ (sd-inq-file-size (format nil "P:/XVL/~A.xv3" (sd-inq-obj-contents-name a_assem ))) 1024))))

---

Ach Du meine Guete. Ja, vielleicht geht das auch so. Aehem. Aber das sieht dermassen umstaendlich, langsam und fehlertraechtig aus, dass ich das erst gar nicht ausprobieren will... 

------------------
OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/

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

---

@Claus

Ok !

Die Not eines Nicht-LISP-Spezialisten macht halt erfinderisch. 

Zumindest haben wir nun mit deiner Hilfe nun die korrekte
Loesung erfahren - DANKE !!

Gruss
RainerH.

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

---

Apropos: Ich kann jedem, der ein bisschen mehr ueber Lisp erfahren will, nur waermestens das Buch "Practical Common Lisp" von Peter Seibel empfehlen. Im Unterschied zu manchen anderen Lisp-Buechern beschaeftigt es sich auch mit praktischen Programmierfragen - und erklaert dabei nebenbei sehr gut, was an Lisp eigentlich so Besonderes ist, das erklaeren koennte, warum die Sprache a) jetzt schon seit Jahrzehnten in Gebrauch ist und b) gerade wieder eine Renaissance erlebt.

Und am besten: Es gibt auch eine freie Online-Version des Buches unter http://www.gigamonkeys.com/book/. (Ich habe mir trotzdem das Buch gekauft, einfach weil's der Autor verdient hat - und weil ich gerne was in der Hand zum Blaettern habe  )

Claus

------------------
OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/

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

---

Hallo Claus, hallo Rainer,

vielen Dank für die Hilfe. ".0" ist eine Änderung mit großer Wirkung. Der Link von Claus hat mich davor bewart gleich die nächste Basisfrage, wie man rundet, zu stellen. 

Tschuess
Martin

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

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

---

HI

Du kannst noch einen Float aus deinem Ergebnis erzeugen.

(setf datei ( FLOAT (/ (sd-inq-file-size (FORMAT NIL "P:/XVL/~A.xv3" (SD-INQ-OBJ-CONTENTS-NAME A_ASSEM ))) 1024)))

(display (format NIL "XVL-Dateigroesse ~A KB" datei))

Gruß Didi

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

---

Hallo Claus,

ich werde das Buch auf den Wunschzettel schreiben den ich ans Christkind schicke. 

Das Projekt ist erstmal abgeschlossen. Ich muss aber doch meine LISP-Bücher hervorkramen. Ganz überrascht war ich wieviele LISP-Bücher es jetzt bei Amazon gibt. Vor ein zwei Jahren gab es da fast nur gebrauchte Bücher. Gibt es jetzt wieder neue Bereiche ausser CAD wo LISP genutzt wird ?

Tschuess
Martin

------------------
OSDM - Die freie Wissensdatenbank
WorkManager Forum

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

---

Offensichtlich gibt es einfach wieder mehr Programmierer, die sich fuer die Sprache interessieren, und sowas schafft sich seinen Markt. Mag auch daher kommen, dass immer mehr Features von Lisp jetzt endlich ihren Weg in andere Sprachen finden, zum Beispiel funktionales Programmieren, Lambda-Ausdruecke, Garbage Collection, dynamische Typen, Verschmelzung von Code und Daten. Beispiele fuer solche Sprachen sind Python, Ruby und jetzt auch C#. Und da fragt sich dann halt vielleicht mancher, warum er nicht gleich in Lisp programmiert, wenn das offensichtlich eine Sprache ist, aus der so viele gute Ideen kommen.

Claus

------------------
OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/

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