| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für PTC CREO |
| | |
 | Besichtigung der MAIT.Cloud in Frankfurt | 17.09.2025, eine Veranstaltung am 17.09.2025
|
|
Autor
|
Thema: Text zerlegen (806 mal gelesen)
|
Greskamp
Mitglied
Ingenieur
   Beiträge: 523
Registriert: 12.03.2003
|
erstellt am: 27. Okt. 2015 12:00  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, ich habe noch nicht viel im lisp programiert, deshalb vielleicht eine recht einfache Frage. Wie kann ich Texte in Teile zerlegen. Wenn ich z.B. die Variable
(SETQ NAMENAME "Hallo Welt")
habe, wie bekomme ich diesen Text dann in 2 Variablen zerlegt.
Die dann z.B. heißen NAMENAME1 = "Hallo" und NAMENAME2 = "Welt"
Finde da bei den üblichen "sd-string..." Befehlen irgendwie nicht das richtige. Danke für eure Hilfestellungen ------------------
Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PeterO
Mitglied
Admin
Beiträge: 101
Registriert: 14.01.2003 Windows XP
Modeling 15.50A
Drafting 15.50A UI3
ModelManager 15.50A
|
erstellt am: 27. Okt. 2015 12:55 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp 
Hallo Peter, du kannst den Text mit sd-string-split zerlegen.
Hier ein kleines Beispiel ;; (TEST::Text_zerlegen "Hallo Welt") (in-package :TEST)
(use-package :OLI) (defun Text_zerlegen (Eingabe)
(let (TEXT TEXT1 TEXT2)
(SETF TEXT Eingabe)
(display (format nil "Eingabe = ~a" TEXT))
(SETF TEXT (sd-string-split TEXT " "))
(display (format nil "Anzahl der Wörter = ~a" (length TEXT)))
(SETF TEXT1 (first TEXT))
(SETF TEXT2 (first (rest TEXT)))
(display (format nil "Text = ~a" TEXT))
(display (format nil "Text1 = ~a" TEXT1))
(display (format nil "Text2 = ~a" TEXT2))
)
)
------------------
Gruß,
Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Greskamp
Mitglied
Ingenieur
Beiträge: 523
Registriert: 12.03.2003
|
erstellt am: 27. Okt. 2015 14:23 <-- editieren / zitieren --> Unities abgeben:
Hallo Peter, das liest sich auch erst mal sehr gut und klingt auch logisch. Aber wie rufe ich das denn jetzt auf. Wenn ich das .lsp reinziehe, passiert nichts. Kannst du mir das noch mal sagen wie ich das dann starte. Danke Gruß Peter ------------------
Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
PeterO
Mitglied
Admin
Beiträge: 101
Registriert: 14.01.2003 Windows XP
Modeling 15.50A
Drafting 15.50A UI3
ModelManager 15.50A
|
erstellt am: 27. Okt. 2015 14:41 <-- editieren / zitieren --> Unities abgeben: Nur für Greskamp
|
Greskamp
Mitglied
Ingenieur
Beiträge: 523
Registriert: 12.03.2003
|
erstellt am: 27. Okt. 2015 14:49 <-- editieren / zitieren --> Unities abgeben:
Hallo Peter, na da hätte ich auch selber drauf können kommen.
Habe noch nie mit defun gearbeitet.
Aber so läuft es super und macht es was es soll. Ganz einfach wenn man weiß wie es geht... hihi Besten Dank ------------------
Gruß Peter Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
