---

Morgen Lipler
Frage mit der folgenden Zeile kann ich eine Pos. eines Symbols abfragen,
(setq pos (vl-string-position (ascii "/") txt))
Wie kann man das ändern das ich mehrere Symbole abfragen kann
(setq pos (vl-string-position (ascii "/-_.") txt)) so geht es nicht.
danke im voraus.
mfg

------------------
Heinz 

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

---

Hallo Heinz,

ersteinmal zu deinem Vokabular: Du willst keine Symbole abfragen, sondern das Vorkommen eines Zeichens ermitteln.

Es gibt verschiedene Interpretationen deiner Aufgabe.
a) die Zeichen in der vorgegebenen Reihenfolge, als zusammenhängende Zeichenkette betrachtet
-> dann ist vl-string-search die Funktion, die du suchst.

b) jedes einzelne Zeichen für sich betrachtet, dann musst du das (vl-string-position ..) eben mehrmals aufrufen.
Da das jedoch recht mühsam ist, habe ich mir dafür bereits eine Funktion geschrieben, die zudem jedes Vorkommen eines Zeichens ermittelt:

Code:

---

(defun getCharPositions (STR CHARs /)
;Ermittelt die Positionen mehrerer Zeichen in einem String
  (mapcar '(lambda (CHAR)
  (cons CHAR(getCharPosition STR CHAR))
  )
CHARs
)
  )
(defun getCharPosition (STR CHAR / pos posli)
;Ermittelt die Positionen eines einzelnen Zeichens in einem String
  (while (setq pos(VL-STRING-POSITION (ascii CHAR) STR))
    (setq pos (1+ pos)
  posli (if posli
  (cons (+ pos (car posli)) posli)
  (cons pos posli)
  )
  STR (substr STR (1+ pos))
  )
    )
  (reverse posli)
  )
;Beispiele
(setq TESTSTR "c:\\Temp\\Save\\Delete\\")
;Aufrufe für einzelne Strings
(getCharPosition TESTSTR "\\")
(getCharPosition TESTSTR "e")
(getCharPosition TESTSTR "x")
;Aufrufe für mehrere Strings
(getCharPositions TESTSTR '("\\" "e" "c" "S" "x"))

---

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

meinst du vl-string-search ?

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

---

@ @ Danke euch, genau das suchte ich.

mfg

------------------
Heinz 

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

---

Zitat:

---

Original erstellt von Dober Heinz:
@ @ Danke euch, genau das suchte ich.

---

ähmm - was hattest du nun gesucht?

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

---

@ Holger
Na beide Vorschläge habe ich gebraucht.
dein lisp ist natürlich mein Favorit.
mfg

------------------
Heinz 

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

---

@ Holger
Vergessen schicke dir noch US
mfg

------------------
Heinz 

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