---

Hallo,

ich muss aus AutoCAD eine Textdatei erzeugen. Kein Problem.

(setq filFile (open strFile "w"))
(setq lstZeilen (list "Zeile1" "Zeile2" "Zeile3"))
(foreach strZeile lstZeilen (write-line strZeile filFile))
(close filFile)

Das funktioniert bekanntermaßen. Das Problem ist, dass die Datei von einem anderen, bereits existierenden Programm gelesen werden können soll, das allerdings 2 Dinge moniert:

1. jedes Zeilenende wird mit \r\n abgeschlossen. Gewünscht wird nur \n (Hex "0A").
2. Das Dateiende muss mit Hex "20" bekundet werden.

Grübel. Öffne ich meine exportierte Datei im Ultraedit kann ich hinten die Hex "20" ergänzen und alle Hex "0D" löschen. Speichern und alle sind glücklich. Nun soll es aber ein Automatismus sein. Wie könnte ich AutoCAD dazu bringen, nicht das Hex "0D" dem Hex "0A" voranzustellen?

Ich habe auch folgendes probiert:
(write-line "Zeile1\nZeile2\nZeile3" filFile)
Leider wird dennoch ein \r vorangestellt. Wie kann ich das vermeiden?

Sollte es nicht über write-line gehen: Gibt es eine Lösung, wonach ich die Zeichen als Hex-Werte rausschreiben kann?

VG, Fred

------------------
Fred Tomke
Dipl.-Ing. (FH) Landespflege

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

---

Hallo,

anstelle Autolisp das FileSystemObject bemühen.

(defun WRITE_TEXTFILE (strFile uData isUnicode / oFSObject oFSFile strZeile)
  (setq oFSObject (vlax-create-object "Scripting.FileSystemObject"))
  (setq oFSFile (vlax-invoke-method oFSObject "CreateTextFile" strFile :vlax-true (if isUnicode :vlax-true :vlax-false)))
  (if (listp uData)
    (foreach strZeile uData (vlax-invoke-method oFSFile 'WriteLine strZeile))
    (vlax-invoke-method oFSFile 'WriteLine uData)
  ); if
  (vlax-invoke-method oFSFile 'Close)
  (vlax-release-object oFSFile)
  (vlax-release-object oFSObject)
)

(WRITE_TEXTFILE "C:\\Test.txt" "Zeile1\nZeile2\nZeile3" nil)

VG, Fred

------------------
Fred Tomke
Dipl.-Ing. (FH) Landespflege

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

---

Zerlege die Zeile (vl-string->list ..) und nimm write-char für die Asc-Codes , die du um dein Enter und den Hex20 ergänzen kannst.

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

Aaa-ha, write-char kannte ich bis heute nicht, danke!

VG, Fred

------------------
Fred Tomke
Dipl.-Ing. (FH) Landespflege

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