---

Hallo,

bin an einem kleinen Lisp-Programm, was verschiedene bdl Dateien nacheinander laden und was abarbeite soll.
Was abgearbeitet werden soll, habe ich soweit.
Wie bekomme ich es nun Makro-mäßig hin, das eine Art Tabelle, in der die Dateien stehen, abgearbeitet werden.
Die Tabelle braucht nur die Dateiennamen enthalten, die dann nacheinander geladen werden müssen.

Vielleicht kann mir jemand nen kleinen Tipp geben, unter welchem Befehl das im Lisp läuft.

Vielen Dank

------------------
Gruß Peter

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

---

So ganz grob (und ungetestet):

Code:

---

  (dolist (f '("foo.bdl" "bar.bdl" "hungo.bdl"))
    (greskamp-ladeprogramm f))

---

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

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

---

Hallo clausb,

danke erst mal, das klappt soweit auch wenn ich die 100 bdl Dateien eigentlich nicht in die Datei schreiben wollte.
Dachte ich habe irgendwo eine Liste liegen, die abgearbeitet wird.

Habe da noch ein Problem. Das Speichern in der Datenbank dauert manchmal ein paar Sekunden, dabei läuft das Programm aber weiter.
Kann man in ein Lisp eine art "wait" oder einen bestätigungsbutton einbauen, damit sich da nicht überholt.

------------------
Gruß Peter

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

---

Zeilenweises Auslesen aus einer Datei geht so: http://cl-cookbook.sourceforge.net/files.html#line

Also in Deinem Fall:

Code:

---

(with-open-file (stream "listevondateien.txt")
    (loop for line = (read-line stream nil 'dasendeistnahe)
          until (eq line 'dasendeistnahe)
          do (greskamp-ladeprogramm line)))

---

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

[Diese Nachricht wurde von clausb am 25. Nov. 2013 editiert.]

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

---

Zitat:

---

Original erstellt von Greskamp:
...das klappt soweit auch wenn ich die 100 bdl Dateien eigentlich nicht in die Datei schreiben wollte.
Dachte ich habe irgendwo eine Liste liegen, die abgearbeitet wird.

---

Irgendwo muss die liste ja nun mal herkommen..

Code:

---

(defun get-filenames-of-dir (dir &key (pattern "*"))
  (unless (directory-p dir)
    (return-from get-filenames-of-dir (values nil :Dir-failure)))
  (let ((files (directory (format nil "~A/~A" dir pattern))))
    (setq files (sort files #'> :key #'file-write-date))
    (mapcar #'file-namestring files)
    )
  )

---

Hinweis:  der sort ist nicht unbedingt erforderlich, und kann natuerlich auch anders sein!

siehe auch:
● http://ww3.cad.de/foren/ubb/uploads/der_Wolfgang/get-last-modified-file.lsp.txt
● http://ww3.cad.de/foren/ubb/Forum29/HTML/003192.shtml#000025

------------------
● Seamonkey Firefox ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ●

[Diese Nachricht wurde von der_Wolfgang am 13. Dez. 2013 editiert.]

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