Hallo,
ich bin zur Zeit am experimentieren mit Listen. Wichtig für mich ist es, daß ich anhand einer Identifikation auf die angehängten Daten zugreifen kann, in meinen Beispiel sind dieses Codenummern mit angehängten Daten im Format "Dotted Pair's". Um auf einem Datensatz anhand der Identifikation zuzugreifen verwende ich "vl-member-if" wie unten im Beispiel dargestellt.
Ist das eine sinnvolle Vorgehensweise???, oder könnte es Probleme geben wenn die Listen ziemlich groß werden.
(defun c:test ( / liste code datensatz)
(setq liste
'((238 (1 . "BV-FM-SYM") (2 . "BFMPFNR") (3 . "0.25") (30 . "Rechts-Pfeil"))
(237 (1 . "BV-FM-SYM") (2 . "BFMPFNL") (3 . "0.25") (30 . "Links-Pfeil"))
(236 (1 . "BV-FM-SYM") (2 . "BFMPFGR") (3 . "0.25") (30 . "Geradeaus-Rechts-Pfeil"))
(235 (1 . "BV-FM-SYM") (2 . "BFMPFGL") (3 . "0.25") (30 . "Geradeaus-Links-Pfeil"))
(234 (1 . "BV-FM-SYM") (2 . "BFMPFG") (3 . "0.25") (30 . "Geradeaus-Pfeil"))))
(setq code 235)
(if(vl-member-if'(lambda (x) (= (car x) code))liste)
(setq datensatz (car (vl-member-if'(lambda (x) (= (car x) code))liste)))
(setq datensatz nil))
)
------------------
viele Grüße
Jörn
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP