---

Hallo Forum,
ich bitte um Hilfestellung bei folgender Fragestellung:
Ich möchte zeilenweise Daten aus einer TXT-Datei einlesen.
Jeder Zeile soll ein Name von P0,P1...P7 zugewiesen werden.
Hier mit c. Die Namen werden auch konserviert.
c übernimmt zunächst auch die Nummerierung von P0,..Pn.
Ich möchte L1 zeilenweise an P0,P1 übergeben statt an c, das
als "Platzhalter" für P0..P7 steht. Wo ist mein Denkfehler?
Für c möchte ich jeweils P0, P1...übernehmen, so daß
ich später die einzelnen Werte abrufen kann.

(DEFUN c:Sektor()
(SETQ datname "SektorPoly.txt")
(SETQ datdat (findfile datname))
(SETQ inp (OPEN datdat "r") ct 0)
  (WHILE (SETQ Zeile (READ-LINE inp))
    (setq c(strcat "P" (itoa ct))) Ž; Erzeugen Variablenname P0,P2, ...P7
    (setq c(read c))
    (SETQ L1 (List zeile))
    (SETQ c (car L1)); C soll hier die Variablennamen P0,..,P11 übernehmen
    ; !c übergibt (50.00,30.00) nach Schleifende
    ; !P0 leider nicht
    (SETQ ct (1+ ct))
    )
(close inp)
  )

Ich bin für jeden Tipp dankbar. Vielen Dank vorab.
MfG Martin

Beispieldaten
10.00,10.00  ; P0
02.00,30.00  ; P1
10.00,40.00
18.00,30.00
42.00,10.00
34.00,30.00
42.00,40.00
50.00,30.00  ; P7

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

---

hey sponk-mg

ersetze (setq c ... durch (set c ...

(setq c 0) entspricht (set (quote c) 0)
Das erste argument wird sozusagen nicht evaluiert.

Du produzierst dabei jedoch viele (unkontrollierbare) globale variablen.
Besser wäre doch die dinge in eine assoc-liste zusammenzufassen.
zb.:
  (setq assoc-list
    (cons
     (cons c (car L1))
     assoc-list
  )

und zugriff mittels (cdr (assoc "P1" assoc-list))

Grüße

[Diese Nachricht wurde von reltro am 21. Mrz. 2013 editiert.]

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

---

Vielleicht hilft dir folgender Codeschnipsel

(DEFUN c:Sektor( / Datname daddat inp ct Zeile LISTE)
(SETQ datname "SektorPoly.txt")
(if(and(SETQ datdat (findfile datname))
        (SETQ inp (OPEN datdat "r"))
    )
  (progn
      (setq ct -1) ;;; erst alles schön in ne Liste
      (WHILE (SETQ Zeile (READ-LINE inp))       
        (setq LISTE (cons(list (strcat "P" (itoa (setq ct(1+ Ct)))) ZEILE) LISTE))
      )
      (close inp)
       
  )
)
(mapcar  ;;;; und nun aus der Liste die einzelnen Variablen setzen
  '(lambda(X)(set (read(car X)) (cadr X)))
  (reverse LISTE)
) 
)

.. aber ohne das gesamte anliegen zu kennen, fällt es schwer, die richtigen Tipps zu geben

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

---

Vielen Dank für die Tipps.
Diese werden mir sicher weiterhelfen.

Mein eigentliches Anliegen:
Aus einer Datei sollen jeweils 4 Zeilen eingelesen
werden. Jeweils 4 Zeilen sollen später ein geschl.
Polygon erzeugen (wenn ich meine Kenntnisse erweitert habe).
Mit meinem Ansatz und euren Tipps werd ich das
hoffentlich hinbekommen, auch wenn mein Ansatz nicht gerade elegant ist,
da ich gerade mal mit den Grundfunktionen in LISP vertraut bin.

Für Hinweise auf weitere hilfreiche Funktionen bin ich ebenso dankbar.
Vorab ein schönes Wochenende.

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