---

Hallo LISPler,

ich möchte eine directory Liste sortieren. Wie stelle ich das am einfachsten an ?

Für die Funktion directory habe ich keine Option gefunden damit es die Liste sortiert liefert.

Und mit sort hatte ich auch keinen Erfolg.

Ich hatte mir das so ähnlich vorgestellt:

(setf idx-Datei-lst (sort (directory (format NIL "~A/*.htm" Idx-Ordner)) #'string< ))

oder so

(setf idx-Datei-lst (sort (namestring (directory (format NIL "~A/*.htm" Idx-Ordner))) #'string< ))

Wie würdet Ihr die Liste sortieren ?

Tschuess
Martin

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

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

---

Das Problem ist wohl, dass die Elemente der von directory zurückgegebenen Liste vom Typ PATHNAME sind und nicht STRING, damit geht  string< natürlich in die Hose und man muss sich eine eigene Sortierbedingung basteln. Wie immer schnell und ungetestet:

Code:

---

  (setf sortiert
  (sort unsortiert
    #'(lambda (vor nach)
      (let ()
        (if (string< (format NIL "~a" vor) (format NIL "~a" nach)) t nil)
      );;let
      );;lambda
  );;sort
  );;setf

---

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

Walter
DC4 Technisches Büro GmbH

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

---

Vollstaendigere und leicht verbesserte Version:

Code:

---

(defun sort-directory(path)
  (sort (directory path)
    #'(lambda (f1 f2)
        (string< (file-namestring f1) (file-namestring f2)))))

(sort-directory "c:/temp/*.htm")

---

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

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

---

Zitat:

---

Original erstellt von clausb:
Vollstaendigere und leicht verbesserte Version:

---

Autsch! Vielleich sollte ich doch mal einen richtigen Kurs besuchen 

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

Walter
DC4 Technisches Büro GmbH

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

---

Wer lambda im Code verwendet, kann auch selbst Kurse geben 8-)

Claus

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

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

---

Zitat:

---

Original erstellt von clausb:
Wer lambda im Code verwendet, kann auch selbst Kurse geben

---

Aber in meinem Fall nur für "Wie probier ich so lange rum, bis das Richtige rauskommt" 

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

Walter
DC4 Technisches Büro GmbH

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

---

Hallo Claus,

vielen Dank für die Hilfe, funktioniert gut. In die Lamda-Spezialitäten bin ich noch nicht eingestiegen. Wann hast Du denn Zeit für den LISP-Kurs ?

hallo Walter,

sollen wir das Angebot von Claus annehmen und uns bei ihm zum LISP-Kurs anmelden ?

Tschuess
Martin

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

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