---

Frage vom LISP-Anfänger an LISP-Experten, ...

wie ist es möglich in LISP eine Textdatei zu öffnen,
Zeile für Zeile auszuwerten und dann hinter gefundener Zeile
eine zusätzliche neue Zeile einzufügen und diese dabei in eine
neue Datei zu schreiben? 

In einer DOS-Batch-Datei bewerkstellige ich es funktionierender Weise so :

@echo off & setlocal
set "Neuzeile=NeuenTextEinfügen;"
set "Nach=TextinZeile;"
set "Datei=%1"
set "DateiTmp=%1.x_t
for /f "delims=" %%i in (%Datei%) do (
    >>"%DateiTmp%" echo %%i
    echo %%i|findstr /b "%Nach%">nul && >>"%DateiTmp%" echo %Neuzeile%
)

Mein Problem, ich kenne mich mit der Syntax von SolidDesigner-LISP noch viel zu wenig aus.

Vielleicht kann mir einer von Euch helfen, wie es hier gemacht werden kann.

Ich denke man muss hier nicht unbedingt den Umweg über eine Batch-Datei machen?

Alternativ stellt sich mir die Frage, wie kann ich in LISP eine Batch-Datei aufrufen und dabei auch noch einen Parameter mit der zu ändernden Datei übergeben?
Dies sollte jedoch der zweite Ansatz sein, falls es mit dem ersten überhaupt nicht geht.

Danke im Vorraus

Gruß Wolfgang

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

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

---

Als Denkanstoss hilft vielleicht das: lisppart.lsp

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Du kannst Dich aus dem reichen Fundus von Tutorials und Doku zu Common Lisp bedienen. Zum Beispiel wird hier beschrieben, wie man in Common Lisp eine Datei Zeile für Zeile einliest:

http://cl-cookbook.sourceforge.net/files.html#line

Auf dieser Basis kannst Du Dir Deinen Code bauen. Grobentwurf (ohne jedweden Test):

Code:

---

(in-package :de.clausbrod)

(defun copy-file(infile outfile)
  (with-open-file (outstream outfile :direction :output)
    (with-open-file (instream infile)
      (do ((line (read-line instream nil)
                (read-line instream nil)))
          ((null line))
        (write-line line outstream)))))

---

Der obige Code kopiert eine Datei unverändert, und das Zeile für Zeile. In Deinem Fall musst Du noch entsprechende Logik einbauen, um auf Kenner in der Eingabedatei zu reagieren und dann etwas anderes zu tun, als nur zu kopieren.

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/ - Blog: http://www.clausbrod.de/Blog

[Diese Nachricht wurde von clausb am 23. Feb. 2016 editiert.]

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

---

Diese Variante liest sich wahrscheinlich etwas leichter:

Code:

---

(defun copy-file2(infile outfile)
  (with-open-file (outstream outfile :direction :output)
    (with-open-file (instream infile)
      (loop for line = (read-line instream nil)
        while line do
          (write-line line outstream)))))

---

Na gut, und wenn wir eh schon soweit sind:

Code:

---

(defun copy-file-with-replacement(infile outfile marker replacement)
  (with-open-file (outstream outfile :direction :output)
    (with-open-file (instream infile)
      (loop for line = (read-line instream nil)
        while line do
          (if (search marker line)
            (write-line replacement outstream)
           (write-line line outstream))))))

---

Beispielaufruf:

Code:

---

  (copy-file-with-replacement #P"foo.txt" #P"modified-foo.txt" "Java" "Lisp")

---

Weiterhin komplett ungetestet.

PS: An den Moderator: Vielleicht sollten wir das ins Programmierforum verschieben?

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/ - Blog: http://www.clausbrod.de/Blog

[Diese Nachricht wurde von clausb am 23. Feb. 2016 editiert.]

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

---

Vielen Dank an Walter und Claus für die schnellen Antworten.

Ich habe es gestern Abend ausprobiert und es hat funktioniert, ....

Mit jedem LISP-Makro bekommt man mehr Erfahrung und vielleicht wird es ja noch mit dem LISPeln, ... 

Danke, Danke, Danke, ...

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

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

---

Zitat:

---

Original erstellt von clausb:
PS: An den Moderator: Vielleicht sollten wir das ins Programmierforum verschieben?
[/i]

---

Soeben erledigt 

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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