---

Grüß Euch

Ich würde gern in so einer Liste:

Code:

---

  ("1 "abc" "xyz" "blabla""
  "2 "sgg" "klj" "wsd""
  "5 "erw" "dfg" "dwd" """
  "8 "dsf" "kl" "wreww""
  "15 "li" "wewe" "" "hs""
  ... usw.
  )
 
oder auch so einer:

  ((1 "abc" "xyz" "blabla")
  (2 "sgg" "klj" "wsd")
  (5 "erw" "dfg" "dwd" "")
  (8 "dsf" "kl" "wreww")
  (15 "li" "wewe" "" "hs")
  ... usw.
  )

(irgendwie gefällt mir die 2. besser ...)

---

nach dem ersten Wert (zB. 1 2 5 8 15 ...) suchen und die nachfolgenden Werte (oder die Unterliste) erhalten (ähnlich wie (member) ).

Aber ich steh irgendwie auf der Leitung und mir fällt nichts besseres ein, als die ganze Liste (kann auch hundert mal so lang sein und wird im Programm vielleicht auch hunderte Male durchsucht) mit (wcmatch) abzuklappern, dabei einen Index mitlaufen zu lassen um dann mit (nth index) das gewünschte Ergebnis zu kriegen.

Da gibts doch sicher was besseres - oder?

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

www.geopaint.at

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

---

Hallo,

so weit ich weiß sollte das alles mit car und cdr gehen! (LISP)

car - erstes ELement einer Liste
cdr - restliste ohne erstes Element

auch cadr/cdar/.... verschachtelbar bis in eine gewisse Tiefe

mfg Norbert

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

---

wenn es um das erste Vorkommen geht und der Schlüssel (1.Listeneintrag der Unterliste)ein Atom ist geht ASSOC

->(assoc 5
    '((1 "abc" "xyz" "blabla")
      (2 "sgg" "klj" "wsd")
      (5 "erw" "dfg" "dwd" "")
      (8 "dsf" "kl" "wreww")
      (15 "li" "wewe" "" "hs")
      )
  ) liefert (5 "erw" "dfg" "dwd" "")

ansonsten

(vl-remove-if-not
  '(lambda(X) (=(car X) 5))
  '((1 "abc" "xyz" "blabla")
    (2 "sgg" "klj" "wsd")
    (5 "erw" "dfg" "dwd" "")
    (8 "dsf" "kl" "wreww")
    (15 "li" "wewe" "" "hs")
  )
)
->(5 "erw" "dfg" "dwd" "")

mit bzw. ohne car vor dem vl... 

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

---

Manchmal hat man wirklich Bretter vorm Kopf...
(assoc) ist genau richtig!

Danke Thomas

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

www.geopaint.at

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

---

Hallo Ernst,
nur als Ergänzung zu CADmium's Beitrag, wenn Du nicht nach dem ersten Element in der Liste suchst kannst Du auch folgendes machen:

Code:

---

(cadr(assoc "xyz"
    (mapcar '(lambda(A)
      (list (caddr A)A))
    '((1 "abc" "xyz" "blabla")
      (2 "sgg" "klj" "wsd")
      (5 "erw" "dfg" "dwd" "")
      (8 "dsf" "kl" "wreww")
      (15 "li" "wewe" "" "hs")
      ... usw.
      ))))

---

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

Jörn

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

---

... und auch nur als Ergänzung für das erste Listenformat (auch wenn mir das Zweite besser gefällt).
Dieses kannst du mit (member ?WAS? #LISTE#) nach dem ersten Vorkommen von ?WAS? in der #LISTE# durchsuchen.

(member 2
        '(1 "abc" "xyz" "blabla"
          2 "sgg" "klj" "wsd"
          5 "erw" "dfg" "dwd" ""
          8 "dsf" "kl" "wreww"
          15 "li" "wewe" "" "hs"
          )
        )
=> '(2 "sgg" "klj" "wsd" 5 "erw" "dfg" "dwd" "" 8 "dsf" "kl" "wreww" 15 "li" "wewe" "" "hs")

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Servus

@Jörn
mit mapcar und lambda hab ich auch rumgespielt, bin aber irgendwie nicht damit klargekommen.

@Holger
Die Liste entsteht durch zeilenweises Lesen aus einer Datei, wobei eine Zeile beispielsweise so ausschauen kann:
2 "abc" "sdf" "lgjt" "" "dhh" ""
Das ergibt dann zB. solche Listenelemente: "2 "abc" "sdf" "lgjt" "" "dhh" """
Ich bräuchte dann wohl "(member 2* liste)" 

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

www.geopaint.at

[Diese Nachricht wurde von Geos am 17. Dez. 2007 editiert.]

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

---

... wenn du zufällig auch für das Tool verantwortlich ist, was die Liste in die Datei schreibt, dann schreibe das gleich im LISP-Format. Das machts einfacher und schneller. Ich habe mir dafür extra mal ein Excel-Makro geschrieben, was z.Bsp eine Excel-Tabelle in eine Lisp-Liste konvertiert.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH
Individuelle Lösungen von Heute auf Morgen.

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

---

Unter Umständen reicht es schon, ein
(READ <gelesene Zeile> )
auf die Zeile anzuwenden, um den String in eine Liste umzuwandeln.

------------------
Mit freundlichem Gruß

Udo Hübner

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

---

Ursprünglich wollte ich die Daten unverändert lassen, was der ersten Liste (s.o.) entsprechen würde. (read) würde in meinem Fall nur das 1.Element liefern.

Ja Holger, ich kann die Datei verändern, was ich auch tun werde - ein paar Klammern -

2 "abc" "sdf" "lgjt" "" "dhh" ""  ->>>  (2 ("abc" "sdf" "lgjt" "" "dhh" ""))

und ich kann mit (assoc) - siehe CADmium - auch gleich direkt auf die Unterlisten zugreifen.

Danke für Eure Unterstützung

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

www.geopaint.at

[Diese Nachricht wurde von Geos am 18. Dez. 2007 editiert.]

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