表如何转为字符窜

风儿在林梢

表如何转为字符窜


例：表（1 2 （3））=》字符窜 "（1 2 （3））"

meflying

vl-prin1-to-string

风儿在林梢

r14环境中如何实现

龙龙仔

2. ;|
3. ;;FOR R14----
4. (setq LST '("a" "T1" 2 (3)))
5. (LAI-PRIN1-TO-STRING LST)
6. |;
7. (defun LAI-PRIN1-TO-STRING (LST / FILE STR)
8.    (setq FILE (open "c://TMP.txt" "w"))
9.    (prin1 LST FILE)
10.    (close FILE)
11.    (setq FILE (open "c://TMP.txt" "r"))
12.    (setq STR (read-line FILE))
13.    (close FILE)
14.    STR
15. )

;| ;;FOR R14---- (setq LST '("a" "T1" 2 (3))) (LAI-PRIN1-TO-STRING LST) |; (defun LAI-PRIN1-TO-STRING (LST / FILE STR)    (setq FILE (open "c://TMP.txt" "w"))    (prin1 LST FILE)    (close FILE)    (setq FILE (open "c://TMP.txt" "r"))    (setq STR (read-line FILE))    (close FILE)    STR )