---

Hallo,
ich möchte mit mit der Funktion READ aus einem String eine auswertbare Funktion erzeugen:

Code:

---

(defun c:test  (/ textwert filter)
  (setq textwert "test"
        filter  "*es*")
  (eval (read (strcat "(wcmatch \"" textwert "\"\"" filter "\")"))))

---

Das funzt auch soweit, sobald der Textwert aber ein Anführungszeichen enthält kommt die READ-Funktion damit nicht mehr klar.

Code:

---

(defun c:test1  (/ textwert filter)
  (setq textwert "\"test"
        filter  "*es*")
  (eval (read (strcat "(wcmatch \"" textwert "\"\"" filter "\")"))))

---

Gibt es da einen Trick???

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

Jörn
http://www.bosse-engineering.com

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

---

Ja, du mußt den Backslash auch in den String fummeln.
Also:

(defun c:test1  (/ textwert filter)
  (setq textwert "\\\"test"
        filter  "*es*")
  (eval (read (strcat "(wcmatch \"" textwert "\"\"" filter "\")"))))

------------------
Gruß
Andreas

http://kraus-cad.de

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

---

Hallo Andy,
danke für den Wink mit dem Zaunpfahl, so geht es natürlich.
Anbei noch ein Funktion zum ergänzen der Backslashes wenn ein Anführungszeichen im String gefunden wird.

Code:

---

(defun test:replace (textwert / )
  (vl-list->string
  (apply 'append
  (mapcar '(lambda(A)
            (if (= A 34)
              (list 92 34)
              (list A)))
    (vl-string->list textwert)))))

---

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

Jörn
http://www.bosse-engineering.com

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

---

geht das nicht auch mit:

(vl-string-subst "\\\"" "\"" textwert)

oder hab ich da was übersehn ?

------------------
Gruß
Andreas

http://kraus-cad.de

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

---

Hallo Andreas,
vom Prinzip schon, aber nicht wenn mehrere Anführungstriche im String enthalten sind.
Bei

(while (vl-string-search "\"" textwert)
(setq textwert (vl-string-subst "\\\"" "\"" textwert)))

würden sich die Anführungstriche stetig vermehren bis der Rechner nicht mehr kann 

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

Jörn
http://www.bosse-engineering.com

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

---

Ah ja

Aber so vielleicht:

(vl-list->string
  (apply 'append
(subst '(92 34)
'(34)
(mapcar 'list
(vl-string->list textwert)
)
)
  )
)

------------------
Gruß
Andreas

http://kraus-cad.de

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