---

"1.-1x148.0/29.7"
"2.-15x48.0/290.7"

Wie kann ich so ein String auseinander nehmen um sowas zu bekommen

(setq a 1 b 1 c 148.0 d 29.7 )                 
bzw
(setq a 2 b 15 c 48 d 290.7
  mit substr hat kein Sinn da die Strings unterschiedliche Länge haben.

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

---

Hallo RoyCAD,
wenn die Trennzeichen ".-" "x" und "/" in jedem String gleich sind, dann kann man es doch mit substr machen:

Code:

---

(defun string_test (string / a b c d)
  (setq a (atoi(car (setq temp(string_trenn  string ".-"))))
b (atoi(car (setq temp(string_trenn  (cadr temp) "x"))))
c (atof(car (setq temp(string_trenn  (cadr temp) "/"))))
d (atof(cadr(string_trenn  (cadr temp) "")))))

(defun string_trenn (string trennstring / x )
  (list(substr string 1 (vl-string-search trennstring string))
      (substr string (+(vl-string-search trennstring string)(+(strlen trennstring)1)))))

---

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

Jörn

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

---

Ich habe auch ein super Programm von Holger Brischke
es funktioniert auch Perfekt. Danke für die Hilfe

Gruß
Roy

(defun c:StringteilerTest (/ TEXT antw TRENNER)
  (setq TEXT(getstring "\nText eingeben: ")
)
  (while (/= ""(setq antw (getstring "\nTrennzeichen eingeben:")))
    (setq TRENNER (cons (substr antw 1 1) TRENNER))
    )
  (STR:TRENN TEXT TRENNER)
  )
(defun STR:TRENN (TEXT TRENNER / TEXTLI)
  (setq TEXTLI (list TEXT))
  (foreach TRENN TRENNER
    (setq TEXTLI (flatten(mapcar '(lambda (TXT)
    (do:TRENN TXT TRENN)
    )
TEXTLI
)))
    )
  (vl-remove "" TEXTLI)
  )
(defun flatten(liste / )
  ;von Axel Strube-Zettler. Danke!
  (cond
    ((null liste)nil)
    ((atom liste)(list liste))
    (1(append(flatten(car liste))(flatten(cdr liste))))
  )
)
(defun do:TRENN (TEXT ZEICHEN / POS VTEXT NTEXT)
  (if (wcmatch TEXT (strcat "*"ZEICHEN"*"))
    (progn
      (setq POS (vl-string-position (ascii ZEICHEN) TEXT)
    VTEXT (substr TEXT 1 POS)
    NTEXT (substr TEXT (+ POS 2))
    )
      (mapcar '(lambda (TXT)
(do:TRENN TXT ZEICHEN)
)
      (list VTEXT NTEXT)
      )
      )
    TEXT
    )
  )

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