---

Hallo zusammen,

habe eine CSV Datei mit folgendem Inhalt:

;346-60A1;;33585.11;321524.20;;;4091248.989;1233855.453;4719356.613;
05003;D1;;33216.26;321493.50;;;4091347.706;1233499.758;4719304.849;
05003;D2;;33236.40;321482.27;;;4091349.987;1233521.410;4719297.263;
usw.

möchte den Inhalt der einzelnen Zeilen nun "zerlegen" um diesen verschiedenen Variablen zuzuweisen.

für die erste Zeile würde das bedeuten:
VAR1 = leer
VAR2 = 346-60A1
VAR3 = leer
VAR4 = 33585.11
usw.

für die zweite Zeile:
VAR1 = 05003
VAR2 = D1
VAR3 = leer
VAR4 = 33216.26
usw.

Die Zeile auslesen schaffe ich noch

(setq zeile (read-line F))
(print zeile)

steht dann auch schön am Bildschirm nur beim Zerlegen javascript:InsertSMI(' %20');

Hat wer eine AUTOLISP-Lösung.
DANKE

------------------
Grüße Bernd

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

---

(defun DT:STR-DIVS(STRING SEPARATOR / POS OFFSET LISTE)
  (if(and(=(type STRING) 'STR)(=(type SEPARATOR) 'STR))
    (progn
      (setq POS    (vl-string-search SEPARATOR STRING))
      (setq OFFSET (1+(strlen SEPARATOR)))
      (while POS
        (setq LISTE  (cons (substr STRING 1 POS) LISTE)
              STRING (substr string (+ POS OFFSET))
              POS    (vl-string-search SEPARATOR STRING)
        )
      )
      (reverse (cons STRING LISTE))
    )
  )

(DT:STR-DIVS ";346-60A1;;33585.11;321524.20;;;4091248.989;1233855.453;4719356.613;" ";")
liefert dann
("" "346-60A1" "" "33585.11" "321524.20" "" "" "4091248.989" "1233855.453" "4719356.613" "")
oder gleich sowas
(mapcar 'set
        '(VAR1 VAR2 VAR3 VAR4 VAR5 VAR6 VAR7)
        (DT:STR-DIVS ";346-60A1;;33585.11;321524.20;;;4091248.989;1233855.453;4719356.613;" ";")
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
  - 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 die schnelle Antwort,

aber ist für mich noch zu hoch.

Könntest Du es bitte auf mein Beispiel UMLEGEN.

Hab den Wert einer Zeile in der Variablen ZEILE gespeichert und das Trennzeichen der einzelnen Felder innerhalb der Zeile ist immer ein ";"
Dann rufe ich die zusätzliche Funktion "csv_zerlegen_ap" auf wo die "Zerlegung" und Zuweisung zu den einzelnen Variablen erfolgen soll. Das ginge irgendwie mit dem von Dir unten angeführten mapcar (glaub ich). Nachdem die Werte (auch "" möglich) den einzelnen Variablen zugewiesen wurden kehre ich wieder zum "Ausgansprogramm" zurück, mach dann dort was mit den Variablen, lese die nächste Zeile ein und starte von neuem.

Wie wäre Dein Code da zu ändern?

Danke nochmals.

------------------
Grüße Bernd

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

---

Hallo Bernd,

übergib an den Aufruf der Funktion

DT:STR-DIVS einfach Deine Variable ZEILE als ersten Prameter.

Also etwa so

(DT:STR-DIVS Zeile ";")

HTH

Gruß
Thomas

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

---

Genau das warŽs, Problem gelöst.
Danke 

------------------
Grüße Bernd

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

---

DosLIB bietet auch schöne Funktionen zum Daten einlesen und zerhacken ...
https://wiki.mcneel.com/doslib/home

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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