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