---

Ich möchte folgende Listen alphanumerisch sortieren

Code:

---

(setq Eerg '(("H_R_HATCH_GC-BANA" "68.58") ("H_R_ST_UTRUSTNING" "501.67") ("H_R_HATCH_RÖJNING" "12110.60") ("H_R_HATCH_HASTH_FYLLNING" "24.48") ("H_R_HATCH_HASTH_BERGSCHAKT" "17.40") ("H_R_HATCH_HASTH_JORDSCHAKT" "95.43") ("H_R_HATCH_TITTERI_FYLLNING" "101.11") ("H_R_HATCH_TITTERI_JORDSCHAKT" "1109.66") ("H_R_HATCH_ÖVRE STORÅSV_FYLLNING" "204.50") ("H_R_HATCH_ÖVRE STORÅSV_JORDSCHAKT" "145.72") ("H_R_HATCH_PLATTOR" "160.61") ("H_R_HATCH_GRUS" "305.72") ("H_R_HATCH_STG" "119.53") ("H_R_HATCH_OB_GBANA" "2212.56") ("H_R_HATCH_GÅNGTUNNEL" "995.06") ("H_R_HATCH_TRAPPA" "34.63") ("H_R_HATCH_FRÄSNING" "4562.03") ("H_R_HATCH_OB_GATA" "17776.58") ("H_R_HATCH_GR100" "18668.38") ("H_R_HATCH_SMG" "1485.86") ("H_N_HATCH_LÄTTFYLLNING" "564.62"))
)

---

Code:

---

(vl-sort Eerg (function (lambda (e1 e2) (< (substr (car e1) 11 1) (substr (car e2) 11 1) ) ) ))

---

so dass der erste Buchstabe nach H_R_HATCH_x zum Vergleich hergenommen wird.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Hallo Dirk,
vielleicht so?

Code:

---

(defun c:testSort ( / )
      (setq Eerg '(("H_R_HATCH_GC-BANA" "68.58")
                  ("H_R_ST_UTRUSTNING" "501.67")
                  ("H_R_HATCH_RÖJNING" "12110.60")
                  ("H_R_HATCH_HASTH_FYLLNING" "24.48")
                  ("H_R_HATCH_HASTH_BERGSCHAKT" "17.40")
                  ("H_R_HATCH_HASTH_JORDSCHAKT" "95.43")
                  ("H_R_HATCH_TITTERI_FYLLNING" "101.11")
                  ("H_R_HATCH_TITTERI_JORDSCHAKT" "1109.66")
                  ("H_R_HATCH_ÖVRE STORÅSV_FYLLNING" "204.50")
                  ("H_R_HATCH_ÖVRE STORÅSV_JORDSCHAKT" "145.72")
                  ("H_R_HATCH_PLATTOR" "160.61")
                  ("H_R_HATCH_GRUS" "305.72")
                  ("H_R_HATCH_STG" "119.53")
                  ("H_R_HATCH_OB_GBANA" "2212.56")
                  ("H_R_HATCH_GÅNGTUNNEL" "995.06")
                  ("H_R_HATCH_TRAPPA" "34.63")
                  ("H_R_HATCH_FRÄSNING" "4562.03")
                  ("H_R_HATCH_OB_GATA" "17776.58")
                  ("H_R_HATCH_GR100" "18668.38")
                  ("H_R_HATCH_SMG" "1485.86")
                  ("H_N_HATCH_LÄTTFYLLNING" "564.62")
                  )
      )
  (vl-sort Eerg (function (lambda (e1 e2) (< (testSort:String (car e1))
                                            (testSort:String (car e2)))))))

(defun testSort:String (String / )
  (setq StringVergleich "H_R_HATCH_")
  (if (= 0(vl-string-search StringVergleich String))
    (substr String (+ (strlen StringVergleich)1))
    (strcat "0" String)))

---

Weil die Namen "H_R_ST_UTRUSTNING" "H_N_HATCH_LÄTTFYLLNING" ein bißchen aus dem Schema springen habe ich die mit (strcat "0" ... nach vorne sortiert)

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

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

Koordinatenausgabe Youtube

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

---

Einsamme Spitze Jörn, die vl-string-search methode - ich habe mir mal den Spass erlaubt mit lambda rumzuspielen - was für mich immernoch eine tückische Lücke ist. Dank dir wird mir jetzt einiges klarer.

Mir ist aufgefallen in meiner Liste sind noch mehr Ungleichnisse enthalten.

Code:

---

(vl-sort
  '(("A" 2) ("C" 3) ("Z" 5) ("V" 1) ("G" 7) ("M" 9))
  (function
    (lambda (e1 e2) (< (car e1) (car e2)))
    )
  )

(vl-sort Eerg
(function
  (lambda (e1 e2)
    (if (and
  (= 0 (vl-string-search "H_R_HATCH_" (car e1)) )
  (= 0 (vl-string-search "H_R_HATCH_" (car e2)) )
  (= 0 (vl-string-search "H_N_HATCH_" (car e1)) )
  (= 0 (vl-string-search "H_N_HATCH_" (car e2)) )
  )
      (> (car e1) (car e2))
      (< (car e1) (car e2))
      )
    )
  )
)

---

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Hallo Dirk,
so ganz habe ich Deinen Code noch nicht verstanden, aber folgendes kann nicht funktionieren, da wird immer NIL rauskommen:

Code:

---

(and
  (= 0 (vl-string-search "H_R_HATCH_" (car e1)) )
  (= 0 (vl-string-search "H_R_HATCH_" (car e2)) )
  (= 0 (vl-string-search "H_N_HATCH_" (car e1)) )
  (= 0 (vl-string-search "H_N_HATCH_" (car e2)) )
  )

---

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

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

Koordinatenausgabe Youtube

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

---

Verstehe ich nicht ganz, der Test ergab bei mir eine sortierte Liste, ähnlich wie bei deiner Funktion. Ich habs halt nur gleich in lambda integriert.

------------------
Gruss Dirk

http://cadplayerlounge.blogspot.se

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

---

Hallo Dirk,
na weil z.B. der Inhalt der Varialben e1 nicht gleichzeitig

(= 0 (vl-string-search "H_R_HATCH_" (car e1)) )
und
(= 0 (vl-string-search "H_N_HATCH_" (car e1)) )

ergeben kann.

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

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

Koordinatenausgabe Youtube

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