---

Mittels
(VL-STRING-search "\\" (getvar dwgprefix) 4)
versuche ich, die Position des 4. Auftritts von '\' zu erhalten und bekomme als Ergebnis nil.
Wenn ich als Suchkriterium den Backslash nur einmal statt zweimal nehme erhalte ich '("_> ' mit blinkendem Cursor.
Liege ich völlig falsch mit meinem Ansatz?

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

---

Hallo cad4fun,
also erstmal muß die Sysvar im Anführungszeichen:

(getvar "dwgprefix")

und dann suchst du damit nicht nach dem vierten vorkommen sondern gibst die Startposition zum Durchsuchen des Strings an. Damit kannst du Zeicen am Anfang überspringen.
Für dein Vorhaben brauchst du was anderes.

Lies mal das hier, da hab ich was hochgeladen das sollte helfen

http://ww3.cad.de/foren/ubb/Forum145/HTML/002546.shtml#000000

Bei Fragen ... frag.

------------------
Geht nicht, gibts nicht

Gruß
Andreas

http://kraus-cad.de

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

---

"\" liefert das "-Zeichen  ... der String ist also nicht abgeschlossen .. damit ist also auch der Parameterausdruck noch offen ...

(vl-string-search ... 4) ... liefert nicht das 4.Auftreten, sondern durchsucht den String nach erstmaligem auftreten nach dem 4. Zeichen

aber du suchst doch bestimmt nicht nur die Position, sondern den Teil davor oder danach , oder?

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

---

Hi,

die andern beiden haben's ja schon gesagt.
Hier die passenden Seiten von Axel: http://autolisp.mapcar.net/strings.html  und folgende...

Gruß
CADchup

------------------
CADmaro.de

[Diese Nachricht wurde von CADchup am 01. Mrz. 2012 editiert.]

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

---

Zitat:

---

Original erstellt von CADmium:

aber du suchst doch bestimmt nicht nur die Position, sondern den Teil davor oder danach , oder?

---

Du hast es exakt erfasst(davor), und ich habe leider unterschiedliche Pfadlängen. Und dann sollte man halt Englisch können.
Danke auch an die anderen 2, jetzt hab ichs gefunden mit
(vl-string-search "\\" (getvar "dwgprefix") 35)
jetzt kann ich mich weiter durchkämpfen

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

---

IMHO der falsche Ansatz ....  wie ist es mit

(defun PATH2LIST(PATH)
      (while(or(vl-string-search "\\" PATH)(vl-string-search "/" PATH))
        (setq PATH (vl-string-subst "\" \"" "\\" PATH))
        (setq PATH (vl-string-subst "\" \"" "/" PATH))
      )     
      (vl-remove-if '(lambda(X)(= X ""))(read (strcat "(\"" PATH "\")")))
  )

und (PATH2LIST(getvar "DWGPREFIX"))  ?
mit den Einträgen von Pfadlist kann man sich ja einen Neuen Directory baum basteln und den mit

(apply 'strcat ..

wieder zu einem Pfad zusammenbauen, wie man will

------------------
  - 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 für den Code-Schnipsel, bin mit

(setq backslashpos  (vl-string-search "\\" (getvar "dwgprefix") 33))
(setq einfuegepfad (strcat (substr (getvar "DWGPREFIX") 1 backslashpos)"\\Schriftfeld\\"))

vielleicht nicht schön, aber für mich ausreichend zum gewünschten Ergebnis gekommen

[Diese Nachricht wurde von cad4fun am 02. Mrz. 2012 editiert.]

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

---

Auch wenn das Thema eigentlich schon vorbei ist, für solche Sachen verwende ich immer gerne vl-string->list und vl-list->string

Ein Beispiel:

Code:

---

(defun c:test ( / INTSEARCHPATTERN POSLIST SPLITTEDELEMENTS STRLIST)
  (setq StrList (vl-string->list(getvar "DWGPREFIX"))
        IntSearchPattern(car(vl-string->list "\\")))

  (setq PosList (test:PosList StrList IntSearchPattern)
        SplittedElements (test:SplittedElements StrList IntSearchPattern))
  )

;;;Positionen für Substr, an den der SearchPatter auftritt
(defun test:PosList (StrList IntSearchPattern / n)
  (setq n 0)
  (vl-remove-if 'not
    (mapcar '(lambda(A)
              (setq n (+ n 1))
              (if (= A IntSearchPattern)n))
      StrList)))

;;;Zwischenelemente, die zwischen den SearchPattern's liegen
(defun test:SplittedElements (StrList IntSearchPattern / A RETVAL TEMP)
  (vl-remove-if 'not
    (mapcar '(lambda(A)
              (setq retval nil)
              (if(= A IntSearchPattern)
                (setq retval(reverse temp)
                      temp nil)
                (setq temp (cons A temp)))
              (if retval(vl-list->string retval)))StrList)))

---

In der PosList werden die Positionen für SUBSTR ausgegeben, also beginnend bei 1 für das erste Zeichen.

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

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

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