Hallo Forum,
ich bräuchte mal wieder eure Hilfe.
Und zwar geht es um folgendes:
Will an eine bestehende Liste die erste Zeile ersetzt . Und z.B 5 neuen Zeilen angehängt werden.
Das mit dem anghängen ist ein einfach da mach ich den Befehl:
(setq a (open Pfad "a"))
Dies bekomm ich ja hin. Aber das mit dem ersetzen der ersten Zeile macht mit Schwierigkeiten. Hab hier im Forum gesucht und bin auf folgenden Beitrag gestoßen. http://ww3.cad.de/foren/ubb/Forum145/HTML/002383.shtml#000001
Dort dir gibt es ein Programm wo mit man den Inhalt der Liste in eine Variable speichern kann.
;;;Datei lesen
(defun LESEN (dateiname / zeile datei liste n)
(if(setq datei (open dateiname "r"))
(progn
(setq n 1)
(while (setq zeile (read-line datei))
(setq liste (cons (list n zeile) liste))
(setq n (+ n 1)))
(close datei)))
(reverse liste))
So hab ich das in meine Routine übernommen.
(defun lesetext ()
(setq n 1)
(setq datei (open opendatei "r"))
(while (setq zeiledatei1 (read-line datei))
(princ (mapcar 'cdr zeiledatei1))
(setq liste (cons (list n anzahlopzeile) liste))
(setq n (+ n 1))
)
(close datei)
(reverse liste)
)
Jetzt zu meinem Problem.
Diese Programm läuft auch aber es nimmt immer die erste Zeile und schreibt die in die Liste.
Bei einer Liste die so aussieht:
3
Linie 0,0 0,1
Linie 0,0 0,2
Linie 0,0 0,3
Steht am ende in der Variable:
(1. 3)(2. 3)(3. 3)(4. 3)
Wollte wissen wie ich einen Zeilensprung machen kann,
dass auch die anderen werte in die Liste kommen.
Oder ist das einfach nicht möglich?
Ich danke für jede Hilfe.
MFG
FiRePhoenix
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de (alle Foren)
Thema geschlossen!
| 
