---

Hallo an alle,
mich plagt ein kleines Problem. Kann mir jemand einen Tip geben?
Mein Problem: Ich habe eine Textdatei mit 25 Zeilen. Die Zeilen bestehen entweder aus Text (1 bis 2 Wörter) oder aus einer Dezimalzahl. Aufgrund neuer Variablenwerte aus der Zeichnungsebene möchte ich durch eine Lisp-Routine die Inhalte von 3 Zeilen (z.B. Zeile 10, 11 und 12) neu belegen, das heisst, die alten Werte entfernen und diese durch die neuen Variablenwerte ersetzen. Der Rest der Zeilen soll unverändert bleiben. Kann man so etwas mit AutoLISP realisieren?
Für Infos danke ich im Voraus.

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

---

Ja geht .. Datei öffnen, mit read-line alle Zeilen einlesen und in Liste ablegen .. ,Datei schließen.

Liste/Einträge manipulieren (subst..) oder mit (cons ..) Liste neuaufbauen

Datei im Write-Modus öffen und Einträge der Liste mit (princ..) oder (write-line ..) zurückschreiben.
Datei schließen.

------------------
  - 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 Lispelmann,
und hier nochmal ein Beispiel zu Thomas seinen Ausführungen:

Code:

---

;;;Datei schreiben
(defun SCHREIBEN (dateiname liste / datei)
(setq datei (open dateiname "w"))
  (mapcar '(lambda(A)
    (write-line (cadr A) datei))liste)
  (close datei))

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

;;;Zeile ersetzen
(defun ERSETZEN (dateiname / )
  (if (setq liste (LESEN dateiname))
    (SCHREIBEN dateiname
      ;;;z.B. 3. Zeile ändern
      (subst (list 3 "test")(assoc 3 liste)liste))))

---

aufrufen z.B. mit (ersetzen "c:\\test.txt")

------------------
viele Grüße

Jörn

[Diese Nachricht wurde von joern bosse am 27. Feb. 2008 editiert.]

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

---

Hallo Thomas und Jörn,

ich danke für die schnelle Hilfe. Ich werde die Antworten durcharbeiten.

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

---

Hallo Thomas, Hallo Joern,

es hat super funktioniert. Ein herzliches Dankeschön für die Unterstützung.

Gruß

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