---

Hallo,

Folgendes Problem:
In einer Liste mit Strings möchte ich nun einen String durch einen anderen ersetzen.
Ich möchte dies nur mit reinen LISP-Funktionen lösen.

z.B.:
(setq obf (list "A0" "A1" "A2" "A3" "A4"))
(subst "A=" "A2" obf)

Leider funktioniert die subst-Funktion irgendwie nicht mit Strings!
Gibts da nen Zusatz, oder welche Funktion muß ich dafür verwenden?

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

---

(subst) is für Listen - für Text nimm (substr)

------------------
Schöne Grüße
Ernst

Meine Homepage

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

---

Zitat:

---

Original erstellt von Geos:
(subst) is für Listen - für Text nimm (substr) 

---

Danke Ernst für deine schnelle Antwort.
Ich weiß dass "subst" nur für Listen ist.
Aber leider geht das mit der Funktion "substr" nicht, denn ich möchte keine AutoLips-Funktion verwenden. Bitte nur reine Lisp-Funktionen!

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

---

Hallo JC Wasti,

Deine Liste enthält die Werte samt Anführungsstriche, dein subst muss dann so aussehen:

Code:

---

(subst '"A=" '"A2" obf)

---

lg
Thomas

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

---

Zitat:

---

Original erstellt von spider_dd:
Hallo JC Wasti,

Deine Liste enthält die Werte samt Anführungsstriche, dein subst muss dann so aussehen:

Code:

---

(subst '"A=" '"A2" obf)

---

lg
Thomas

---

Hallo Thomas,

danke für die Antwort, nur leider funktioniert das mit der Quote auch nicht. Hab ich auch schon ausgetestet!
Hast du vielleicht noch ne andere Idee / Lösung?

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

---

Hallo Wasti,
ich bin der Meinung, subst funktioniert auch bei nur Strings in Listen. Ich habe mal 2 Beispiele gemacht, und es klappt mit beiden.
Beim ersten habe ich die String erst in eine Liste gepackt, dann gesubst, und dann wieder ausgepackt. Die zweite Funktion zeigt aber, das es eigentlich nicht notwendig ist.

Rückgabe in beiden Fällen: ("A0" "A1" "A=" "A3" "A4")

Code:

---

(defun c:test  (/)
  (setq obf (list "A0" "A1" "A2" "A3" "A4"))
  (mapcar '(lambda (A) (car A))
  (subst '("A=") '("A2") (mapcar '(lambda (A) (list A)) obf))))

(defun c:test1  (/)
  (setq obf (list "A0" "A1" "A2" "A3" "A4"))
  (subst "A=" "A2" obf))
 

---

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

Jörn

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

---

Hallo Wasti,

also bei mit klappt beides, mit und ohne '
(getestet in der Befehlszeile).

Mal ein paar Frage:
- Deine Variable obf wird bei (setq obf ... ) richtig belegt?
- wie sieht sie nach dem subst aus?
- gibt es eine Fehlermeldung, wenn ja welche?

lg
Thomas

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

---

Zitat:

---

Original erstellt von joern bosse:
Hallo Wasti,
ich bin der Meinung, subst funktioniert auch bei nur Strings in Listen. Ich habe mal 2 Beispiele gemacht, und es klappt mit beiden.
Beim ersten habe ich die String erst in eine Liste gepackt, dann gesubst, und dann wieder ausgepackt. Die zweite Funktion zeigt aber, das es eigentlich nicht notwendig ist.

Rückgabe in beiden Fällen: ("A0" "A1" "A=" "A3" "A4")

Code:

---

(defun c:test  (/)
  (setq obf (list "A0" "A1" "A2" "A3" "A4"))
  (mapcar '(lambda (A) (car A))
  (subst '("A=") '("A2") (mapcar '(lambda (A) (list A)) obf))))

(defun c:test1  (/)
  (setq obf (list "A0" "A1" "A2" "A3" "A4"))
  (subst "A=" "A2" obf))
 

---

---

Hallo Jörn,

vielen Dank für deine Antwort. Leider funktionieren deine zwei Funktionen nicht in meinem Listener! (LispWorks)
Bei mir kommt immer die originale Liste zurück!

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

---

Zitat:

---

Original erstellt von spider_dd:
Hallo Wasti,

also bei mit klappt beides, mit und ohne '
(getestet in der Befehlszeile).

Mal ein paar Frage:
- Deine Variable obf wird bei (setq obf ... ) richtig belegt?

Ja die Variable wird richtig belegt!

- wie sieht sie nach dem subst aus?

nach dem subst sieht sie immer noch so aus wie vorher!

- gibt es eine Fehlermeldung, wenn ja welche?

Es gibt auch keine Fehlermeldung!
Ich erstelle gerade ein eigenes LISP-Programm, also ohne ACAD! Es soll dann unabhängig vom CAD-System funktionieren!

lg
Thomas

---

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

---

Hallo Wasti,
na ein Versuch noch ohne subst:

Code:

---

(defun c:test2 ( / obf1)
  (setq obf (list "A0" "A1" "A2" "A3" "A4"))
  (while obf
    (if (=(car obf)"A2")
      (setq obf1 (cons "A=" obf1))
      (setq obf1 (cons (car obf) obf1)))
    (setq obf (cdr obf)))
  (reverse obf1))

---

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

Jörn

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

---

Zitat:

---

Original erstellt von joern bosse:
Hallo Wasti,
na ein Versuch noch ohne subst:

Code:

---

(defun c:test2 ( / obf1)
  (setq obf (list "A0" "A1" "A2" "A3" "A4"))
  (while obf
    (if (=(car obf)"A2")
      (setq obf1 (cons "A=" obf1))
      (setq obf1 (cons (car obf) obf1)))
    (setq obf (cdr obf)))
  (reverse obf1))

---

---

Danke Jörn für dein Bemühen.
Du hast mich auf ne Idee gebracht. Aber so gehts auch!
10Us4U!

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

---

>Bitte nur reine Lisp-Funktionen!

Seit wann ist CommonLisp (Lispworks) das 'reine' Lisp?

Ist dies nicht ein Autolisp/VisualLisp Forum?

Hans-Peter

------------------
Hans-Peter

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

---

Bei mir tut in Common-Lisp-Dialekten (CLISP, KCL/OneSpace Designer Modeling Lisp) der folgende Code das Gewuenschte:

Code:

---

(setq obf (list "A0" "A1" "A2" "A3" "A4"))
(substitute "A=" "A2" obf :test #'string=)

---

Claus

------------------
OneSpace Designer Modeling FAQ: http://www.clausbrod.de/Osdm/

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

---

Zitat:

---

Original erstellt von clausb:
Bei mir tut in Common-Lisp-Dialekten (CLISP, KCL/OneSpace Designer Modeling Lisp) der folgende Code das Gewuenschte:

Code:

---

(setq obf (list "A0" "A1" "A2" "A3" "A4"))
(substitute "A=" "A2" obf :test #'string=)

---

---

Hi Claus,

Danke für deine Antwort.
Das geht echt gut und so werd ichs dann auch machen.
10U's4u.

Gruß
JC Wasti

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