Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  alphanumerisch sortieren

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  alphanumerisch sortieren (1144 mal gelesen)
cadplayer
Ehrenmitglied
CADniker


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

Beiträge: 1832
Registriert: 28.04.2009

erstellt am: 03. Mai. 2013 14:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 03. Mai. 2013 16:33    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadplayer 10 Unities + Antwort hilfreich

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

cadplayer
Ehrenmitglied
CADniker


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

Beiträge: 1832
Registriert: 28.04.2009

erstellt am: 04. Mai. 2013 19:36    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 05. Mai. 2013 15:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadplayer 10 Unities + Antwort hilfreich

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

cadplayer
Ehrenmitglied
CADniker


Sehen Sie sich das Profil von cadplayer an!   Senden Sie eine Private Message an cadplayer  Schreiben Sie einen Gästebucheintrag für cadplayer

Beiträge: 1832
Registriert: 28.04.2009

erstellt am: 06. Mai. 2013 13:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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



Dipl. Ing. / Bachelor / Master (m/w/d) - Fachrichtung Architektur oder Bauingenieurwesen, Schwerpunkt Hochbau -

Die Stadtverwaltung Rheine gehört mit ca. 800 Mitarbeitenden zu den größten Arbeitgebern in Rheine. Wir verstehen uns als moderner Dienstleister und sichern die Lebensqualität von ca. 80.000 Einwohnern und Einwohnerinnen in einer lebens- und liebenswerten Stadt!

Die Stadt Rheine sucht zum nächstmöglichen Zeitpunkt eine/n:

Dipl. Ing./Bachelor/Master (m/w/d)
- ...

Anzeige ansehenArchitektur
joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 06. Mai. 2013 14:06    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für cadplayer 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz