---

Hallo,

ich hab hier ein kleines Problem, wenn ich eine Liste abspeichere und danach wieder einlese, dann sind die Daten nach dem einlesen nicht mehr verwendbar, bzw. der Datentyp bleibt nicht erhalten. Welches Format haben die Daten dann, wie bekomm ich das Ganze wieder z.B. in String, in ein brauchbares Format ?

Gruß, Jürgen

Siehe Bsp:

(defun c:read ()

(setq tm (getenv "temp"))          ;Temp-Ordner ermitteln
(setq tm (strcat tm "/test.dat"))

(setq m11 "a")
(setq m22 "b")
(setq m33 "c")

(setq ml '())
(setq ml (cons (list "1" m11) ml))
(setq ml (cons (list "2" m22) ml))
(setq ml (cons (list "3" m33) ml))

(princ "\n ")
(princ ml)

(setq fw (open tm "w"))          ;Datei schreiben
(princ ml fw)
(close fw)

(setq fs (open tm "r"))            ;Datei lesen
(setq ml2 (read (read-line fs)))
(close fs)
(princ "\n ")
(princ ml2)

(setq m11 (cadr (assoc 1 ml2)))
(setq m22 (cadr (assoc 2 ml2)))
(setq m33 (cadr (assoc 3 ml2)))

(princ "\n ")
(princ m11)
(princ m22)
(princ m33)

) ;Ende defun

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

---

Schon hier geguckt ?!

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

---

READ-LINE (Hilfetext)
Reads a string from the keyboard or from an open file, until an end-of-line marker is encountered

String in andere formate bringen = Entwickler-Hilfethema "Conversion Functions"
angtof atof atoi , dazu natürlich auch noch list

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

---

Hallo Cadmium, CADFFM,

Danke für die Hinweise, es funktioniert jetzt so wie ich wollte !
Es lag am schreiben, muß mit prin1 statt mit princ erfolgen dann bleibt ein String auch ein String.

princ displays strings without quotation marks.
prin1 displays strings with quotation marks.
print displays strings with quotation marks and places a blank line

Gruß, Jürgen

Sieht jetzt so aus :

(defun c:read ()

(setq tm (getenv "temp"))          ;Temp-Ordner ermitteln
(setq tm (strcat tm "/test.dat"))

(setq m11 "a")
(setq m22 "b")
(setq m33 "c")

(setq ml '())
(setq ml (cons (list 1 m11) ml))
(setq ml (cons (list 2 m22) ml))
(setq ml (cons (list 3 m33) ml))

(princ "\n ")
(princ ml)

(setq fw (open tm "w"))          ;Datei schreiben
(prin1 ml fw)
(close fw)

(setq fs (open tm "r"))            ;Datei lesen
(setq ml2 (read (read-line fs)))
(close fs)
(princ "\n ")
(princ ml2)

(setq m11 (cadr (assoc 1 ml2)))
(setq m22 (cadr (assoc 2 ml2)))
(setq m33 (cadr (assoc 3 ml2)))

(princ "\n ")
(princ m11)
(princ m22)
(princ m33)
(princ "\n ")
(type m11)

) ;Ende defun

----------www.pc-ideal.de

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