---

Ich möchte einen Textfile einlesen, der an einer bestimmten Stelle liegt, jedoch nicht mit getfield auswählen sondern an der bestimmten Stelle, wie lässt sich das machen. Mein Ansatz war jetzt so hier, warum kann ich nicht einfach den Suchpfad eintragen ?!

Code:

---

(if (setq file (getfiled "pfad" "" "" 2) )
    (progn (setq FILE (open FILE "r"))
      (while (setq ZEILE (read-line FILE))
        (princ zeile)
)
      (close FILE)
      )
    )   

---

------------------
Gruss Dirk

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

---

(if (setq file (findfile "C:\\ACAD\\LISP\\Daten.txt"))
.....

oder meinst du

(setq file (getfiled "Dialogtitel" "D:\\Programme\\" "" 2) )  ---> F1 zu getfiled ,Parameter

------------------
  - 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

---

hallo dirk

ich wiss jetzt nicht ob ich das richtig verstanden habe.

also entweder du willst sowiso immer das gleiche file an gleicher stelle öffnen dann brauchst du ja getfiled nicht sondern du setzt einfach den pfad zu der datei.
(setq FILE (open "c:\\test.txt" "r"))

oder du willst das das getfiled immer im gleichen verzeichniss öffnet?
dann kannst du ja einfach
(setq FILE (open (getfiled "c:\\" "" "" 2)"r"))
so das verzeichniss angeben in dem gestartet werden soll.

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

---

Danke euch beiden, damit konnte ich es lösen

Code:

---

(defun standard ( / file OpenFile Line Content)
  (if (setq file (findfile "c:\\diro\\Cad\\2012\\dcl\\LayerList.txt"))
    (progn
      (setq OpenFile (open file "r"))
      (while
        (setq Line (read-line OpenFile))
        (if (not (wcmatch line ""))
          (setq Content (append Content (list line)))
        )
      )
      (close OpenFile)
    ) 
  )
  Content
  )

---

------------------
Gruss Dirk

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