---

Hallo Forum,
Ich möchte mal wieder eure Hilfe in Anspruch nehmen.
Ist eigentlich nur Interessenhalber.
Hab eine Liste die wie folgt aufgebaut ist.

Linie 0.1 0.2
Linie 0.3 0.3
Linie 0.4 1.5
.......

Zwischen den Linie und der zahl ist ein Tab und zwischen den Zahlen ist auch ein Tab.
Wollte fragen ob man die Drei werte in 3 Variabel raus schreiben kann ?
Hab es probiert kriege aber nur einen String raus „linie/t0.1/t0.2“.
Jetzt weiß ich aber nicht wie ich auf die einzelnen Sachen filtern kann.
Hab es mit stutzen der String probiert, da aber die zahle sich variieren hilft das nichts.
Ich wollte eigentlich nur fragen ob das überhaust möglich ist ?
Eine Lösung in Lisp wer mir an liebsten wenn es in VBA aber besser geht ist das auch gut.
Ich bedanke mich schon mal im voraus.

Mit freundlichen Grüßen

Firephoenix

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

---

Hi,
vielleicht hilft da schon DIESER BEITRAG weiter.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

      http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 13. Jan. 2009 editiert.]

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

---

Mal ein bißchen Bsp-Code:
(setq ZEILE "linie\t0.1\t0.2")
(setq LISTE nil)     
(while (setq POS (vl-string-search "\t" ZEILE))
  (setq LISTE (cons (vl-string-trim " " (substr ZEILE 1 POS))LISTE))
  (setq ZEILE (substr ZEILE (+ POS 2)))
)
(setq LISTE (cons ZEILE LISTE))
(setq LISTE (reverse LISTE))

und wenn du die Zahlen als Zahlen haben willst :
noch das hinterher
(mapcar '(lambda(X / Y)(if(setq Y (distof X)) Y X))LISTE)

und Zuweisungen kann man auch gleich machen

(mapcar '(lambda(X  Y)(set (read X) Y)) '("A" "B" "C")LISTE)

danach sind die Werte an die Variablen A B C gebunden

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

Axel hat hier und auf seiner HP Funktionen zur Trennung von Strings gepostet. Such mal nach "Tokenizer" oder schau im Kochbuch ab Seite 163 nach.

Gruß
CADchup

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

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

---

ich verwende dazu dieses kleine Lisp

Code:

---

;------------------------------------------------------------------------------
; Fuktion Split                                                               
; wandelt einen string in eine liste um                                       
; (split "Anton Berta Cäsar" " ") -> '("Anton" "Berta" "Cäsar")               
;------------------------------------------------------------------------------
(defun Split (String Separator / )
  (setq string (replace string "\\" "/"))
  (setq String (replace String Separator "\"\""))
  (setq String (strcat "(list \"" String "\")"))
  (eval (read String))
)

---

damit erhäst du mit
(split "linie/t0.1/t0.2" "/t")

folgendes Ergebnis
('"linie" "0.1" "0.2")

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

---

@cadmium:
warum so "kompliziert"?
statt
(mapcar '(lambda(X  Y)(set (read X) Y)) '("A" "B" "C")LISTE)
reicht auch
(mapcar 'set '(a b c) liste)

gruss
marco

------------------
Marco Heuer
www.arc-aachen.de
Airport Office

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

---

Zitat:

---

Original erstellt von neurosis:
@cadmium:
warum so "kompliziert"?
statt
(mapcar '(lambda(X  Y)(set (read X) Y)) '("A" "B" "C")LISTE)
reicht auch
(mapcar 'set '(a b c) liste)

gruss
marco

---

naja .. meistens lese ich Variablennamen auch aus Dateien oder sonstwo her ein .. und dann sind sie Strings ...

Was ich als lambda-Ausdruck übergebe hängt vom jeweiligen Konsens ab... dieses Posting dient max. als Beispiel für solche Zuweisung ... fertige Tools sehen bei auch bei mir anders aus.

wer das mapcar scheut ( zu "kompliziert" ist), kann ja hier auch auf car ,cadr .... zugreifen 

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