---

Ich verarbeite in einer Schleife den Inhalt einer Datei zeilenweise. Sobald eine bestimmte Zeichenkette gefunden wird, soll die Schleife beendet werden, dazu benutze ich (exit).
Das Problem liegt darin, dass anscheinend auch die Funktion beendet wird und nicht nur die Schleife. Ich möchte aber innerhalb der Funktion nach Beenden der Schleife noch etwas ausführen.
Wo liegt der Fehler?

hier mal Code

Code:

---

(defun c:a ()
  (setq rfile (getfiled "Datei laden" "" "txt" 4))
  (setq ofile (open rfile "r"))
  (while (setq row (read-line ofile))
(if (> (strlen row) 100)
(progn
(princ row)
(princ "\n")
)
(progn
(exit)
)
)
  )
  (princ "ok") ;;;;;;  <--------      das wird nicht ausgeführt
  (close ofile)
  (princ)
)

---

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

---

(defun c:a (/ FILE LISTE ZEILE NOTFOUND)
  (if(and(setq FILE (getfiled "Datei laden" "" "txt" 4))
          (setq FILE (findfile FILE))
          (setq FILE (open FILE "R"))
      )
    (progn
      (while (and NOTFOUND (setq ZEILE (read-line FILE)))                               
          (if (setq NOTFOUND(>(strlen ZEILE)100 ))
            (princ (strcat  ZEILE "\n"))
          ) 
      )                   
      (close FILE)
      (princ)
    )
  )
)

Nächstes Mal besser im Lispforum fragen!!! Ist kein Mechanical Thema!

Ich würde aber immer erst die gesamte Textdatei in einer Liste ablegen und dann erst Suchen usw...

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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