---

Hallo,

ich habe eine Tool geschrieben bei dem ich mittels 'with-open-file' eine Datei xxx.csv schreibe.
Das funktioniert auch sehr gut solange die xxx.csv nicht geöffnet ist!
Wenn diese Datei bereits mit Excel geöffnet haben kommt folgerichtig die Fehlermeldung:

Zitat:

---

LISP-Fehler:
Cannot create the file c:\Temp\Kontrollbericht.csv.

---

Wenn ich dies jetzt mit 'Ok' bestätige fliege ich leider aus dem Tool.
Und an dieser Stelle hätte ich gern eien Meldung wie:
'Die xxx.csv kann nicht erstellt werden, Bitte in Excel schließen'
und wenn ich mit 'Ok' bestätige bleibe ich in meinem Tool.

Hier mal ein Lisp-Schnipsel:

Code:

---

(setq outfile "c:\\Temp\\xxx.csv")
(with-open-file
(out outfile
  :Direction :Output
  :if-exists :supersede
  :if-does-not-exist :create
  :external-format :ansi)
   (format out "Test")
   ...
   ...
)

---

Kann man das irgend wie abfangen z:B. :error ...  einfügen oder ...?

Gruß Michael

[Diese Nachricht wurde von MiBr am 12. Nov. 2025 editiert.]

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

---

Zitat:

---

Original erstellt von MiBr:
ich habe eine Tool geschrieben bei dem ich mittels 'with-open-file' eine Datei xxx.csv schreibe.
Das funktioniert auch sehr gut solange die xxx.csv nicht geöffnet ist!
Wenn diese Datei bereits mit Excel geöffnet ist kommt folgerichtig die Fehlermeldung:

---

ja ja..  manche Applicationen meinen da unbedingt den dicken Daumen drauf haben zu müssen. Übel ist das bei einfachen Betrachtern, die ja 'nur gucken was drin ist'. Stichwort 'file handles'.

du könntest mal probieren die Datei TEST weise zu erst zu öffnen:

Code:

---

(setq outfile "c:/Temp/xxx.csv")  ;; use slashes for easier typing
(setq res-open (open outfile :Direction :Output :if-exists :error :if-does-not-exist :create :external-format :utf-8-bom))
(setq res-close (close outfile))

---

Daraus machst du eine Funktion "file-is-writable" .. und diese rufst du via sd-call-cmds auf, weil dann kannst du mit dessen :success und :failure form arbeiten. Du rufst deinen Kram doch eh aus einem Dialog heraus aus, oder?

Wenn du mit 'open' arbeitest must du mit auch mit 'close' arbeiten.

zum Studium:

• http://clhs.lisp.se/Body/m_w_open.htm
  
• http://clhs.lisp.se/Body/f_open.htm#open
  
• http://clhs.lisp.se/Body/f_close.htm#close
  
• http://clhs.lisp.se/Issues/iss157.htm  ??
  

wichtig / neu wäre hier der parameter :error für :if-exist und :if-does-not-exist  Vielleicht hilft das?!?

Der Macro with-open-file kann aber auch mit :error arbeiten. Das wäre zu bevorzugen.

-----

Die kannte ich auch nicht:  http://clhs.lisp.se/Body/f_ensu_1.htm#ensure-directories-exist

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

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

---

Hallo Wolfgang,

nach dem ich den ganzen morgen dumm rum probiert habe, habe ich gemwerkt das ich es mal wieder bin!

Und Du schreibst ja:

Zitat:

---

... diese rufst du via sd-call-cmds auf, weil dann kannst du mit dessen :success und :failure form arbeiten. Du rufst deinen Kram doch eh aus einem Dialog heraus aus, oder?

---

Natürlich mache ich das aus einen Dialog heraus und wenn ich da meine 'local-funktion' mit einem 'sd-call_cmds'
aufrufe und noch mit einem ':failure' versehe bin ich ja schon fertig!

Naja zu meiner Verteildigung: First-time-with -> 'sd-call_cmds :failure' (Sehr nützlich!)

Aber wie immer ein großes DANKESCHÖN! Ohne deine Anregungen wäre ich nicht darauf gekommen! 

Gruß Michael

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

---

cadde-29-004994.lsp

Zitat:

---

Original erstellt von MiBr:
..., habe ich gemerkt, das ich es mal wieder bin!
Ohne deine Anregungen wäre ich nicht darauf gekommen!      

---

Gerne! Und in der Anlage mal noch ein kleiner Test Dialog.

• Da jener Dialog 'sequential' ist, hat er kein User Interface
  
