| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Text-Filter (265 mal gelesen)
|
Theodor Schoenwald
Ehrenmitglied
   Beiträge: 1672
Registriert: 16.04.2002
|
erstellt am: 10. Nov. 2002 17:34  <-- editieren / zitieren -->   Unities abgeben:          
Hallo, wie kann ich in Lisp aus einer Zeichenkette bei der die Anzahl
vorgestellten und nachgestellten Leerzeichen nicht immer gleich ist,
ausfildern, Beispiel (die Leerzeichen stelle ich mit Unterstriche dar): ______rechts__ oder __rechts_____ oder _rechts______ Ich benötige z.B. nur das Wort "rechts" und möchte auch nur dieses abfragen. Ich bin gespannt wie eine Lösung aussehen kann. Gruß
Theodor Schönwald Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
VMichl
Mitglied
Beiträge: 212
Registriert: 04.01.2001 AutoCAD, LT, Inventor, Revit, Map, LISP...
Firma: Arkance Systems (CAD Studio)
|
erstellt am: 10. Nov. 2002 19:41 <-- editieren / zitieren --> Unities abgeben: Nur für Theodor Schoenwald 
Wie z.B. (ssget "X" '((1 . "*rechts*"))) ? Oder auch mit QSELECT (Contents, Wildcards). Aber vielleicht geht es nur um reine Stringmanipulation (trim) - hier kann (ai_strtrim <meintext> ) helfen... Vladimir Michl, Xanadu, www.cadstudio.cz
[Diese Nachricht wurde von VMichl am 10. November 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald
Ehrenmitglied
Beiträge: 1672
Registriert: 16.04.2002
|
erstellt am: 10. Nov. 2002 22:30 <-- editieren / zitieren --> Unities abgeben:
Danke Vladimir, für die Antwort, aber mein Problem ist doch komplizierter. Denn es kann sein, dass in dem String mit Leerzeichen auch ein anderes Wort steht. Mein Problem ist einfach die Leerzeichen wegzubekommen. Der String kommt aus einer Textdatei, die ich nicht beeinflussen kann. Vieleicht hast du auch dafür eine Lösung. Gruß
Theodor Schönwald Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Theodor Schoenwald
Ehrenmitglied
Beiträge: 1672
Registriert: 16.04.2002
|
erstellt am: 11. Nov. 2002 00:07 <-- editieren / zitieren --> Unities abgeben:
Hallo, Problem Leerzeichen und String gelöst. Event. gibt es bessere Lösungen, aber so funktioniert es: (defun LEERZ (A / A B C D E) (setq B (strlen A)
C 1
D ""
)
(while (<= C B)
(setq E (substr A C 1))
(if (/= 32 (ascii E))
(setq D (strcat D E))
)
(setq C (1+ C)
)
)
D
) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
LutzJ
Mitglied
Beiträge: 17
Registriert: 30.04.2002
|
erstellt am: 11. Nov. 2002 08:15 <-- editieren / zitieren --> Unities abgeben: Nur für Theodor Schoenwald
|
Theodor Schoenwald
Ehrenmitglied
Beiträge: 1672
Registriert: 16.04.2002
|
erstellt am: 11. Nov. 2002 19:06 <-- editieren / zitieren --> Unities abgeben:
Hallo Lutz, dein Vorschlag habe ich getestet. Das war es. Danke! Von einem anderen Forum habe ich die gleiche Antwort erhalten.
Ich muss mich nun doch mit den VL-Befehlen befassen. Gruß
Theodor Schönwald
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de (alle Foren)
| 