• Da jener Dialog keine zu erfragenden Variablen hat, rennt er direkt in die :OK-action
  
• Da er (am Model) nix ändert, taucht er auch NICHT im UNDO auf.

So ist der Dialog nur ein wrapper für einen Funktionsaufruf mit sd-call-cmds drum rum.

Sieht bischen nach Overhead aus. Ist aber für so Sonderfälle mal vertretbar aus meiner Sicht.

Oft hat man später dann eine andere Möglichkeit gefunden den üblen Sonderfall abzuhandeln. Dann erfolgt eben ein Code-Rückbau.

Ich hoffe das sd-call-cmds template ist erhellend genug (für diese dunkle Jahreszeit)

Zum Testen kann man das dann auf der Commandline direkt aufrufen:

Code:

---

(call-my-risky-function)
========================================================

"my-risky-function call: Husten ist ein Problem"

* [["OLI"]]

* [["SD-CALL-ACTION-ERROR"]]

* [["LISP error:
\"The variable THIS-VARAIBLE-IS-MAD is unbound. This may have been caused by:
(1) Entering a string that wasn't enclosed in quotes.
(2) Entering a command belonging to a module that has not been activated.
(3) Trying to load a file that has an incorrect format.
(4) Calling a function that has not been enclosed in parenthesis ().\""]]

* [[NIL]]

========================================================

(:CALL-RESULT :HOUSTEN-THERE-IS-A-PROBLEM)
(:FUNCTION-RESULT NIL)
========================================================

---

Learning:

• IKIT: sd-call-cmds
  
• IKIT: sd-inq-error-obj
  

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

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

---

Manchmal trifft man sich ja zwei mal ...  im Leben ... im Universum und ... im allgemeinen.

Oder das selbe Problem trifft auf einen zwei Mal.

Code:

---

(setq outfile "c:/temp/xxx.csv")
(with-open-file
  (out outfile
    :Direction :Output              :external-format :ansi
    :if-does-not-exist :create      :if-exists :append)
  (format out "Test")
  )

---

Ich habe jenen Code Schnipsel noch mal in die Hand genommen und Fehler mit nicht existierenden Datei / Verzeichnisname etc. provoziert, um die Fehler-Meldung genau zu lesen.

Einer der TestCases war dann

Code:

---

(setq outfile "c:/temp/xxx-readonly.csv")  ;; made RO in file system

---

Und die Fehlermeldung dazu: => "LISP error: Cannot append to the file c:/temp/xxx-readonly.csv."

Es ging also nich mehr um existiert oder nicht. Sondern um den Status der Datei.

Und da machte es bei mir 'klick' => Geschwind in die IKIT Dokumentation geguckt:

=> sd-inq-file-status und schon geht's ab:

Code:

---

;; file readonly:
(oli::sd-inq-file-status outfile :write-access)  =>> nil

;; file writeable:
(oli::sd-inq-file-status outfile :write-access)  =>> T | :INTERNAL | "C:\\temp\\xxx.csv"

---

Dann habe ich Michael Anwendungsfall angewandt:

Code:

---

;; writeable + in Excel geöffnet:
(oli::sd-inq-file-status outfile :write-access)  =>> NIL

;; writeable + in Excel wieder geschlossen:
(oli::sd-inq-file-status outfile :write-access)  =>> T | :INTERNAL | "C:\\temp\\xxx.csv"

;; not existing:
(setq outfile "c:/temp/xxx-notexist.csv")
(oli::sd-inq-file-status outfile :write-access)  =>> T | :INTERNAL | "C:\\temp\\xxx-notexist.csv"

---

Und jetzt machte zum ersten mal sd-inq-file-status für mich auch Sinn.
Denn (probe-file "file-name") war immer viel kürzer zu schreiben
als (oli::sd-inq-file-status "file-name" :existence) ,  aber :write-access habe ich nie angewandt.

-------------------------------

Keine Ahnung wieviele 100 Male ich (with-open-file ... :Direction :Output) in Lisp Files geschrieben habe. Aber das hat immer fein funktioniert.

-------------------------------

@Michael du kannst jene code Stelle also bei Dir vereinfachen:

Code:

---

(setq outfile "c:/temp/xxx.csv")
(if (sd-inq-file-status outfile :write-access)
  (with-open-file
    (out outfile
      :Direction :Output              :external-format :ansi
      :if-does-not-exist :create      :if-exists :append)
    (format out "Test")
    )
  ;; else
  (sd-display-alert (format nil "Kein Schreibzugriff auf Datei ~A" outfile))
  ) 

---

Das sieht doch kompakter aus als ein sd-call-cmds mit :failure form!

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

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